sub foo::bar {
  my ( $self ) = shift;
  $self->foo(@_);
}