File Coverage

blib/lib/Parse/JCONF/Error.pm
Criterion Covered Total %
statement 9 11 81.8
branch n/a
condition n/a
subroutine 4 5 80.0
pod 2 3 66.6
total 15 19 78.9


line stmt bran cond sub pod time code
1             package Parse::JCONF::Error;
2              
3 10     10   53 use strict;
  10         19  
  10         373  
4 10     10   49 use overload '""' => \&to_string;
  10         16  
  10         73  
5              
6             our $VERSION = '0.03';
7              
8             sub new {
9 16     16 1 24 my ($class, $msg) = @_;
10 16         83 bless \$msg, $class;
11             }
12              
13             sub throw {
14 8     8 1 43 die $_[0];
15             }
16              
17             sub to_string {
18 0     0 0   my $self = shift;
19 0           return $$self."\n";
20             }
21              
22             package Parse::JCONF::Error::IO;
23             our @ISA = 'Parse::JCONF::Error';
24              
25             package Parse::JCONF::Error::Parser;
26             our @ISA = 'Parse::JCONF::Error';
27              
28             1;
29              
30             __END__