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.102';
3 6     6   43 use strict;
  6         10  
  6         175  
4 6     6   30 use warnings;
  6         8  
  6         163  
5              
6             # ABSTRACT: Internal null value object for the "Unknown::Values" distribution
7              
8 6     6   40 use Unknown::Values::Instance;
  6         8  
  6         166  
9              
10 6     6   31 use Carp 'confess';
  6         98  
  6         309  
11 6     6   46 use base 'Unknown::Values::Instance';
  6         12  
  6         1213  
12              
13             # Make sure we don't grab the UNIVERSAL:: versions of these
14 1     1 0 3 sub isa { $_[0] }
15 1     1 0 2 sub can { $_[0] }
16 1     1 0 4 sub DOES { $_[0] }
17 1     1 0 3 sub VERSION { $_[0] }
18              
19             # and everything else receives an unknown object
20 7     7   1133 sub AUTOLOAD { $_[0] }
21              
22             1;
23              
24             __END__