File Coverage

blib/lib/Error/Hierarchy/Internal/CustomMessage.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 1     1   837 use 5.008;
  1         5  
  1         49  
2 1     1   6 use strict;
  1         3  
  1         39  
3 1     1   7 use warnings;
  1         2  
  1         59  
4              
5             package Error::Hierarchy::Internal::CustomMessage;
6             BEGIN {
7 1     1   20 $Error::Hierarchy::Internal::CustomMessage::VERSION = '1.103530';
8             }
9             # ABSTRACT: Custom internal exception
10 1     1   7 use parent 'Error::Hierarchy::Internal';
  1         2  
  1         21  
11             __PACKAGE__->mk_accessors(qw(custom_message));
12 1     1   92 use constant default_message => '%s';
  1         2  
  1         62  
13 1     1   6 use constant PROPERTIES => ('custom_message');
  1         2  
  1         55  
14             1;
15              
16              
17             __END__