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;