File Coverage

blib/lib/Event/ExecFlow/Frontend.pm

Criterion	Covered	Total	%
statement	14	35	40.0
branch			n/a
condition	0	3	0.0
subroutine	4	11	36.3
pod	0	9	0.0
total	18	58	31.0

package Event::ExecFlow::Frontend;

use strict;
use Carp;

sub new {
    my $class = shift;

    my $self = bless {}, $class;

    return $self;
}

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

    $job->set_frontend($self);
    $job->start;

    1;
}

#---------------------------------------------------------------------
# Dummy implementation, needs to by overridden by application class
#---------------------------------------------------------------------

sub report_job_added {
    my $self = shift;
    my ($job) = @_;
    1;
}

sub report_job_start {
    my $self = shift;
    my ($job) = @_;
    1;
}

sub report_job_progress {
    my $self = shift;
    my ($job) = @_;
    1;
}

sub report_job_error {
    my $self = shift;
    my ($job) = @_;
    1;
}

sub report_job_warning {
    my $self = shift;
    my ($job, $message) = @_;

    $message ||= $job->get_warning_message;

    1;
}

sub report_job_finished {
    my $self = shift;
    my ($job) = @_;
    1;
}

sub log {
    my $self = shift;
    my ($msg) = @_;
}

1;

__END__