#-------------------------------------------
# Greater Than ($a > $b)
#-------------------------------------------
sub cmp_gt
{
    my ($a, $b) = @_;
    return 1 if !cmp_eq($a,$b) && $a > $b;
    return 0;
}

#-------------------------------------------
# Less Than ($a < $b)
#-------------------------------------------
sub cmp_lt
{
    my ($a, $b) = @_;
    return 1 if !cmp_eq($a,$b) && $a < $b;
    return 0;
}

#-------------------------------------------
# Equal To ($a == $b)
#-------------------------------------------
sub cmp_eq
{
    my ($a, $b) = @_;

    return 1 if $a == $b;       # Short circuit if rounding is not a problem

    # One-Thousandth of 1 percent of bigger value magnitude. (10^-5)
    my ($ma,$mb) = (abs($a),abs($b));
    my $piddly = 0.00001 * ($ma > $mb ? $ma : $mb);

    return 1 if abs($a-$b) <= $piddly;
    return 0;
}

#-------------------------------------------
# Greater Than or Equal To ($a >= $b)
#-------------------------------------------
sub cmp_gteq
{
    my ($a, $b) = @_;
    return cmp_gt($a,$b) || cmp_eq($a,$b);
}

#-------------------------------------------
# Less Than or Equal To ($a <= $b)
#-------------------------------------------
sub cmp_lteq
{
    my ($a, $b) = @_;
    return cmp_lt($a,$b) || cmp_eq($a,$b);
}