And my personal favourite...

around 'drive' => sub { my ($orig, $self, @params) = @_; $self->driver->put_on_helmet(); $self->$orig( @params ); $self->driver->take_off_helmet(); };