diff options
Diffstat (limited to 'Examples/perl5/multiple_inheritance/runme.pl')
| -rw-r--r-- | Examples/perl5/multiple_inheritance/runme.pl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/Examples/perl5/multiple_inheritance/runme.pl b/Examples/perl5/multiple_inheritance/runme.pl new file mode 100644 index 0000000..a1130c6 --- /dev/null +++ b/Examples/perl5/multiple_inheritance/runme.pl @@ -0,0 +1,16 @@ +# 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(); |