package t::TestMockListener;
# $Id: TestMockListener.pm 131 2005-10-02 17:24:31Z abworrall $

use 5.008000;
our $VERSION = '0.01';
use strict;
use warnings;
use Carp qw(carp croak confess);

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(mock_listener);

use Test::MockObject;

#### A listener object needs mocking more carefully.
#
sub mock_listener {
    my ($mock) = Test::MockObject->new();
    $mock->mock ('emit', sub{1}); # All listeners need this method
    $mock->mock ($_, sub{1}) foreach (@_);

    return $mock;
}

# Routines for examining / compariing mock output ??

1;