trAvis - MANAGER

Edit File: array_trigger.t

use strict; use warnings; use Test::More; { package Foo; use Moose; our @TriggerArgs; has array => ( traits => ['Array'], is => 'rw', isa => 'ArrayRef', handles => { push_array => 'push', set_array => 'set', }, clearer => 'clear_array', trigger => sub { @TriggerArgs = @_ }, ); } my $foo = Foo->new; { $foo->array( [ 1, 2, 3 ] ); is_deeply( \@Foo::TriggerArgs, [ $foo, [ 1, 2, 3 ] ], 'trigger was called for normal writer' ); $foo->push_array(5); is_deeply( \@Foo::TriggerArgs, [ $foo, [ 1, 2, 3, 5 ], [ 1, 2, 3 ] ], 'trigger was called on push' ); $foo->set_array( 1, 42 ); is_deeply( \@Foo::TriggerArgs, [ $foo, [ 1, 42, 3, 5 ], [ 1, 2, 3, 5 ] ], 'trigger was called on set' ); } done_testing;