Lines Matching refs:foo
18 sub foo { $i = shift if @_; $i }
21 is(foo, 1);
22 foo(2);
23 is(foo, 2);
26 my $foo = sub {$i = shift if @_; $i };
28 is(&$foo(), 2);
29 &$foo(3);
30 is(&$foo(), 3);
32 is(foo, 3, 'lexical changed');
43 $foo = bar(4);
45 is(&$foo(), 4);
46 &$foo(6);
47 is(&$foo(), 6);
61 $foo = bizz();
63 is(&$foo(), 7);
64 &$foo(8);
65 is(&$foo(), 8);
68 $foo = bizz(9);
70 is(&$foo(11)-1, &$bar());
72 my @foo;
75 $foo[$_] = sub {$i = shift if @_; $i };
78 is(&{$foo[0]}(), 0);
79 is(&{$foo[1]}(), 1);
80 is(&{$foo[2]}(), 2);
81 is(&{$foo[3]}(), 3);
82 is(&{$foo[4]}(), 4);
85 &{$foo[$_]}(4-$_);
88 is(&{$foo[0]}(), 4);
89 is(&{$foo[1]}(), 3);
90 is(&{$foo[2]}(), 2);
91 is(&{$foo[3]}(), 1);
92 is(&{$foo[4]}(), 0);
95 my @foo;
98 $foo[$_] = sub {$i = shift if @_; $i };
100 @foo;
103 @foo = barf();
104 is(&{$foo[0]}(), 0);
105 is(&{$foo[1]}(), 1);
106 is(&{$foo[2]}(), 2);
107 is(&{$foo[3]}(), 3);
108 is(&{$foo[4]}(), 4);
111 &{$foo[$_]}(4-$_);
114 is(&{$foo[0]}(), 4);
115 is(&{$foo[1]}(), 3);
116 is(&{$foo[2]}(), 2);
117 is(&{$foo[3]}(), 1);
118 is(&{$foo[4]}(), 0);
122 my %foo;
124 $foo{$n} = sub { $n eq $_[0] };
127 ok(&{$foo{A}}('A'));
128 ok(&{$foo{B}}('B'));
129 ok(&{$foo{C}}('C'));
130 ok(&{$foo{D}}('D'));
131 ok(&{$foo{E}}('E'));
134 $foo[$n] = sub { $n == $_[0] };
137 ok(&{$foo[0]}(0));
138 ok(&{$foo[1]}(1));
139 ok(&{$foo[2]}(2));
140 ok(&{$foo[3]}(3));
141 ok(&{$foo[4]}(4));
144 $foo[$n] = sub {
150 ok($foo[0]->()->(0));
151 ok($foo[1]->()->(1));
152 ok($foo[2]->()->(2));
153 ok($foo[3]->()->(3));
154 ok($foo[4]->()->(4));