File Coverage

lib/Heap/Elem/NumRev.pm
Criterion Covered Total %
statement 10 11 90.9
branch n/a
condition n/a
subroutine 4 5 80.0
pod 1 2 50.0
total 15 18 83.3


line stmt bran cond sub pod time code
1             package Heap::Elem::NumRev;
2              
3 2     2   55795 use strict;
  2         4  
  2         70  
4 2     2   10 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
  2         10  
  2         163  
5 2     2   1059 use Heap::Elem;
  2         6  
  2         16930  
6              
7             require Exporter;
8              
9             @ISA = qw(Exporter Heap::Elem);
10              
11             # No names exported.
12             @EXPORT = ( );
13              
14             # Available for export: NumRElem (to allocate a new Heap::Elem::NumRev value)
15             @EXPORT_OK = qw( NumRElem );
16              
17             $VERSION = '0.80';
18              
19             sub NumRElem { # exportable synonym for new
20 0     0 0 0 Heap::Elem::NumRev->new(@_);
21             }
22              
23             # compare two NumR elems (reverse order)
24             sub cmp {
25 65200     65200 1 328230 return $_[1][0] <=> $_[0][0];
26             }
27              
28             1;
29             __END__