for my $method (
    qw/ TIEHASH STORE FETCH FIRSTKEY NEXTKEY 
        EXISTS CLEAR DELETE UNTIE DESTROY / )
{    
    no strict 'refs';
    my $super = 'SUPER::' . $method;
    *{ $method } = sub {
        my $self = shift;
        notify( $method );
       
        $self->$super( @_ );
    };
}