File Coverage

blib/lib/CSS/DOM/Exception.pm
Criterion Covered Total %
statement 11 13 84.6
branch n/a
condition n/a
subroutine 5 6 83.3
pod 1 1 100.0
total 17 20 85.0


line stmt bran cond sub pod time code
1             package CSS::DOM::Exception;
2              
3 25     25   94944 use CSS::DOM::Constants;
  25         74  
  25         1149  
4 25     25   156 use Exporter 5.57 'import';
  25         399  
  25         4106  
5              
6             our $VERSION = '0.16';
7              
8             *EXPORT_OK = $CSS::DOM::Constants::EXPORT_TAGS{exception};
9             our %EXPORT_TAGS = (all => [@EXPORT_OK]);
10              
11              
12             use overload
13             fallback => 1,
14 109     109   13574 '0+' => sub { $_[0][0] },
15 0     0   0 '""' => sub { $_[0][1] =~ /^(.*?)\n?\z/s; "$1\n" },
  0         0  
16 25     25   17331 ;
  25         12047  
  25         270  
17              
18             sub new {
19 115     115 1 1106 bless [@_[1,2]], $_[0];
20             }
21              
22             'true'
23             __END__