You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@lucy.apache.org by ma...@apache.org on 2011/07/22 19:06:03 UTC
[lucy-commits] svn commit: r1149652 -
/incubator/lucy/trunk/clownfish/lib/Clownfish/Binding/Perl/Subroutine.pm
Author: marvin
Date: Fri Jul 22 17:06:02 2011
New Revision: 1149652
URL: http://svn.apache.org/viewvc?rev=1149652&view=rev
Log:
Clear out some detritus.
Modified:
incubator/lucy/trunk/clownfish/lib/Clownfish/Binding/Perl/Subroutine.pm
Modified: incubator/lucy/trunk/clownfish/lib/Clownfish/Binding/Perl/Subroutine.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/clownfish/lib/Clownfish/Binding/Perl/Subroutine.pm?rev=1149652&r1=1149651&r2=1149652&view=diff
==============================================================================
--- incubator/lucy/trunk/clownfish/lib/Clownfish/Binding/Perl/Subroutine.pm (original)
+++ incubator/lucy/trunk/clownfish/lib/Clownfish/Binding/Perl/Subroutine.pm Fri Jul 22 17:06:02 2011
@@ -18,7 +18,6 @@ use warnings;
package Clownfish::Binding::Perl::Subroutine;
use Carp;
-use Scalar::Util qw( blessed );
use Clownfish::Class;
use Clownfish::Function;
use Clownfish::Method;
@@ -33,12 +32,6 @@ our %new_PARAMS = (
use_labeled_params => undef,
);
-our %param_list;
-our %class_name;
-our %alias;
-our %use_labeled_params;
-our %perl_name;
-
sub new {
my ( $either, %args ) = @_;
verify_args( \%new_PARAMS, %args ) or confess $@;