File Coverage

blib/lib/Graph/SPTHeapElem.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch	3	4	75.0
condition	5	7	71.4
subroutine	6	6	100.0
pod	0	4	0.0
total	27	34	79.4

package Graph::SPTHeapElem;

use strict;
use warnings;

sub new {
    my $class = shift;
    bless { u => $_[0], v => $_[1], w => $_[2] }, $class;
}

sub heap {
    my $self = shift;
    @_ ? ($self->{heap} = shift) : $self->{heap};
}

sub cmp {
    ($_[0]->{ w } || 0) <=> ($_[1]->{ w } || 0) ||
    ($_[0]->{ u } cmp $_[1]->{ u }) ||
    ($_[0]->{ u } cmp $_[1]->{ v });
}

sub val {
    @{ $_[0] }{ qw(u v w) };
}

1;