File Coverage

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

Criterion	Covered	Total	%
statement	22	28	78.5
branch			n/a
condition			n/a
subroutine	8	11	72.7
pod	3	3	100.0
total	33	42	78.5

use 5.008;
use strict;
use warnings;

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

# ptags: DCTPI
use Class::Value;
use parent 'Class::Scaffold::Storable';
use overload
  'eq' => 'eq',
  '""' => 'stringify';
__PACKAGE__
    ->mk_scalar_accessors(qw(command))
    ->mk_object_accessors('Class::Value' => 'value');

# Override type() in subclasses. Override value() as well; should be a value
# object corresponding to the type of instruction.
use constant type => '';

sub eq {
    my ($lhs, $rhs) = @_;
    (sprintf "%s", $lhs) eq (sprintf "%s", $rhs);
}

sub stringify {
    my $self = shift;
    sprintf 'command [%s], type [%s], value [%s]',
      $self->command, $self->type, $self->value;
}

sub check {
    my ($self, $exception_container) = @_;
    $self->value->run_checks_with_exception_container($exception_container);
}
1;


__END__