File Coverage

lib/Heap/Elem/StrRev.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

package Heap::Elem::StrRev;

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
use Heap::Elem;

require Exporter;

@ISA = qw(Exporter Heap::Elem);

# No names exported.
@EXPORT = ( );

# Available for export: StrRElem (to allocate a new Heap::Elem::StrRev value)
@EXPORT_OK = qw( StrRElem );

$VERSION = '0.80';


sub StrRElem {	# exportable synonym for new
    Heap::Elem::StrRev->new(@_);
}

# compare two StrR elems (reverse order)
sub cmp {
    my $self = shift;
    my $other = shift;
    return $_[1][0] cmp $_[0][0];
}

1;
__END__