Re^3: Comments and suggestions on new module

in reply to Re^2: Comments and suggestions on new module
in thread Comments and suggestions on new module

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;
[download]

Prints:

B
[download]

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

--
"Go up to the next female stranger you see and tell her that her "body is a wonderland."
My hypothesis is that she’ll be too busy laughing at you to even bother slapping you." (src)

Comment on Re^3: Comments and suggestions on new module Select or Download Code

Replies are listed 'Best First'.
Re^4: Comments and suggestions on new module by cosmicperl (Chaplain) on Sep 20, 2007 at 14:33 UTC
I see. I update with this style in my next release, glad I didn't add to many more features now.	[reply]

In Section Seekers of Perl Wisdom