Help for this page

Select Code to Download

Select or download this

sub cmp_by {
    use Scalar::Util 'looks_like_number';
    my $result = 0;
...
    }
    return $result;
}