Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re^2: [Moose] extends(...) throws "Subroutine redefined" warnings

by muba (Priest)
on Oct 07, 2015 at 12:48 UTC ( #1144055=note: print w/replies, xml ) Need Help??


in reply to Re: [Moose] extends(...) throws "Subroutine redefined" warnings
in thread [Moose] extends(...) throws "Subroutine redefined" warnings

The thought has passed my mind briefly, I think, but I rejected it because I do want to be able to just use MyClass; and automatically have SubClass available.

However, it turns out you're right: if I move use SubClass out of MyClass.pm it just works fine. So I've come up with this workaround:

  • Have one wrapper package which loads all classes and subclasses
    (so that the script useing MyClass only needs one use statement to have it all)
  • Make it so that the wrapper package inherits all methods from the base class
    (so that all methods on the base class work when called on the wrapper package)
  • Have the base class as before, but without it useing its subclass, and now named 'BaseClass'
  • Have the subclass as before, but with extends 'BaseClass' instead.

# MyClass.pm package MyClass; use BaseClass; # load the base class use SubClass; # load the sub class (which now extends BaseClass) our @ISA = qw(BaseClass); # have all BaseClass methods work on MyClass 1;
# BaseClass.pm package BaseClass; use Moose; sub get_subclass_object { return SubClass->new; } 1;
# SubClass.pm package SubClass; use Moose; extends 'BaseClass'; 1;

Replies are listed 'Best First'.
Re^3: [Moose] extends(...) throws "Subroutine redefined" warnings
by MidLifeXis (Monsignor) on Oct 07, 2015 at 12:51 UTC

    It strikes me that your original scenario is along these lines (in non-Moose perl):

    # PkgA.pm use PkgB; ... 1;
    # PkgB.pm use PkgA; ... 1;

    It is a dependency loop.

    --MidLifeXis

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1144055]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (4)
As of 2019-04-22 10:53 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I am most likely to install a new module from CPAN if:
















    Results (112 votes). Check out past polls.

    Notices?