refactor this to use _eval_environment

[gitmo/Class-MOP.git] / lib / Class / MOP / Method / Constructor.pm

diff --git a/lib/Class/MOP/Method/Constructor.pm b/lib/Class/MOP/Method/Constructor.pm
index 56f38c5..687aed6 100644 (file)
--- a/lib/Class/MOP/Method/Constructor.pm
+++ b/lib/Class/MOP/Method/Constructor.pm
@@ -93,13 +93,16 @@ sub _generate_constructor_method {
     return sub { Class::MOP::Class->initialize(shift)->new_object(@_) }
 }
 
-sub _generate_constructor_method_inline {
+sub _eval_environment {
     my $self = shift;
-
     my $defaults = [map { $_->default } @{ $self->_attributes }];
-    my $close_over = {
+    return {
         '$defaults' => \$defaults,
     };
+}
+
+sub _generate_constructor_method_inline {
+    my $self = shift;
 
     my $meta = $self->associated_metaclass;
 
@@ -121,10 +124,7 @@ sub _generate_constructor_method_inline {
     warn join("\n", @source) if $self->options->{debug};
 
     my $code = try {
-        $self->_compile_code(
-            source      => \@source,
-            environment => $close_over,
-        );
+        $self->_compile_code(\@source);
     }
     catch {
         my $source = join("\n", @source);