Lines Matching full:foo*
27 sub foo { $i = shift if @_; $i }
30 test { foo == 1 };
31 foo(2);
32 test { foo == 2 };
35 my $foo = sub {$i = shift if @_; $i };
37 test {&$foo() == 2 };
38 &$foo(3);
39 test {&$foo() == 3 };
41 test { foo == 3 and $i == 3};
51 $foo = bar(4);
53 test {&$foo() == 4 };
54 &$foo(6);
55 test {&$foo() == 6 };
69 $foo = bizz();
71 test {&$foo() == 7 };
72 &$foo(8);
73 test {&$foo() == 8 };
76 $foo = bizz(9);
78 test {&$foo(11)-1 == &$bar()};
80 my @foo;
83 $foo[$_] = sub {$i = shift if @_; $i };
87 &{$foo[0]}() == 0 and
88 &{$foo[1]}() == 1 and
89 &{$foo[2]}() == 2 and
90 &{$foo[3]}() == 3 and
91 &{$foo[4]}() == 4
95 &{$foo[$_]}(4-$_);
99 &{$foo[0]}() == 4 and
100 &{$foo[1]}() == 3 and
101 &{$foo[2]}() == 2 and
102 &{$foo[3]}() == 1 and
103 &{$foo[4]}() == 0
107 my @foo;
110 $foo[$_] = sub {$i = shift if @_; $i };
112 @foo;
115 @foo = barf();
117 &{$foo[0]}() == 0 and
118 &{$foo[1]}() == 1 and
119 &{$foo[2]}() == 2 and
120 &{$foo[3]}() == 3 and
121 &{$foo[4]}() == 4
125 &{$foo[$_]}(4-$_);
129 &{$foo[0]}() == 4 and
130 &{$foo[1]}() == 3 and
131 &{$foo[2]}() == 2 and
132 &{$foo[3]}() == 1 and
133 &{$foo[4]}() == 0
138 my %foo;
140 $foo{$n} = sub { $n eq $_[0] };
144 &{$foo{A}}('A') and
145 &{$foo{B}}('B') and
146 &{$foo{C}}('C') and
147 &{$foo{D}}('D') and
148 &{$foo{E}}('E')
152 $foo[$n] = sub { $n == $_[0] };
156 &{$foo[0]}(0) and
157 &{$foo[1]}(1) and
158 &{$foo[2]}(2) and
159 &{$foo[3]}(3) and
160 &{$foo[4]}(4)
164 $foo[$n] = sub {
171 $foo[0]->()->(0) and
172 $foo[1]->()->(1) and
173 $foo[2]->()->(2) and
174 $foo[3]->()->(3) and
175 $foo[4]->()->(4)
555 my $x = "foooobar";
585 # handy class: $x = Watch->new(\$foo,'bar')
586 # causes 'bar' to be appended to $foo when $x is destroyed