File Coverage

blib/lib/PerlBean/Attribute.pm
Criterion Covered Total %
statement 132 140 94.2
branch 50 76 65.7
condition n/a
subroutine 27 27 100.0
pod 14 14 100.0
total 223 257 86.7


line stmt bran cond sub pod time code
1             package PerlBean::Attribute;
2              
3 12     12   699 use 5.005;
  12         65  
  12         487  
4 12     12   60 use base qw( PerlBean::Method::Factory );
  12         35  
  12         7377  
5 12     12   69 use strict;
  12         716  
  12         347  
6 12     12   59 use warnings;
  12         26  
  12         320  
7 12     12   60 use AutoLoader qw(AUTOLOAD);
  12         23  
  12         306  
8 12     12   389 use Error qw(:try);
  12         25  
  12         67  
9 12     12   5385 use PerlBean::Style qw(:codegen);
  12         31  
  12         3478  
10              
11             # Legacy count variable
12             our $LEGACY_COUNT = 0;
13              
14             # Used by _initialize
15             our %DEFAULT_VALUE = (
16             'documented' => 1,
17             'exception_class' => 'Error::Simple',
18             'mandatory' => 0,
19             );
20              
21             # Package version
22             our ($VERSION) = '$Revision: 1.0 $' =~ /\$Revision:\s+([^\s]+)/;
23              
24             1;
25              
26             __END__