File Coverage

blib/lib/XML/EP/Error.pm
Criterion Covered Total %
statement 0 5 0.0
branch n/a
condition 0 3 0.0
subroutine 0 1 0.0
pod 0 1 0.0
total 0 10 0.0


line stmt bran cond sub pod time code
1             # -*- perl -*-
2            
3             package XML::EP::Error;
4            
5             $XML::EP::Error::VERSION = '0.01';
6            
7             sub new {
8 0     0 0   my $proto = shift; my $msg = shift; my $code = shift;
  0            
  0            
9 0           $self = { msg => $msg, code => $code };
10 0   0       bless($self, (ref($proto) || $proto));
11             }