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   45 use strict;
  6         10  
  6         200  
2 6     6   29 use warnings;
  6         13  
  6         289  
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.101';
8 6     6   33 use Carp 'confess';
  6         12  
  6         298  
9 6     6   33 use base 'Unknown::Values::Instance';
  6         12  
  6         1298  
10              
11             sub bool {
12 1     1 0 10 confess("Boolean operations not allowed with 'fatal unknown' objects");
13             }
14              
15             sub compare {
16 1     1 0 27 confess("Comparison operations not allowed with 'fatal unknown' objects");
17              
18             }
19              
20             sub sort {
21 1     1 0 11 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__