1package Graph::MSTHeapElem;
2
3use strict;
4use vars qw($VERSION @ISA);
5use Heap071::Elem;
6
7use base 'Heap071::Elem';
8
9$VERSION = 0.01;
10
11sub new {
12    my $class = shift;
13    bless { u => $_[0], v => $_[1], w => $_[2] }, $class;
14}
15
16sub cmp {
17    ($_[0]->{ w } || 0) <=> ($_[1]->{ w } || 0);
18}
19
20sub val {
21    @{ $_[0] }{ qw(u v w) };
22}
23
241;
25