From cc0cc84d8563e2b801926e9a34e26dd5fd81810f Mon Sep 17 00:00:00 2001
From: doy <doy@tozt.net>
Date: Tue, 14 Apr 2009 00:08:22 -0500
Subject: comment

---
 lib/MooseX/NonMoose/Meta/Role/Constructor.pm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'lib')

diff --git a/lib/MooseX/NonMoose/Meta/Role/Constructor.pm b/lib/MooseX/NonMoose/Meta/Role/Constructor.pm
index d2efff1..7f7fd48 100644
--- a/lib/MooseX/NonMoose/Meta/Role/Constructor.pm
+++ b/lib/MooseX/NonMoose/Meta/Role/Constructor.pm
@@ -20,6 +20,9 @@ sub _generate_instance {
     my ($var, $class_var) = @_;
     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
     "my $var = bless $super_new_class->$new(\@_), $class_var;\n";
 }
 
-- 
cgit v1.2.3-54-g00ecf