File Coverage

blib/lib/Data/Conveyor/YAML/Marshall/TicketNumber.pm
Criterion Covered Total %
statement 16 19 84.2
branch n/a
condition n/a
subroutine 6 7 85.7
pod 1 1 100.0
total 23 27 85.1


line stmt bran cond sub pod time code
1 1     1   17 use 5.008;
  1         4  
  1         44  
2 1     1   7 use strict;
  1         2  
  1         36  
3 1     1   6 use warnings;
  1         2  
  1         54  
4              
5             package Data::Conveyor::YAML::Marshall::TicketNumber;
6             BEGIN {
7 1     1   19 $Data::Conveyor::YAML::Marshall::TicketNumber::VERSION = '1.103130';
8             }
9             # ABSTRACT: Stage-based conveyor-belt-like ticket handling system
10 1     1   6 use YAML::Marshall 'ticket/number';
  1         2  
  1         6  
11 1     1   54 use parent 'Class::Scaffold::YAML::Marshall';
  1         2  
  1         5  
12              
13             sub yaml_load {
14 0     0 1   my $self = shift;
15 0           my $node = $self->SUPER::yaml_load(@_);
16 0           $self->delegate->make_obj('test_ticket')->gen_temp_ticket_no(
17             prefix => $node->{prefix},
18             suffix => $node->{suffix},
19             );
20             }
21             1;
22              
23              
24             __END__