File Coverage

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

Criterion	Covered	Total	%
statement	16	22	72.7
branch			n/a
condition			n/a
subroutine	6	7	85.7
pod	1	1	100.0
total	23	30	76.6

use 5.008;
use strict;
use warnings;

package Data::Conveyor::YAML::Marshall::Payload::Lock;
BEGIN {
  $Data::Conveyor::YAML::Marshall::Payload::Lock::VERSION = '1.103130';
}
# ABSTRACT: Stage-based conveyor-belt-like ticket handling system
use YAML::Marshall 'payload/lock';
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_lock');
    while (my ($key, $value) = each %$node) {
        $payload_item->lock->$key($value);
    }
    $payload_item;
}
1;


__END__