File Coverage

lib/Heap/Elem/Ref.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::Ref;
2              
3 1     1   70059 use strict;
  1         2  
  1         48  
4 1     1   6 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
  1         2  
  1         90  
5 1     1   316 use Heap::Elem;
  1         2  
  1         336  
6              
7             require Exporter;
8              
9             @ISA = qw(Exporter Heap::Elem);
10              
11             # No names exported.
12             @EXPORT = ( );
13              
14             # Available for export: RefElem (to allocate a new Heap::Elem::Ref value)
15             @EXPORT_OK = qw( RefElem );
16              
17             $VERSION = '0.80';
18              
19             sub RefElem { # exportable synonym for new
20 0     0 0   Heap::Elem::Ref->new(@_);
21             }
22              
23             # compare two Ref elems - the objects must have a compatible cmp method
24             sub cmp {
25 0     0 1   return $_[0][0]->cmp( $_[1][0] );
26             }
27              
28             1;
29             __END__