File Coverage

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

Criterion	Covered	Total	%
statement	11	11	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	16	16	100.0

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

has cb => (
    isa => CodeRef,
    is => 'ro',
);

sub consume {
    my ($self, $msg) = @_;
    $self->cb->($msg);
}

with 'Message::Passing::Role::Output';


1;

=head1 NAME

Message::Passing::Output::Callback - Output to call back into your code

=head1 SYNOPSIS

    Message::Passing::Output::Callback->new(
        cb => sub {
            my $message = shift;
        },
    );

=head1 METHODS

=head2 cb

The callback to be called when a message is received.

=head2 consume ($msg)

Calls the callback with the message as its first parameter.

=head1 SEE ALSO

L<Message::Passing>

=head1 SPONSORSHIP

This module exists due to the wonderful people at Suretec Systems Ltd.
<http://www.suretecsystems.com/> who sponsored its development for its
VoIP division called SureVoIP <http://www.surevoip.co.uk/> for use with
the SureVoIP API -
<http://www.surevoip.co.uk/support/wiki/api_documentation>

=head1 AUTHOR, COPYRIGHT AND LICENSE

See L<Message::Passing>.

=cut