File Coverage

lib/Unknown/Values/Instance/Fatal.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 0 4 0.0
total 24 28 85.7


line stmt bran cond sub pod time code
1 6     6   43 use strict;
  6         10  
  6         230  
2 6     6   30 use warnings;
  6         11  
  6         276  
3              
4             # ABSTRACT: Internal fatal value object for the "Unknown::Values" distribution
5              
6             package Unknown::Values::Instance::Fatal;
7             $Unknown::Values::Instance::Fatal::VERSION = '0.102';
8 6     6   33 use Carp 'confess';
  6         10  
  6         263  
9 6     6   31 use base 'Unknown::Values::Instance';
  6         11  
  6         1214  
10              
11             sub bool {
12 1     1 0 11 confess("Boolean operations not allowed with 'fatal unknown' objects");
13             }
14              
15             sub compare {
16 1     1 0 25 confess("Comparison operations not allowed with 'fatal unknown' objects");
17              
18             }
19              
20             sub sort {
21 1     1 0 12 confess("Sorting operations not allowed with 'fatal unknown' objects");
22             }
23              
24             sub to_string {
25 1     1 0 11 confess("Printing not allowed with 'fatal unknown' objects");
26             }
27              
28             1;
29              
30             __END__