sub method {
   my ($self) = shift;
   my $object = Object->new;
   $object->method2($self,@other_args);
}