File Coverage

blib/lib/Iterator/BreakOn/Event.pm

Criterion	Covered	Total	%
statement	27	34	79.4
branch	0	4	0.0
condition			n/a
subroutine	9	10	90.0
pod	1	1	100.0
total	37	49	75.5

package Iterator::BreakOn::Base::Event;
use base qw(Class::Accessor);
use strict;
use warnings;
use Carp;

#
#   I'm using This pseudo class the limitations of Class::Accessor for
#   overriding autogenerated accessors
#

our $VERSION = '0.1';

Iterator::BreakOn::Base::Event->mk_accessors( qw( name field value ) );

package Iterator::BreakOn::Event;
use base qw(Iterator::BreakOn::Base::Event);
use strict;
use warnings;
use Carp;

use Iterator::BreakOn::X;

our $VERSION = '0.1';

sub name {
    my  $self   =   shift;
    my  $value  =   shift;

    if (defined($value)) {
        if ($value =~ m{on_first|on_last|on_every|
                        before_(\w+)|after_(\w+)}xms) {
            return $self->SUPER::name( $value );
        }
        else {
            Iterator::BreakOn::X->invalid_event->throw( name => $value );
        }
    }

    return $self->SUPER::name();
}

1;
__END__