File Coverage

blib/lib/Moo/Role/RequestReplyHandler/EventListener.pm

Criterion	Covered	Total	%
statement	18	29	62.0
branch	0	2	0.0
condition			n/a
subroutine	6	9	66.6
pod	0	2	0.0
total	24	42	57.1

package Moo::Role::RequestReplyHandler::EventListener;
use strict;
use Moo;
use Carp 'croak';
use Filter::signatures;
no warnings 'experimental::signatures';
use feature 'signatures';

our $VERSION = '0.01';

has 'target' => (
    is => 'ro',
    weak_ref => 1,
);

has 'callback' => (
    is => 'ro',
);

has 'event' => (
    is => 'ro',
);

around BUILDARGS => sub( $orig, $class, %args ) {
    croak "Need an event" unless $args{ event };
    croak "Need a callback" unless $args{ callback };
    croak "Need a target in target" unless $args{ target };
    return $class->$orig( %args )
};

sub notify( $self, @info ) {
    $self->callback->( @info )
}

sub unregister( $self ) {
    $self->target->remove_listener( $self )
        if $self->target; # it's a weak ref so it might have gone away already
    undef $self->{target};
}

sub DESTROY {
    $_[0]->unregister
}

1;