Re^6: require() @INC hooks problem


more useful options
	PerlMonks

Re^6: require() @INC hooks problem

by LanX (Saint)

on Dec 28, 2020 at 16:35 UTC ( [id://11125877]=note: print w/replies, xml )

Need Help??

in reply to Re^5: require() @INC hooks problem
in thread require() @INC hooks problem

here tested code

use strict;
use warnings;
use Data::Dump qw/pp dd/;


sub create_class {
    my ($class) = @_;

    my $source = <<"__CODE__";

    package $class;

    sub import {
        warn "$class imported";
    }

__CODE__


    eval $source;

    my $name = $class =~ s(::)(\/)gr;

    $INC{"$name.pm"} = 'imported via eval';
}


BEGIN {
    create_class('Jabba::Dabba');
}

pp \%INC;

use Jabba::Dabba;
[download]

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery}

Comment on Re^6: require() @INC hooks problem Select or Download Code

Replies are listed 'Best First'.

Re^7: require() @INC hooks problem
by LanX (Saint) on Dec 28, 2020 at 17:04 UTC

use strict;
use warnings;
use Data::Dumper;



sub test_tmpl {
    my ($name) = @_;

    return $name, <<"__CODE__";

package $name;

sub import {
    warn "$name imported";
}

1;

__CODE__

}

sub create_module {
    my ( $module, $source ) = @_;

    eval $source;

    (my $name = $module)
      =~ s(::)(\/)g;

    my @caller = caller();

    $INC{"$name.pm"} = "imported via eval at @caller";
}


BEGIN {
    create_module( test_tmpl('Jabba::Dabba') );
}

use Jabba::Dabba;

warn Dumper \%INC;
[download]

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery}

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom