sub create_class {
    my ($class) = @_;
    my $source = <<~EOF;
            package $class;
            use parent 'MooselessRequireHookTest';
            1;
            EOF
    
    eval $source;
    
    my $name = $class =~ s(::)(\/)gr;
     
    $INC{"$name.pm"} = 'imported via eval';
}