my $meth = My::Class::XXX->can( 'new' );
my $method = sub {
    $meth->( 'My::Class::XXX', @_ );
};