Lines Matching defs:Foo
14 package Foo;
24 is_deeply( [sort keys %Foo::FIELDS],
36 is_deeply( [sort &show_fields('Foo', fields::PUBLIC)],
38 is_deeply( [sort &show_fields('Foo', fields::PRIVATE)],
42 eval q(my Foo $obj = Foo->new; $obj->{notthere} = "");
50 foreach (Foo->new) {
51 my Foo $obj = $_;
82 package Foo::Autoviv;
87 my Foo::Autoviv $a = Foo::Autoviv->new();