X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FStrictConstructor%2FRole%2FObject.pm;fp=lib%2FMooseX%2FStrictConstructor%2FRole%2FObject.pm;h=861afa2721d9b010c566601d21f676ff40fc9cb8;hb=d78f8e746b0fc4ab8e44dfa9ea7dcc8f28cce880;hp=f755234fa21a544b306b676dbaafecb385d0d138;hpb=0bd5ddeb7949fd5c93ef38fdeed1f3ad4a4f91c2;p=gitmo%2FMooseX-StrictConstructor.git diff --git a/lib/MooseX/StrictConstructor/Role/Object.pm b/lib/MooseX/StrictConstructor/Role/Object.pm index f755234..861afa2 100644 --- a/lib/MooseX/StrictConstructor/Role/Object.pm +++ b/lib/MooseX/StrictConstructor/Role/Object.pm @@ -10,6 +10,7 @@ after 'BUILDALL' => sub { my $params = shift; my %attrs = ( + __INSTANCE__ => 1, map { $_ => 1 } grep {defined} map { $_->init_arg() } $self->meta()->get_all_attributes()