File Coverage

lib/Heap/Elem/Num.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 2 50.0
total 17 18 94.4


line stmt bran cond sub pod time code
1             package Heap::Elem::Num;
2              
3 3     3   26123 use strict;
  3         5  
  3         180  
4 3     3   19 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
  3         6  
  3         243  
5 3     3   1031 use Heap::Elem;
  3         8  
  3         369  
6              
7             require Exporter;
8              
9             @ISA = qw(Exporter Heap::Elem);
10              
11             # No names exported.
12             @EXPORT = ( );
13              
14             # Available for export: NumElem (to allocate a new Heap::Elem::Num value)
15             @EXPORT_OK = qw( NumElem );
16              
17             $VERSION = '0.80';
18              
19             sub NumElem { # exportable synonym for new
20 98250     98250 0 540803 Heap::Elem::Num->new(@_);
21             }
22              
23             # compare two Num elems
24             sub cmp {
25 565298     565298 1 2438466 return $_[0][0] <=> $_[1][0];
26             }
27              
28             1;
29             __END__