File Coverage

blib/lib/PerlBean/Attribute/Multi/Unique/Associative.pm
Criterion Covered Total %
statement 113 114 99.1
branch 20 28 71.4
condition n/a
subroutine 14 14 100.0
pod 1 7 14.2
total 148 163 90.8


line stmt bran cond sub pod time code
1             package PerlBean::Attribute::Multi::Unique::Associative;
2              
3 4     4   829 use 5.005;
  4         15  
  4         192  
4 4     4   27 use base qw( PerlBean::Attribute::Multi );
  4         9  
  4         941  
5 4     4   23 use strict;
  4         8  
  4         125  
6 4     4   21 use warnings;
  4         7  
  4         145  
7 4     4   23 use AutoLoader qw(AUTOLOAD);
  4         8  
  4         29  
8 4     4   156 use Error qw(:try);
  4         8  
  4         29  
9 4     4   734 use PerlBean::Style qw(:codegen);
  4         10  
  4         1154  
10              
11             # Package version
12             our ($VERSION) = '$Revision: 1.0 $' =~ /\$Revision:\s+([^\s]+)/;
13              
14             1;
15              
16             __END__