Help for this page

Select Code to Download


  1. or download this
    package Baseclass;
use strict;
...
    return bless {},$class;
}
1;
  2. or download this
    package Subclass1;

...
}
print "load Subclass1\n";
1;
  3. or download this
    use strict;
use warnings;
...

my $obj = Subclass1->new;
1;
  4. or download this
    Load Subclass1
load Baseclass
Subroutine new redefined at Subclass1.pm line 11.
Load Subclass1