File Coverage

blib/lib/Data/Conveyor/Value/Enum.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 18 18 100.0


line stmt bran cond sub pod time code
1 1     1   1102 use 5.008;
  1         5  
  1         90  
2 1     1   8 use strict;
  1         2  
  1         45  
3 1     1   6 use warnings;
  1         2  
  1         52  
4              
5             package Data::Conveyor::Value::Enum;
6             BEGIN {
7 1     1   34 $Data::Conveyor::Value::Enum::VERSION = '1.103130';
8             }
9             # ABSTRACT: Stage-based conveyor-belt-like ticket handling system
10              
11              
12             # Inherit from Class::Scaffold::Base because get_valid_values_list is
13             # presumably going to ask the delegate. Need to put Class::Value::Enum first
14             # so it can find the more specific comparable() in Class::Value. If you need
15             # to ask the storage for the list of valid values, your subclass should
16             # inherit from Class::Scaffold::Storable instead.
17 1         17 use parent qw(
18             Class::Value::Enum
19             Class::Scaffold::Base
20 1     1   52 );
  1         3  
21             1;
22              
23              
24             __END__