projects
/
gitmo/Class-MOP.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
better
[gitmo/Class-MOP.git]
/
lib
/
Class
/
MOP
/
Attribute.pm
diff --git
a/lib/Class/MOP/Attribute.pm
b/lib/Class/MOP/Attribute.pm
index
305d70e
..
6f70615
100644
(file)
--- a/
lib/Class/MOP/Attribute.pm
+++ b/
lib/Class/MOP/Attribute.pm
@@
-61,7
+61,7
@@
sub clone {
}
sub initialize_instance_slot {
- my ($self, $instance, $params) = @_;
+ my ($self, $class, $instance, $params) = @_;
my $init_arg = $self->init_arg();
# try to fetch the init arg from the %params ...
my $val;