refactor this to use _eval_environment
Jesse Luehrs [Thu, 21 Oct 2010 06:44:18 +0000 (01:44 -0500)]
lib/Class/MOP/Method/Constructor.pm

index 56f38c5..687aed6 100644 (file)
@@ -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);