Ignore __INSTANCE__ as constructor arg

[gitmo/MooseX-StrictConstructor.git] / lib / MooseX / StrictConstructor / Role / Meta / Method / Constructor.pm

diff --git a/lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm b/lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm
index 9c869e8..4000083 100644 (file)
--- a/lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm
+++ b/lib/MooseX/StrictConstructor/Role/Meta/Method/Constructor.pm
@@ -15,6 +15,7 @@ around '_generate_BUILDALL' => sub {
     $source .= ";\n" if $source;
 
     my @attrs = (
+        "__INSTANCE__ => 1",
         map  {"$_ => 1,"}
         grep {defined}
         map  { $_->init_arg() } @{ $self->_attributes() }