| Server IP : 104.21.94.62 / Your IP : 216.73.217.32 Web Server : Apache System : Linux semi1.us.cloudlogin.co 5.10.244-xeon-hst #1 SMP Sun Sep 14 17:09:20 UTC 2025 x86_64 User : xessglobal ( 271017) PHP Version : 8.1.33 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : OFF | Pkexec : ON Directory : /usr/share/perl5/vendor_perl/Graph/ |
Upload File : |
package Graph::SPTHeapElem;
use strict;
use vars qw($VERSION @ISA);
use Heap071::Elem;
use base 'Heap071::Elem';
sub new {
my $class = shift;
bless { u => $_[0], v => $_[1], w => $_[2] }, $class;
}
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;