X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Antlers.git;a=blobdiff_plain;f=t%2Flib%2FOne.pm;fp=t%2Flib%2FOne.pm;h=519e901c89b2985b7bf14fee5ccd62b3f145885c;hp=0000000000000000000000000000000000000000;hb=a39b801f07ae3f019341068c428f1360efeb9886;hpb=b0fc4a7ab8621aeee2cf26874a5f2395b46af10c diff --git a/t/lib/One.pm b/t/lib/One.pm new file mode 100644 index 0000000..519e901 --- /dev/null +++ b/t/lib/One.pm @@ -0,0 +1,11 @@ +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;