sub equals {
    my ($val1,$val2) = @_;
    return (!defined $val1 && !defined $val2)
        || ($val1 eq $val2)
        || ($val1 == $val2)
};