File Coverage

blib/lib/PerlBean/Symbol.pm
Criterion Covered Total %
statement 105 115 91.3
branch 32 60 53.3
condition 11 31 35.4
subroutine 25 25 100.0
pod 17 17 100.0
total 190 248 76.6


line stmt bran cond sub pod time code
1             package PerlBean::Symbol;
2              
3 5     5   88 use 5.005;
  5         15  
  5         186  
4 5     5   22 use strict;
  5         9  
  5         142  
5 5     5   22 use warnings;
  5         9  
  5         155  
6 5     5   24 use AutoLoader qw(AUTOLOAD);
  5         10  
  5         23  
7 5     5   165 use Error qw(:try);
  5         10  
  5         28  
8 5     5   639 use PerlBean::Style qw(:codegen);
  5         11  
  5         1390  
9              
10             # Used by _value_is_allowed
11             our %ALLOW_ISA = (
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             'export_tag' => [ '^\S*$' ],
21             'symbol_name' => [ '^\S+$' ],
22             );
23              
24             # Used by _value_is_allowed
25             our %ALLOW_VALUE = (
26             );
27              
28             # Used by _initialize
29             our %DEFAULT_VALUE = (
30             'declared' => 1,
31             );
32              
33             # Package version
34             our ($VERSION) = '$Revision: 1.0 $' =~ /\$Revision:\s+([^\s]+)/;
35              
36             1;
37              
38             __END__