It could be as simple as:

use vars '@EXPORT';

@EXPORT = qw( list of methods to curry );

sub import
{
    my $class          = shift;
    my $curried_object = $class->new();
    my $caller         = caller();

    for my $export ( @EXPORT )
    {
        *{ $caller . "::$export" } = sub { $curried_object->$export( @
+_ ) };
    }
}
[download]