File Coverage

blib/lib/Data/Conveyor/YAML/Marshall/Ticket.pm

Criterion	Covered	Total	%
statement	16	21	76.1
branch			n/a
condition	0	3	0.0
subroutine	6	7	85.7
pod	1	1	100.0
total	23	32	71.8

use 5.008;
use strict;
use warnings;

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

sub yaml_load {
    my $self = shift;
    my $node = $self->SUPER::yaml_load(@_);
    my %args = %$node;
    delete @args{qw/ticket_no prefix suffix/};
    {   ticket_no => $node->{ticket_no}
          || $self->delegate->make_obj('test_ticket')->gen_temp_ticket_no(
            prefix => $node->{prefix},
            suffix => $node->{suffix},
          ),
        %args,
    };
}
1;


__END__