File Coverage

blib/lib/Beam/Listener.pm

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

package Beam::Listener;
our $VERSION = '1.007';

#pod =head1 SYNOPSIS
#pod
#pod   package MyListener;
#pod
#pod   extends 'Beam::Listener';
#pod
#pod
#pod   # add metadata with subscription time
#pod   has sub_time => is ( 'ro',
#pod                         init_arg => undef,
#pod                         default => sub { time() },
#pod   );
#pod
#pod    # My::Emitter consumes the Beam::Emitter role
#pod    my $emitter = My::Emitter->new;
#pod    $emitter->on( "foo", sub {
#pod         my ( $event ) = @_;
#pod         print "Foo happened!\n";
#pod         # stop this event from continuing
#pod         $event->stop;
#pod     },
#pod     class => MyListener
#pod     );
#pod
#pod
#pod =head1 DESCRIPTION
#pod
#pod This is the base class used by C objects to store information
#pod about listeners. Create a subclass to add data attributes.
#pod
#pod =head1 SEE ALSO
#pod
#pod =over 4
#pod
#pod =item L
#pod
#pod =back
#pod
#pod =cut

use strict;
use warnings;

use Types::Standard qw(:all);
use Moo;

#pod =attr code
#pod
#pod A coderef which will be invoked when the event is distributed.
#pod
#pod =cut

has callback => (
    is  => 'ro',
    isa => CodeRef,
    required => 1,
);

1;

__END__