File Coverage

blib/lib/Net/IPMessenger/EventHandler.pm

Criterion	Covered	Total	%
statement	8	14	57.1
branch	0	2	0.0
condition			n/a
subroutine	3	5	60.0
pod	3	3	100.0
total	14	24	58.3

package Net::IPMessenger::EventHandler;

use warnings;
use strict;

sub new {
    my $class = shift;
    bless {}, $class;
}

sub add_callback {
    my( $self, $name, $sub ) = @_;
    $self->{callback}->{$name} = $sub;
}

sub callback {
    my( $self, $name ) = @_;
    if ( exists $self->{callback}->{$name} ) {
        return $self->{callback}->{$name};
    }
    return;
}

1;
__END__