File Coverage

blib/lib/Evo/Ee.pm

Criterion	Covered	Total	%
statement	62	65	95.3
branch	18	32	56.2
condition			n/a
subroutine	10	11	90.9
pod	7	7	100.0
total	97	115	84.3

package Evo::Ee;
use Evo -Class, 'Carp croak; List::Util first';

requires 'ee_events';

# [name, cb]
has ee_data => sub { {q => [], cur => undef} };

sub ee_check ($self, $name) {
  croak qq{Not recognized event "$name"} unless first { $_ eq $name } $self->ee_events;
  $self;
}

sub on ($self, $name, $fn) {
  push $self->ee_check($name)->ee_data->{q}->@*, [$name, $fn];
  $self;
}

sub ee_add ($self, $name, $fn) {
  push $self->ee_check($name)->ee_data->{q}->@*, my $id = [$name, $fn];
  $id;
}

sub ee_remove ($self, $id) {
  my $data = $self->ee_data->{q};
  defined(my $index = first { $data->[$_] == $id } 0 .. $#$data) or croak "$id isn't a listener";
  splice $data->@*, $index, 1;
  $self;
}

sub ee_remove_current($self) {
  my ($q, $cur) = @{$self->ee_data}{qw(q cur)};
  defined(my $index = first { $q->[$_] == $cur } 0 .. $#$q) or croak "Not in the event";
  splice $q->@*, $index, 1;
  $self;
}


sub emit ($self, $name, @args) {
  my $data = $self->ee_data;
  do { local $data->{cur} = $_; $_->[1]->($self, @args) }
    for grep { $_->[0] eq $name } $self->ee_data->{q}->@*;
  $self;
}

sub ee_listeners ($self, $name) {
  grep { $_->[0] eq $name } $self->ee_data->{q}->@*;
}

1;

__END__