File Coverage

lib/Heap/Elem.pm

Criterion	Covered	Total	%
statement	13	14	92.8
branch	6	8	75.0
condition	1	3	33.3
subroutine	5	6	83.3
pod	4	4	100.0
total	29	35	82.8

package Heap::Elem;

use strict;
use vars qw($VERSION);

$VERSION = '0.80';

sub new {
    my $class = shift;
    $class = ref($class) || $class;

    # value is undef, single scalar, or hash depending upon args
    my $val = (@_ > 1) ? { @_ }
	    : @_       ? $_[0]
	    :            undef;

    # two slot array, 0 for the element's own value, 1 for use by Heap
    my $self = [ $val, undef ];

    return bless $self, $class;
}


# get or set value slot
sub val {
    @_ > 1 ? ($_[0][0] = $_[1]) : $_[0][0];
}

# get or set heap slot
sub heap {
    @_ > 1 ? ($_[0][1] = $_[1]) : $_[0][1];
}

sub cmp {
    die "This cmp method must be superceded by one that knows how to compare elements."
}

1;
__END__