File Coverage

blib/lib/DWH_File/Registry/Class.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition 1 3 33.3
subroutine 5 5 100.0
pod 0 1 0.0
total 21 24 87.5


line stmt bran cond sub pod time code
1             package DWH_File::Registry::Class;
2              
3 9     9   49 use warnings;
  9         16  
  9         512  
4 9     9   47 use strict;
  9         16  
  9         298  
5 9     9   45 use vars qw( @ISA $VERSION );
  9         15  
  9         811  
6 9     9   60 use DWH_File::Registry;
  9         18  
  9         48  
7              
8             @ISA = qw( DWH_File::Registry );
9             $VERSION = 0.01;
10              
11             sub class_id {
12 56     56 0 84 my ( $self, $that ) = @_;
13 56   33     162 my $the_class = ref $that || $that;
14 56         222 return $self->get_key( $the_class );
15             }
16              
17             1;
18              
19             __END__