Lines Matching full:foo*
83 package Foo;
108 $a = Foo->new( 'High' => 42, 'Low' => 11 );
120 package Foo;
131 $a = Foo->new( 42 );
151 package Foo;
163 $a = Foo->new;
183 package Foo;
195 $a = Foo->new;
217 package Foo;
240 $foo = Foo->new;
241 $foo->mumble;
242 $foo->grr;
243 $foo->goo;
244 $foo->google;
247 (C<Foo>), not to the superclasses of C<$self>.
284 tie %foo, "Mydbm", "Sdbm", O_RDWR|O_CREAT, 0640;
285 $foo{'bar'} = 123;
286 print "foo-bar = $foo{'bar'}\n";
302 package FOO;
310 $self->FOO::private::BAZ;
313 package FOO::private;
321 $a = FOO->new;
324 Now we try to override the BAZ() method. We would like FOO::bar() to call
325 GOOP::BAZ(), but this cannot happen because FOO::bar() explicitly calls
326 FOO::private::BAZ().
328 package FOO;
336 $self->FOO::private::BAZ;
339 package FOO::private;
346 @ISA = qw( FOO );
361 To create reusable code we must modify class FOO, flattening class
362 FOO::private. The next example shows a reusable class FOO which allows the
363 method GOOP::BAZ() to be used in place of FOO::BAZ().
365 package FOO;
381 @ISA = qw( FOO );
429 # or %Foo::fizzle. The object already knows which
437 package Foo;
452 $b = Foo->new;
460 object will be a BAR not a FOO, even though the constructor is in class FOO.
462 package FOO;
471 print "in FOO::baz()\n";
475 @ISA = qw(FOO);
529 tie %foo, "Mydbm", "adbm", O_RDWR|O_CREAT, 0640;
530 $foo{'bar'} = 123;
531 print "foo-bar = $foo{'bar'}\n";