/trunk/Examples/perl5/multiple_inheritance/runme.pl

 1# file: runme.pl
 2
 3# This file test multiple inheritance
 4
 5use example;
 6
 7$foo_Bar = new example::Foo_Bar();
 8
 9print "must be foo: ";
10$foo_Bar->foo();
11
12print "must be bar: ";
13$foo_Bar->bar();
14
15print "must be foobar: ";
16$foo_Bar->fooBar();