File Coverage

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

Criterion	Covered	Total	%
statement	22	29	75.8
branch			n/a
condition	0	3	0.0
subroutine	8	9	88.8
pod	2	2	100.0
total	32	43	74.4

use 5.008;
use strict;
use warnings;

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

use Test::More;
use parent 'Data::Conveyor::Test';
use constant PLAN => 1;

sub gen_filled_container {
    my ($self, @instruction_specs) = @_;
    my $container = $self->delegate->make_obj('payload_instruction_container');
    our $factory ||= $self->delegate->make_obj('payload_instruction_factory');
    for my $spec (@instruction_specs) {
        my ($command, $type, $value) = @$spec;
        $container->items_push(
            $factory->gen_instruction(
                $type,
                command => $self->delegate->$command,
                value   => $value
            )
        );
    }
    $container;
}

sub run {
    my $self = shift;
    $self->SUPER::run(@_);
    pass('dummy test to keep class tests happy');
}
1;


__END__