File Coverage

blib/lib/AnySan.pm

Criterion	Covered	Total	%
statement	9	18	50.0
branch	0	2	0.0
condition	0	2	0.0
subroutine	3	7	42.8
pod	0	4	0.0
total	12	33	36.3

package AnySan;
use strict;
use warnings;
our $VERSION = '0.10';

use AnyEvent;

my $condvar = AE::cv;

sub cv { $condvar }

sub run {
    $condvar->recv;
}


my @hooks = ();
sub register_listener {
    my($class, $name, $args) = @_;
    $args->{event} ||= 'privmsg';
    push @hooks, $args;
}

sub broadcast_message {
    my($class, $receive) = @_;

    for my $hook (@hooks) {
        next unless $hook->{event} eq $receive->event;
        $hook->{cb}->($receive);
    }
}

1;
__END__