{
  package foo;
  # ...
  my $subref;
  $subref=sub
  {
    my $self=shift;
    # ...
  };


  # ...

  sub dofoo
  {
    my $self=shift;

    # ...

    $subref->($self);

    #...
  }
}