관리-도구

편집 파일: 08fieldhash.t

# $Id: 07magic.t,v 1.8 2007/04/20 05:40:48 ray Exp $ use strict; use warnings; use Clone 'clone'; BEGIN { use Test::More; eval { require Hash::Util::FieldHash; Hash::Util::FieldHash->import('fieldhash'); }; if ($@) { plan skip_all => 'Hash::Util::FieldHash not available'; } else { plan tests => 1; } } fieldhash my %hash; my $var = {}; exists $hash{ \$var }; my $cloned = clone($var); cmp_ok($cloned, '!=', $var);