File Coverage

lib/Heap/Elem/RefRev.pm
Criterion Covered Total %
statement 9 11 81.8
branch n/a
condition n/a
subroutine 3 5 60.0
pod 1 2 50.0
total 13 18 72.2


line stmt bran cond sub pod time code
1             package Heap::Elem::RefRev;
2              
3 1     1   22201 use strict;
  1         2  
  1         42  
4 1     1   5 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
  1         2  
  1         76  
5 1     1   265 use Heap::Elem;
  1         2  
  1         137  
6              
7             require Exporter;
8              
9             @ISA = qw(Exporter Heap::Elem);
10              
11             # No names exported.
12             @EXPORT = ( );
13              
14             # Available for export: RefRElem (to allocate a new Heap::Elem::RefRev value)
15             @EXPORT_OK = qw( RefRElem );
16              
17             $VERSION = '0.80';
18              
19             sub RefRElem { # exportable synonym for new
20 0     0 0   Heap::Elem::RefRev->new(@_);
21             }
22              
23             # compare two RefRev elems - the objects must have a compatible cmp method
24             sub cmp {
25 0     0 1   return $_[1][0]->cmp( $_[0][0] );
26             }
27              
28             1;
29             __END__