Lines Matching full:foo*
11 $struct = [{foo => 1, bar => 2}, "FOO", "BAR"];13 $a = $struct->{foo}; # This should warn.18 $a = $struct->{foo}; # This should warn.25 package Foo;27 use fields qw(foo bar);28 my $foo = fields::new('Foo');29 $foo->{foo} = 42;