in reply to Re: Catalyst reload, 'use parent' and mro c3
in thread Catalyst reload, 'use parent' and mro c3 (UPD: NOT Catalyst)

Probably just clear @ISA manually?
Yes, that would work. Sad that I should insert this line too all of hundreds of files.
  • Comment on Re^2: Catalyst reload, 'use parent' and mro c3

Replies are listed 'Best First'.
Re^3: Catalyst reload, 'use parent' and mro c3
by Anonymous Monk on Dec 23, 2015 at 20:14 UTC
    Well, you can fix parent.pm instead... it's a very simple module: 
    package parent;
use strict;
use vars qw($VERSION);
$VERSION = '0.232';

sub import {
    my $class = shift;

    my $inheritor = caller(0);

    if ( @_ and $_[0] eq '-norequire' ) {
        shift @_;
    }
    else {
        for ( my @filename = @_ ) {
            if ( $_ eq $inheritor ) {
                warn
                  "Class '$inheritor' tried to inherit from itself\n";
            }

            s{::|'}{/}g;
            require "$_.pm";    # dies if the file is not found
        }
    }

    {
        no strict 'refs';
        my %ISA = map { $_ => 1 } @{"$inheritor\::ISA"};
        for (@_) {
            push @{"$inheritor\::ISA"}, $_
              if not $ISA{$_};
        }
    };
}

1;

    [download]
    just put it somewhere in @INC before the standard one, and let us know if it works :)
[reply]
[d/l]
[select]
      code looks good.
      just put it somewhere in @INC before the standard one
      probably better monkey-patch this: redefine and "sub import" in package "parent" somewhere in existing code (not in new "parent.pm") in order to not to make deploy more complicated. or even do this in catalyst dev-mode only.
[reply]
      Is this still a parent.pm bug?
[reply]

In Section Seekers of Perl Wisdom