Re^2: Cancel/no-op a require

:) (obvious pun avoided)

My problem at hand is actually grok-ing the @INC import hook API and avoiding duplicate importing. I'm trying to add a feature to Log::Any::For::Package to install import hook. If user specifies Foo::* in the list of packages to add logging to, then after some Foo::* module is loaded, I want the hook to add logging to the newly loaded package automatically. With this:

unshift @INC, sub {
    my ($self, $name) = @_;
    
    # load the module first
    local @INC = grep { !ref($_) || $_ != $self } @INC;
    require $name;

    # add logging to the package

    # instruct Perl to not load the module again
};
[download]

Perl is loading the module twice, resulting in "subroutine X redefined" errors.

This works, BTW, though I'm not sure it is proper (or even, exactly how).

unshift @INC, sub {
    my ($self, $name) = @_;
    
    $INC{$name} = 1;

    # load the module first
    local @INC = grep { !ref($_) || $_ != $self } @INC;
    require $name;

    # add logging to the package

    return ();
};
[download]

Comment on Re^2: Cancel/no-op a require Select or Download Code

Replies are listed 'Best First'.
Re^3: Cancel/no-op a require by sedusedan (Pilgrim) on Dec 07, 2012 at 14:06 UTC
OK, so now the correct incantation should be: `unshift @INC, sub { my ($self, $name) = @_; # load the module first local @INC = grep { !ref($_) \|\| $_ != $self } @INC; require $name; # add logging to the package # ignore this hook my $line = 0; return sub { unless ($line++) { $_ = "1;\n"; return 1; } return 0; } };` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: Cancel/no-op a require
by sedusedan (Pilgrim) on Dec 07, 2012 at 14:06 UTC

OK, so now the correct incantation should be:

unshift @INC, sub {
    my ($self, $name) = @_;
    
    # load the module first
    local @INC = grep { !ref($_) || $_ != $self } @INC;
    require $name;

    # add logging to the package

    # ignore this hook
    my $line = 0;
    return sub {
        unless ($line++) {
            $_ = "1;\n";
            return 1;
        }
        return 0;
    }
};
[download]

[reply]
[d/l]