/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. 

  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.