File Coverage

blib/lib/PerlBean/Attribute/Multi/Unique/Ordered.pm
Criterion Covered Total %
statement 138 139 99.2
branch 31 36 86.1
condition n/a
subroutine 15 15 100.0
pod 1 8 12.5
total 185 198 93.4


line stmt bran cond sub pod time code
1             package PerlBean::Attribute::Multi::Unique::Ordered;
2              
3 4     4   679 use 5.005;
  4         12  
  4         150  
4 4     4   21 use base qw( PerlBean::Attribute::Multi );
  4         7  
  4         770  
5 4     4   20 use strict;
  4         8  
  4         122  
6 4     4   17 use warnings;
  4         8  
  4         100  
7 4     4   30 use AutoLoader qw(AUTOLOAD);
  4         7  
  4         20  
8 4     4   141 use Error qw(:try);
  4         8  
  4         28  
9 4     4   601 use PerlBean::Style qw(:codegen);
  4         8  
  4         948  
10              
11             # Package version
12             our ($VERSION) = '$Revision: 1.0 $' =~ /\$Revision:\s+([^\s]+)/;
13              
14             1;
15              
16             __END__