mstheapelem.pm

来自「nasm早期的源代码,比较简单是学习汇编和编译原理的好例子」· PM 代码 · 共 25 行

package Graph::MSTHeapElem;

use strict;
use vars qw($VERSION @ISA);
use Heap071::Elem;

use base 'Heap071::Elem';

$VERSION = 0.01;

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

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

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

1;