File Coverage

blib/lib/Event/ExecFlow/Callbacks.pm

Criterion	Covered	Total	%
statement	22	30	73.3
branch	2	4	50.0
condition			n/a
subroutine	5	7	71.4
pod	0	6	0.0
total	29	47	61.7

package Event::ExecFlow::Callbacks;

use strict;

sub get_cb_list                 { shift->{cb_list}                      }
sub set_cb_list                 { shift->{cb_list}              = $_[1] }

sub new {
    my $class = shift;
    my @cb_list = @_;

    my $self = bless {
        cb_list     => \@cb_list,
    }, $class;

    return $self;
}

sub prepend {
    my $self = shift;
    my (@cb) = @_;

    unshift @{$self->get_cb_list}, @cb;

    return $self;
}

sub add {
    my $self = shift;
    my (@cb) = @_;

    push @{$self->get_cb_list}, @cb;

    return $self;
}

sub execute {
    my $self = shift;
    my ($job) = @_;

    foreach my $cb ( @{$self->get_cb_list} ) {
        eval { $cb->(@_) };
print "Catched Callbacks Exception: $@" if $@;
        if ( $@ ) {
            $job->set_error_message($@);
            return 0;
        }
    }


    1;
}

1;

__END__