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 it's first parameter =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