File Coverage

blib/lib/PerlBean/Attribute/Multi/Unique.pm
Criterion Covered Total %
statement 102 103 99.0
branch 24 26 92.3
condition n/a
subroutine 13 13 100.0
pod 1 6 16.6
total 140 148 94.5


line stmt bran cond sub pod time code
1             package PerlBean::Attribute::Multi::Unique;
2              
3 4     4   756 use 5.005;
  4         15  
  4         178  
4 4     4   23 use base qw( PerlBean::Attribute::Multi );
  4         7  
  4         848  
5 4     4   24 use strict;
  4         7  
  4         142  
6 4     4   21 use warnings;
  4         8  
  4         167  
7 4     4   34 use AutoLoader qw(AUTOLOAD);
  4         8  
  4         27  
8 4     4   124 use Error qw(:try);
  4         7  
  4         26  
9 4     4   612 use PerlBean::Style qw(:codegen);
  4         17  
  4         1009  
10              
11             # Package version
12             our ($VERSION) = '$Revision: 1.0 $' =~ /\$Revision:\s+([^\s]+)/;
13              
14             1;
15              
16             __END__