#!perl -w

use strict;
use Test::More tests => 4;

#use Hash::Util::FieldHash::Compat qw(fieldhash fieldhashes);
use Hash::FieldHash qw(:all);

{
	package T;
	use overload '""' => sub{ die 'stringify' };

	sub new{ bless {}, @_ }
}

fieldhash my %hash;

ok !exists $hash{T->new};
is_deeply \%hash, {};

{
	my $t = T->new;
	$hash{$t} = 42;
	is_deeply [values %hash], [42];
}

is_deeply \%hash, {};