File Coverage

blib/lib/Data/Conveyor/Control.pm
Criterion Covered Total %
statement 13 18 72.2
branch n/a
condition n/a
subroutine 5 9 55.5
pod 4 4 100.0
total 22 31 70.9


line stmt bran cond sub pod time code
1 1     1   480 use 5.008;
  1         4  
  1         51  
2 1     1   6 use strict;
  1         2  
  1         31  
3 1     1   6 use warnings;
  1         3  
  1         54  
4              
5             package Data::Conveyor::Control;
6             BEGIN {
7 1     1   26 $Data::Conveyor::Control::VERSION = '1.103130';
8             }
9             # ABSTRACT: Stage-based conveyor-belt-like ticket handling system
10              
11 1     1   5 use parent qw(Class::Scaffold::Delegate::Mixin Class::Scaffold::Accessor);
  1         3  
  1         7  
12             __PACKAGE__->mk_singleton_constructor(qw(new instance))
13             ->mk_hash_accessors(qw(allowed_stages ignore_ticket_no));
14              
15             sub log {
16 0     0 1   require Class::Scaffold::Log;
17 0           Class::Scaffold::Log->instance;
18             }
19 0     0 1   sub init { }
20 0     0 1   sub read { }
21 0     0 1   sub write { }
22             1;
23              
24              
25             __END__