Lines Matching refs:ref
25 my $ref = []; my $ref1 = [];
79 test(ref($h) eq 'Tie::RefHash');
81 $h{$ref} = 'cholet';
82 test($h{$ref} eq 'cholet');
83 test(exists $h{$ref});
85 test(ref((keys %h)[0]) eq 'ARRAY');
86 test((keys %h)[0] eq $ref);
92 test(ref($k) eq 'ARRAY');
93 test($k eq $ref);
97 delete $h{$ref};
98 test(not defined $h{$ref});
99 test(not exists($h{$ref}));
113 test(ref($h) eq 'Tie::RefHash::Nestable');
115 $h{$ref}->{$ref1} = 'bungo';
116 test($h{$ref}->{$ref1} eq 'bungo');
119 test(defined(tied(%{$h{$ref}}))
120 and tied(%{$h{$ref}}) =~ /^Tie::RefHash::Nestable=/ );
123 test((keys %h)[0] eq $ref);
124 test((keys %{$h{$ref}}) == 1);
125 test((keys %{$h{$ref}})[0] eq $ref1);
132 undef $ref;
192 test(ref($h) eq $class);
230 # %h and give a scalar return value. The global $ref and $ref1 may
275 foreach my $value ((map { dumped($_) } @things), '$ref') {