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

Ok... Care to elaborate with a quick code example?
  • Comment on Re^2: Comments and suggestions on new module

Replies are listed 'Best First'.
Re^3: Comments and suggestions on new module
by LTjake (Prior) on Sep 19, 2007 at 01:10 UTC 
    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)

[reply]
[d/l]
[select]
      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