/trunk/Examples/perl5/multiple_inheritance/runme.pl
# · Perl · 16 lines · 8 code · 6 blank · 2 comment · 0 complexity · 03949cdffcbfc679a01e3af33e680e22 MD5 · raw file
- # file: runme.pl
- # This file test multiple inheritance
- use example;
- $foo_Bar = new example::Foo_Bar();
- print "must be foo: ";
- $foo_Bar->foo();
- print "must be bar: ";
- $foo_Bar->bar();
- print "must be foobar: ";
- $foo_Bar->fooBar();