File Coverage

blib/lib/Error/Hierarchy/Internal/Class.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 26 26 100.0


line stmt bran cond sub pod time code
1 2     2   1535 use 5.008;
  2         7  
  2         81  
2 2     2   10 use strict;
  2         15  
  2         73  
3 2     2   12 use warnings;
  2         3  
  2         116  
4              
5             package Error::Hierarchy::Internal::Class;
6             BEGIN {
7 2     2   52 $Error::Hierarchy::Internal::Class::VERSION = '1.103530';
8             }
9             # ABSTRACT: When you got an object of a wrong class
10 2     2   9 use parent 'Error::Hierarchy::Internal';
  2         57  
  2         21  
11             __PACKAGE__->mk_accessors(qw(class_expected class_got));
12 2     2   128 use constant default_message => 'expected a [%s] object, got [%s]';
  2         5  
  2         103  
13 2     2   11 use constant PROPERTIES => (qw/class_expected class_got/);
  2         5  
  2         116  
14             1;
15              
16              
17             __END__