return defined $result ? 1 : 0;

##</code><code>##

my $cmp = $x > $y ? 1 : $x == $y ? 0 : -1;