File Coverage

lib/Heap/Elem/Str.pm
Criterion Covered Total %
statement 9 13 69.2
branch n/a
condition n/a
subroutine 3 5 60.0
pod 1 2 50.0
total 13 20 65.0


line stmt bran cond sub pod time code
1             package Heap::Elem::Str;
2              
3 1     1   27233 use strict;
  1         2  
  1         50  
4 1     1   6 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
  1         2  
  1         89  
5 1     1   337 use Heap::Elem;
  1         3  
  1         151  
6              
7             require Exporter;
8              
9             @ISA = qw(Exporter Heap::Elem);
10              
11             # No names exported.
12             @EXPORT = ( );
13              
14             # Available for export: StrElem (to allocate a new Heap::Elem::Str value)
15             @EXPORT_OK = qw( StrElem );
16              
17             $VERSION = '0.80';
18              
19             sub StrElem { # exportable synonym for new
20 0     0 0   Heap::Elem::Str->new(@_);
21             }
22              
23             # compare two Str elems
24             sub cmp {
25 0     0 1   my $self = shift;
26 0           my $other = shift;
27 0           return $_[0][0] cmp $_[1][0];
28             }
29              
30             1;
31             __END__