Well, not directly.

my $factory = (require My::Object::Module)->(foo => "bar");
[download]

Obviously,

package My::Object::Module;

sub factory { ... }

sub fake_import {
    # ...
    # ...
    return \&factory;
}

\&fake_import;
__END__
[download]

Makeshifts last the longest.