Lines Matching refs:bar
40 $foo{'bar'} = 'y';
46 $refhash{"top"}->{"bar"} = "BAR";
48 delete $refhash{"top"}->{"bar"};
54 my %a = ('bar', 33);
56 my $b = \$a{bar};
57 my $c = \delete $a{bar};
81 @bar = delete @foo[4,5];
83 if (@bar == 2) {print "ok 24\n";} else {print "not ok 24 ", @bar+0, "\n";}
84 if ($bar[0] eq 'd') {print "ok 25\n";} else {print "not ok 25 ", $bar[0], "\n";}
85 if ($bar[1] eq 'e') {print "ok 26\n";} else {print "not ok 26 ", $bar[1], "\n";}
119 my $c = \delete $a[bar];