Select Code to Download

  package Foo;
                                                                      
+                                                                     
+                 
  sub new {
...
      my ($self, @args) = @_;
      return map { ++$_ } @args;
  }

  # in package Foo
  sub wonk {
      my $self = shift;
      _fiddle($self, @_);
  }

                                                                      
+                                                             
  package Bar;
  use Foo;
...
      my $self = shift;
      $self->{_foo}->wonk(@_); # delegation!
  }