File Coverage

blib/lib/Message/Passing/Output/Test.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	3	3	100.0
total	24	24	100.0

package Message::Passing::Output::Test;
use Moo;
use MooX::Types::MooseLike::Base qw/ ArrayRef /;
use namespace::clean -except => 'meta';

extends 'Message::Passing::Output::Callback';

has '+cb' => (
    default => sub { sub {} },
);

has _messages => (
    is => 'ro',
    isa => ArrayRef,
    default => sub { [] },
    clearer => 'clear_messages',
    lazy => 1,
);

sub messages { @{ $_[0]->_messages } }
sub consume_test { push(@{$_[0]->_messages }, $_[1]) }
sub message_count { scalar @{ $_[0]->_messages } }


after consume => sub {
    shift()->consume_test(@_);
};


1;

=head1 NAME

Message::Passing::Output::Test - Output for use in unit tests

=head1 SYNOPSIS

    You only want this if you're writing tests...
    See the current tests for examples..

=head1 METHODS

=head2 messages

=head2 consume_test

=head2 message_count

=head1 SEE ALSO

L

=head1 SPONSORSHIP

This module exists due to the wonderful people at Suretec Systems Ltd.
 who sponsored its development for its
VoIP division called SureVoIP  for use with
the SureVoIP API -


=head1 AUTHOR, COPYRIGHT AND LICENSE

See L.

=cut