PageRenderTime 29ms CodeModel.GetById 26ms app.highlight 1ms RepoModel.GetById 1ms app.codeStats 0ms

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

#
Perl | 16 lines | 8 code | 6 blank | 2 comment | 0 complexity | 03949cdffcbfc679a01e3af33e680e22 MD5 | raw file
 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();