[lucy-commits] svn commit: r1066229 - /incubator/lucy/trunk/clownfish/lib/Clownfish/Method.pm

[ma...@apache.org]

Author: marvin
Date: Tue Feb  1 21:28:45 2011
New Revision: 1066229

URL: http://svn.apache.org/viewvc?rev=1066229&view=rev
Log:
Use explicit methods to fetch member var data rather than hash access within
finalize().

Modified:
    incubator/lucy/trunk/clownfish/lib/Clownfish/Method.pm

Modified: incubator/lucy/trunk/clownfish/lib/Clownfish/Method.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/clownfish/lib/Clownfish/Method.pm?rev=1066229&r1=1066228&r2=1066229&view=diff
==============================================================================
--- incubator/lucy/trunk/clownfish/lib/Clownfish/Method.pm (original)
+++ incubator/lucy/trunk/clownfish/lib/Clownfish/Method.pm Tue Feb  1 21:28:45 2011
@@ -175,12 +175,21 @@ sub compatible {
 
 sub finalize {
     my $self = shift;
-    my %args;
-    $args{$_} = $self->{$_} for keys %new_PARAMS;    # including short_typedef
-    $args{final} = 1;
-    my $finalized = $self->new(%args);
-    $finalized->{novel} = $self->{novel};
-    return $finalized;
+    return $self->new(
+        return_type   => $self->get_return_type,
+        class_name    => $self->get_class_name,
+        class_cnick   => $self->get_class_cnick,
+        param_list    => $self->get_param_list,
+        macro_sym     => $self->get_macro_sym,
+        docucomment   => $self->get_docucomment,
+        parcel        => $self->get_parcel,
+        abstract      => $self->abstract,
+        final         => $self->final,
+        exposure      => $self->get_exposure,
+        novel         => $self->novel,
+        short_typedef => $self->short_typedef,
+        final         => 1,
+    );
 }
 
 1;