Re^3: Comments and suggestions on new module

[LTjake]

package X;

our $PREF;

sub new {
    bless {}, $PREF;
}

package A;

sub foo {
    print __PACKAGE__;
}

package B;

sub foo {
    print __PACKAGE__;
}

package main;

$X::PREF = 'B';

my $o = X->new;

$o->foo;

Prints:

B

You can change $X::PREF = line to 'A' and it will print A.

[cosmicperl]

I see. I update with this style in my next release, glad I didn't add to many more features now.