20 clearer => 'clear_array',
21 trigger => sub { @TriggerArgs = @_ },
28 $foo->array( [ 1, 2, 3 ] );
32 [ $foo, [ 1, 2, 3 ] ],
33 'trigger was called for normal writer'
40 [ $foo, [ 1, 2, 3, 5 ], [ 1, 2, 3 ] ],
41 'trigger was called on push'
44 $foo->set_array( 1, 42 );
48 [ $foo, [ 1, 42, 3, 5 ], [ 1, 2, 3, 5 ] ],
49 'trigger was called on set'