Break it, Class::MOP::Method is losing its overloading somehow. Moving to 5.10 to...

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

diff --git a/t/lib/Three.pm b/t/lib/Three.pm
new file mode 100644 (file)
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;