Lines Matching refs:foo
36 $ary{'foo'} = 'hi';
37 print defined($ary{'foo'}) ? "ok 10\n" : "not ok 10\n";
39 undef $ary{'foo'};
40 print defined($ary{'foo'}) ? "not ok 12\n" : "ok 12\n";
53 sub foo { print "ok 19\n"; }
55 &foo || print "not ok 19\n";
57 print defined &foo ? "ok 20\n" : "not ok 20\n";
58 undef &foo;
59 print defined(&foo) ? "not ok 21\n" : "ok 21\n";
69 tie my %foo, 'Tie::StdHash';
70 print defined %foo ? "ok 24\n" : "not ok 24\n";
71 %foo = ( a => 1 );
72 print defined %foo ? "ok 25\n" : "not ok 25\n";
77 tie my @foo, 'Tie::StdArray';
78 print defined @foo ? "ok 26\n" : "not ok 26\n";
79 @foo = ( a => 1 );
80 print defined @foo ? "ok 27\n" : "not ok 27\n";