[gitmo/MooseX-Antlers.git] / t / lib / One.pm

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;
Commit	Line	Data
a39b801f	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;