File Coverage

blib/lib/Event/ExecFlow/Job/Code.pm

Criterion	Covered	Total	%
statement	22	32	68.7
branch	1	2	50.0
condition			n/a
subroutine	7	11	63.6
pod	0	9	0.0
total	30	54	55.5

package Event::ExecFlow::Job::Code;

use base qw( Event::ExecFlow::Job );

use strict;

sub get_exec_type               { "sync" }
sub get_type                    { "code" }

sub get_code                    { shift->{code}                         }
sub set_code                    { shift->{code}                 = $_[1] }

sub new {
    my $class = shift;
    my %par = @_;
    my ($code) = $par{'code'};

    my $self = $class->SUPER::new(@_);

    $self->set_code($code);

    return $self;
}

sub execute {
    my $self = shift;

    my $code = $self->get_code;

    eval { $code->($self) };
    $self->set_error_message($@) if $@;

    $self->execution_finished;

    1;
}

sub cancel {
    my $self = shift;

    $self->set_cancelled(1);

    1;
}

sub pause_job {
    my $self = shift;

    1;
}

sub backup_state {
    my $self = shift;

    my $data_href = $self->SUPER::backup_state();

    delete $data_href->{code};

    return $data_href;
}

1;

__END__