diff options
| author | doy <doy@tozt.net> | 2009-04-20 21:04:34 -0500 |
|---|---|---|
| committer | doy <doy@tozt.net> | 2009-04-20 21:04:34 -0500 |
| commit | 08fad75a0f6236c337bbd28d7a629be902e40237 (patch) | |
| tree | d54becfead3da410c1e369060c83390f712ad2e3 /lib/MooseX/NonMoose | |
| parent | 71a7e65676fb2ff62ce8c11429981621cb864a95 (diff) | |
| download | moosex-nonmoose-08fad75a0f6236c337bbd28d7a629be902e40237.tar.gz moosex-nonmoose-08fad75a0f6236c337bbd28d7a629be902e40237.zip | |
better rationale for not messing with the meta-instance api right now
Diffstat (limited to 'lib/MooseX/NonMoose')
| -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"; } |