File Coverage

blib/lib/HTML/TagCloud/Extended/Exception.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod 0 1 0.0
total 8 9 88.8


line stmt bran cond sub pod time code
1             package HTML::TagCloud::Extended::Exception;
2 4     4   24 use strict;
  4         8  
  4         341  
3              
4             sub throw {
5 5     5 0 10 my ($class, $message) = @_;
6 5         39 require Carp;
7 5         1417 Carp::croak($message);
8             }
9              
10             1;
11             __END__