package Thingy;

sub method
{
  my $self = shift;
  $self->del->method($self, @_);
}

pakage Delegate;

sub method
{
  my $self = shift;
  my $parent = shift;

  # in here we completely ignore $self and do
  # lots of manipulation of $parent
}