Help for this page
sub { $_[0]->le($_[1]) }
package Numeric; sub le { ... } package MyInt; our @ISA = qw(Math::BigInt Numeric);