use Moose;

my $little_obj = Class->new( { get_big_obj_data => sub{ $big_object->get_data(@_) } } );

# retrieve data like this:
my $data = $little_obj->get_big_obj_data->(@args);