package Heap::Simple::NumberReverse; $VERSION = "0.03"; use strict; sub _SMALLER { return "$_[1] > $_[2]"; } sub _INF { return -(9**9**9); } sub order { return ">"; } 1;