File Coverage

blib/lib/Algorithm/SkipList/Header.pm
Criterion Covered Total %
statement 20 20 100.0
branch 2 4 50.0
condition n/a
subroutine 8 8 100.0
pod 3 3 100.0
total 33 35 94.2


line stmt bran cond sub pod time code
1             package Algorithm::SkipList::Header;
2            
3 13     13   258 use 5.006;
  13         180  
  13         482  
4 13     13   65 use strict;
  13         20  
  13         422  
5 13     13   65 use warnings::register __PACKAGE__;
  13         20  
  13         2501  
6            
7 13     13   66 use base 'Algorithm::SkipList::Node';
  13         22  
  13         1438  
8            
9 13     13   66 use Carp qw( carp );
  13         22  
  13         1854  
10            
11             our $VERSION = '1.02';
12            
13             # $VERSION = eval $VERSION;
14            
15            
16             sub key_cmp {
17 21     21 1 84 -1;
18             }
19            
20             sub key {
21 20 50   20 1 685 carp "this method should never be run", if (warnings::enabled);
22 20         18364 return;
23             }
24            
25             sub value {
26 60 50   60 1 1050 carp "this method should never be run", if (warnings::enabled);
27 60         57442 return;
28             }
29            
30             1;
31            
32             __END__