diff options
-rw-r--r-- | lib/MooseX/NonMoose/Meta/Role/Constructor.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/MooseX/NonMoose/Meta/Role/Constructor.pm b/lib/MooseX/NonMoose/Meta/Role/Constructor.pm index 75b6641..cf7083c 100644 --- a/lib/MooseX/NonMoose/Meta/Role/Constructor.pm +++ b/lib/MooseX/NonMoose/Meta/Role/Constructor.pm @@ -22,8 +22,9 @@ sub _generate_instance { my $new = $self->name; my $super_new_class = $self->associated_metaclass->find_next_method_by_name($new)->package_name; # XXX: this should probably be taking something from the meta-instance api, - # rather than calling bless directly, but all it can do at the moment is - # generate fresh instances + # rather than calling bless directly, but this works fine for now, and i + # want to wait for the whole immutablization stuff to settle down before + # digging too deeply into it "my $var = bless $super_new_class->$new(\@_), $class_var;\n"; } |