File Coverage

blib/lib/Data/Conveyor/YAML/Marshall/Payload/Transaction.pm

Criterion	Covered	Total	%
statement	16	27	59.2
branch			n/a
condition	0	9	0.0
subroutine	6	7	85.7
pod	1	1	100.0
total	23	44	52.2

use 5.008;
use strict;
use warnings;

package Data::Conveyor::YAML::Marshall::Payload::Transaction;
BEGIN {
  $Data::Conveyor::YAML::Marshall::Payload::Transaction::VERSION = '1.103130';
}
# ABSTRACT: Stage-based conveyor-belt-like ticket handling system
use YAML::Marshall 'payload/transaction';
use parent 'Class::Scaffold::YAML::Marshall';

sub yaml_load {
    my $self         = shift;
    my $node         = $self->SUPER::yaml_load(@_);
    my $payload_item = $self->delegate->make_obj('payload_transaction');
    for ($payload_item->transaction) {
        $_->object_type($node->{object_type});
        $_->command($node->{command});
        $_->type($node->{type}           || $self->delegate->TXT_EXPLICIT);
        $_->status($node->{status}       || $self->delegate->TXS_RUNNING);
        $_->necessity($node->{necessity} || $self->delegate->TXN_MANDATORY);
        $_->payload_item($node->{item});
    }
    $payload_item;
}
1;


__END__