{
package Foo;
- use Class::Tiny;
+ use Moo;
has one => (is => 'rw', trigger => sub { push @::tr, $_[1] });
}
package Bar;
use Sub::Quote;
- use Class::Tiny;
+ use Moo;
has one => (is => 'rw', trigger => quote_sub q{ push @::tr, $_[1] });
}
run_for 'Bar';
+{
+ package Baz;
+
+ use Sub::Quote;
+ use Moo;
+
+ has one => (
+ is => 'rw',
+ trigger => quote_sub(q{ push @{$tr}, $_[1] }, { '$tr' => \\@::tr })
+ );
+}
+
+run_for 'Baz';
+
done_testing;