#!perl -w
use strict;
use Test::More tests => 10;
use Hash::FieldHash qw(:all);
fieldhash my %hash;
my $r = {};
ok !delete $hash{$r};
is_deeply \%hash, {};
ok !exists $hash{$r};
is_deeply \%hash, {};
ok !$hash{$r};
is_deeply \%hash, {};
my $dummy = $hash{$r};
is_deeply \%hash, {};
ok !delete $hash{1};
ok !exists $hash{1};
ok !$hash{1};