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;