File Coverage

lib/Context/Singleton/Exception/Nondeducible.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 16 16 100.0


line stmt bran cond sub pod time code
1              
2 3     3   17 use strict;
  3         6  
  3         103  
3 3     3   17 use warnings;
  3         6  
  3         125  
4              
5             package Context::Singleton::Exception::Nondeducible;
6              
7             our $VERSION = v1.0.5;
8              
9 3     3   14 use Exception::Class ( __PACKAGE__ );
  3         5  
  3         13  
10              
11             sub new {
12 3     3 1 28 my ($self, $rule) = @_;
13              
14 3         20 $self->SUPER::new (error => "Cannot deduce: $rule");
15             }
16              
17             1;
18