File Coverage

blib/lib/Data/Conveyor/Ticket/Payload/Common.pm

Criterion	Covered	Total	%
statement	20	21	95.2
branch	2	4	50.0
condition			n/a
subroutine	8	9	88.8
pod	4	4	100.0
total	34	38	89.4

use 5.008;
use strict;
use warnings;

package Data::Conveyor::Ticket::Payload::Common;
BEGIN {
  $Data::Conveyor::Ticket::Payload::Common::VERSION = '1.103130';
}
# ABSTRACT: Stage-based conveyor-belt-like ticket handling system

use parent 'Data::Conveyor::Ticket::Payload::Item';
__PACKAGE__->mk_scalar_accessors(qw(log_level))->mk_framework_object_accessors(
    value_ticket_rc     => 'default_rc',
    value_ticket_status => 'default_status',
);

sub DEFAULTS {
    (   default_rc     => $_[0]->delegate->RC_OK,
        default_status => $_[0]->delegate->TS_RUNNING,
    );
}
sub check { }

# A stage can set the default rc (barring any exceptions) in the common
# payload item's; it will be applied in rc(). Ditto for status().
sub rc {
    my ($self, $ticket) = @_;
    my $rc = $self->SUPER::rc($ticket);
    $rc += $self->default_rc if defined $self->default_rc;
}

sub status {
    my ($self, $ticket) = @_;
    my $status = $self->SUPER::status($ticket);
    $status += $self->default_status if defined $self->default_status;
}
1;


__END__