File Coverage

lib/Unknown/Values/Instance/Object.pm
Criterion Covered Total %
statement 20 20 100.0
branch n/a
condition n/a
subroutine 10 10 100.0
pod 0 4 0.0
total 30 34 88.2


line stmt bran cond sub pod time code
1             package Unknown::Values::Instance::Object;
2             $Unknown::Values::Instance::Object::VERSION = '0.100';
3 6     6   43 use strict;
  6         12  
  6         179  
4 6     6   34 use warnings;
  6         9  
  6         173  
5              
6             # ABSTRACT: Internal null value object for the "Unknown::Values" distribution
7              
8 6     6   39 use Unknown::Values::Instance;
  6         13  
  6         151  
9              
10 6     6   33 use Carp 'confess';
  6         95  
  6         319  
11 6     6   57 use base 'Unknown::Values::Instance';
  6         22  
  6         1395  
12              
13             # Make sure we don't grab the UNIVERSAL:: versions of these
14 1     1 0 4 sub isa { $_[0] }
15 1     1 0 4 sub can { $_[0] }
16 1     1 0 7 sub DOES { $_[0] }
17 1     1 0 4 sub VERSION { $_[0] }
18              
19             # and everything else receives an unknown object
20 7     7   1224 sub AUTOLOAD { $_[0] }
21              
22             1;
23              
24             __END__