Help for this page

Select Code to Download

Select or download this

    package AbstractFoo;
    ...
    sub new {
...
            if $package eq __PACKAGE__;
        bless { @_ }, $package;
    }