Be concise.
Be useful.
All contributions dictatorially edited by webmasters to match personal tastes.
Please do not paste any copyright violating material.
Please try to avoid dependencies to third-party libraries and frameworks.
boolean b = m.equals(n);
sub hcmp_numeric {
my ($h, $g) = @_;
my $hc = keys %$h;
my $gc = keys %$g;
return 0 unless $hc == $gc;
return 0 unless $hc == grep { exists $g->{$_} } keys %$h;
die 'non-scalar value detected'
if 0 < grep { ref $h->{$_} or ref $g->{$_} } keys %$h;
return 0 unless $hc == grep { $h->{$_} == $g->{$_} } keys %$h;
return 1;
}
b = m == n
b = m == n