21 clearer => 'clear_array',
22 trigger => sub { @TriggerArgs = @_ },
29 $foo->array( [ 1, 2, 3 ] );
33 [ $foo, [ 1, 2, 3 ] ],
34 'trigger was called for normal writer'
41 [ $foo, [ 1, 2, 3, 5 ], [ 1, 2, 3 ] ],
42 'trigger was called on push'
45 $foo->set_array( 1, 42 );
49 [ $foo, [ 1, 42, 3, 5 ], [ 1, 2, 3, 5 ] ],
50 'trigger was called on set'