Re^6: 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
fixed module template, less Perl version dependencies, more flexible and untangled templating `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] <Reveal this spoiler or all in this thread> Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery}	[reply] [d/l] [select]

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]