File Coverage

blib/lib/Data/Conveyor/Stage.pm

Criterion	Covered	Total	%
statement	19	26	73.0
branch			n/a
condition			n/a
subroutine	7	11	63.6
pod	4	4	100.0
total	30	41	73.1

use 5.008;
use strict;
use warnings;

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

# Base class for stages.
#
# To use it, create an object of this class, set the ticket and
# call run(). You can then read the status the stage's ticket and act on it.
use Error::Hierarchy::Util 'assert_defined';
use parent 'Class::Scaffold::Storable';
__PACKAGE__->mk_scalar_accessors(qw(will_shift_ticket));
use constant DEFAULTS => (will_shift_ticket => 1,);

sub run {
    my $self = shift;
    $self->begin;
    $self->main;
    $self->end;
}
sub begin { }
sub main  { }
sub end   { }
1;


__END__