Commit | Line | Data |
8cfc65ef |
1 | package Two; # Exactly the same as One, just in a different package.. |
2 | |
3 | use Moose; |
4 | |
5 | my $called_foo = 0; |
6 | |
7 | sub get_called_foo { $called_foo } |
8 | |
9 | has foo => (is => 'rw', required => 1, trigger => sub { $called_foo++ }); |
10 | |
11 | __PACKAGE__->meta->make_immutable; |
12 | |
13 | 1; |