{ my $accept = \&Mail::Audit::accept; local *Mail::Audit::accept; *Mail::Audit::accept = sub { die "My accept is running\n"; my $self = shift; $self->$accept( @_ ); }; $item->accept(); }