sub import { 
    my $caller = caller(0);
    $caller = "::$caller" if $caller !~ m{::};
    no strict 'refs';
    *{$caller} = sub { unshift @_, $caller; goto &{"$caller\::new"} };
}