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

• package Heap::Simple::Number
  • _SMALLER
  • _INF
  • order
• EOF

package Heap::Simple::Number;
$VERSION = "0.03";
use strict;

sub _SMALLER {
    return "$_[1] < $_[2]";
}

sub _INF {
    return 9**9**9;
}

sub order {
    return "<";
}

1;