t/lib/One.pm

   1 package One;
   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 1;