PageRenderTime 44ms CodeModel.GetById 18ms RepoModel.GetById 0ms 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
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0 
    

  1. # file: runme.pl
    2. 

  2. 

  3. # This file test multiple inheritance
    4. 

  4. 

  5. use example;
    6. 

  6. 

  7. $foo_Bar = new example::Foo_Bar();
    8. 

  8. 

  9. print "must be foo: ";
    10. 

  10. $foo_Bar->foo();
    11. 

  11. 

  12. print "must be bar: ";
    13. 

  13. $foo_Bar->bar();
    14. 

  14. 

  15. print "must be foobar: ";
    16. 

  16. $foo_Bar->fooBar();
    17. 

  17.