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

package Two; # Exactly the same as One, just in a different package..

use Moose;

my $called_foo = 0;

sub get_called_foo { $called_foo }

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

__PACKAGE__->meta->make_immutable;

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