package One;

use Moose;

my $called_foo = 0;

sub get_called_foo { $called_foo }

has foo => (is => 'rw', required => 1, trigger => sub { $called_foo++ });

1;
