File Coverage

blib/lib/PerlBean/Attribute/Multi/Unique/Associative/MethodKey.pm
Criterion Covered Total %
statement 125 127 98.4
branch 19 36 52.7
condition n/a
subroutine 18 18 100.0
pod 3 9 33.3
total 165 190 86.8


line stmt bran cond sub pod time code
1             package PerlBean::Attribute::Multi::Unique::Associative::MethodKey;
2              
3 2     2   819 use 5.005;
  2         6  
  2         82  
4 2     2   12 use base qw( PerlBean::Attribute::Multi );
  2         4  
  2         664  
5 2     2   14 use strict;
  2         3  
  2         52  
6 2     2   9 use warnings;
  2         3  
  2         47  
7 2     2   9 use AutoLoader qw(AUTOLOAD);
  2         4  
  2         11  
8 2     2   52 use Error qw(:try);
  2         4  
  2         20  
9 2     2   218 use PerlBean::Style qw(:codegen);
  2         4  
  2         410  
10              
11             # Used by _initialize
12             our %DEFAULT_VALUE = (
13             'id_method' => 'get_id',
14             );
15              
16             # Package version
17             our ($VERSION) = '$Revision: 1.0 $' =~ /\$Revision:\s+([^\s]+)/;
18              
19             1;
20              
21             __END__