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   212355 use CSS::DOM::Constants;
  25         61  
  25         901  
4 25     25   132 use Exporter 5.57 'import';
  25         313  
  25         3164  
5              
6             our $VERSION = '0.17';
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   16991 '0+' => sub { $_[0][0] },
15 0     0   0 '""' => sub { $_[0][1] =~ /^(.*?)\n?\z/s; "$1\n" },
  0         0  
16 25     25   10545 ;
  25         8210  
  25         198  
17              
18             sub new {
19 115     115 1 877 bless [@_[1,2]], $_[0];
20             }
21              
22             'true'
23             __END__