t/lib/Two.pm

   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;