projects
/
gitmo/MooseX-StrictConstructor.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Bump version
[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() }