19 delete_key => 'delete',
22 clearer => 'clear_key',
23 trigger => sub { @TriggerArgs = @_ },
30 $foo->hash( { x => 1, y => 2 } );
34 [ $foo, { x => 1, y => 2 } ],
35 'trigger was called for normal writer'
38 $foo->set_key( z => 5 );
42 [ $foo, { x => 1, y => 2, z => 5 }, { x => 1, y => 2 } ],
43 'trigger was called on set'
46 $foo->delete_key('y');
50 [ $foo, { x => 1, z => 5 }, { x => 1, y => 2, z => 5 } ],
51 'trigger was called on delete'