/usr/local/CPAN/Heap-Simple-Perl/Heap/Simple/Less.pm

• package Heap::Simple::Less
  • _ORDER_PREPARE
  • _SMALLER
  • order
• EOF

package Heap::Simple::Less;
$VERSION = "0.02";
use strict;

sub _ORDER_PREPARE {
    return "my \$order = \$heap->[0]{order};";
}

sub _SMALLER {
    return "\$order->($_[1], $_[2])";
}

sub order {
    return shift->[0]{order};
}

1;