sub debug {
  our $self;  # Must be set by caller!
  $self->{'debug'}->(@_);
}

sub method1 {
  (local our $self) = @_;
  debug "Entering method1";
}