Lines Matching refs:names
113 my (%names, %names_copy);
114 %names = ('$' => 'Scalar', '@' => 'Array', # Grr '
116 %names_copy = %names;
117 ok (eq_hash (\%names, \%names_copy), "check we can copy our hash");
121 return eq_hash (\%names, \%args);
124 ok (in (%names), "pass hash into a method");
129 return eq_hash (\%names, \%args);
132 ok (main->in_method (%names), "pass hash into a method");
135 return %names;
139 ok (eq_hash (\%names, \%names_copy), "pass hash from a subroutine");
143 return %names;
147 ok (eq_hash (\%names, \%names_copy), "pass hash from a method");
153 %names_copy = in_out (%names);
155 ok (eq_hash (\%names, \%names_copy), "pass hash to and from a subroutine");
162 %names_copy = main->in_out_method (%names);
164 ok (eq_hash (\%names, \%names_copy), "pass hash to and from a method");
166 my %names_copy2 = %names;
167 ok (eq_hash (\%names, \%names_copy2), "check copy worked");
170 %names_copy = ('%', 'Associative Array', %names);
172 ok (eq_hash (\%names, \%names_copy), "duplicates at the start of a list");
175 %names_copy = ('*', 'Typeglob', %names);
180 %names_copy = ('%', 'Associative Array', '*', 'Endangered species', %names,