Re^2: [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;
[download]

# BaseClass.pm
package BaseClass;
use Moose;

sub get_subclass_object {
    return SubClass->new;
}
1;
[download]

# SubClass.pm
package SubClass;
use Moose;

extends 'BaseClass';

1;
[download]

Comment on Re^2: [Moose] extends(...) throws "Subroutine redefined" warnings Select or Download Code

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;` [download] `# PkgB.pm use PkgA; ... 1;` [download] It is a dependency loop. --MidLifeXis	[reply] [d/l] [select]


Perl Monk, Perl Meditation
	PerlMonks