18 delete_key => 'delete',
21 clearer => 'clear_key',
22 trigger => sub { @TriggerArgs = @_ },
29 $foo->hash( { x => 1, y => 2 } );
33 [ $foo, { x => 1, y => 2 } ],
34 'trigger was called for normal writer'
37 $foo->set_key( z => 5 );
41 [ $foo, { x => 1, y => 2, z => 5 }, { x => 1, y => 2 } ],
42 'trigger was called on set'
45 $foo->delete_key('y');
49 [ $foo, { x => 1, z => 5 }, { x => 1, y => 2, z => 5 } ],
50 'trigger was called on delete'