X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Antlers.git;a=blobdiff_plain;f=t%2Flib%2FThree.pm;fp=t%2Flib%2FThree.pm;h=064449fbf168e77082ecf7a21e6677919d5e562d;hp=0000000000000000000000000000000000000000;hb=8cfc65ef84dba460dab41a5324f7b2c4b2aa1af5;hpb=047f26f17ea6b2182a8ef417910c7424214f3a54

diff --git a/t/lib/Three.pm b/t/lib/Three.pm
new file mode 100644
index 0000000..064449f
--- /dev/null
+++ b/t/lib/Three.pm
@@ -0,0 +1,23 @@
+package Three;
+
+use Moose;
+
+my $called_foo = 0;
+
+sub get_called_foo { $called_foo }
+
+has foo => (is => 'rw', required => 1 );
+
+sub BUILD {
+    my $self = shift;
+    $self->foo(42);
+}
+
+#before foo => sub {
+#    my ($self, $val) = @_;
+#    $called_foo++ if $val;
+#};
+
+__PACKAGE__->meta->make_immutable;
+
+1;