File Coverage

blib/lib/PerlBean/Method/Factory.pm
Criterion Covered Total %
statement 52 57 91.2
branch 14 32 43.7
condition 10 27 37.0
subroutine 12 12 100.0
pod 5 5 100.0
total 93 133 69.9


line stmt bran cond sub pod time code
1             package PerlBean::Method::Factory;
2              
3 12     12   193 use 5.005;
  12         39  
  12         429  
4 12     12   63 use strict;
  12         24  
  12         388  
5 12     12   72 use warnings;
  12         26  
  12         450  
6 12     12   5534 use AutoLoader qw(AUTOLOAD);
  12         9675  
  12         70  
7 12     12   438 use Error qw(:try);
  12         25  
  12         110  
8              
9             # Used by _value_is_allowed
10             our %ALLOW_ISA = (
11             'perl_bean' => [ 'PerlBean' ],
12             );
13              
14             # Used by _value_is_allowed
15             our %ALLOW_REF = (
16             );
17              
18             # Used by _value_is_allowed
19             our %ALLOW_RX = (
20             'method_factory_name' => [ '^\w+$' ],
21             );
22              
23             # Used by _value_is_allowed
24             our %ALLOW_VALUE = (
25             );
26              
27             # Package version
28             our ($VERSION) = '$Revision: 1.0 $' =~ /\$Revision:\s+([^\s]+)/;
29              
30             1;
31              
32             __END__