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/12/21 02:24:03 UTC
[lucy-commits] svn commit: r1221556 - in
/incubator/lucy/trunk/clownfish/perl/lib/Clownfish/Binding: Perl.pm
Perl/Class.pm Perl/Method.pm
Author: marvin
Date: Wed Dec 21 01:24:03 2011
New Revision: 1221556
URL: http://svn.apache.org/viewvc?rev=1221556&view=rev
Log:
Whitespace.
Modified:
incubator/lucy/trunk/clownfish/perl/lib/Clownfish/Binding/Perl.pm
incubator/lucy/trunk/clownfish/perl/lib/Clownfish/Binding/Perl/Class.pm
incubator/lucy/trunk/clownfish/perl/lib/Clownfish/Binding/Perl/Method.pm
Modified: incubator/lucy/trunk/clownfish/perl/lib/Clownfish/Binding/Perl.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/clownfish/perl/lib/Clownfish/Binding/Perl.pm?rev=1221556&r1=1221555&r2=1221556&view=diff
==============================================================================
--- incubator/lucy/trunk/clownfish/perl/lib/Clownfish/Binding/Perl.pm (original)
+++ incubator/lucy/trunk/clownfish/perl/lib/Clownfish/Binding/Perl.pm Wed Dec 21 01:24:03 2011
@@ -80,7 +80,7 @@ sub new {
sub write_bindings {
my $self = shift;
my $ordered = $self->{hierarchy}->ordered_classes;
- my $registered = Clownfish::Binding::Perl::Class->registered;
+ my $registered = Clownfish::Binding::Perl::Class->registered;
my $hand_rolled_xs = "";
my $generated_xs = "";
my $xs = "";
@@ -127,7 +127,7 @@ sub write_bindings {
next unless delete $has_methods{$class_name};
my $class_binding
= Clownfish::Binding::Perl::Class->singleton($class_name);
- my @bound = $class_binding->method_bindings;
+ my @bound = $class_binding->method_bindings;
$generated_xs .= $_->xsub_def . "\n" for @bound;
push @xsubs, @bound;
}
@@ -267,9 +267,9 @@ sub prepare_pod {
my %has_pod;
my %modified;
- my $registered = Clownfish::Binding::Perl::Class->registered;
+ my $registered = Clownfish::Binding::Perl::Class->registered;
$has_pod{ $_->get_class_name } = 1
- for grep { $_->get_make_pod } @$registered;
+ for grep { $_->get_make_pod } @$registered;
for my $class (@$ordered) {
my $class_name = $class->get_class_name;
Modified: incubator/lucy/trunk/clownfish/perl/lib/Clownfish/Binding/Perl/Class.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/clownfish/perl/lib/Clownfish/Binding/Perl/Class.pm?rev=1221556&r1=1221555&r2=1221556&view=diff
==============================================================================
--- incubator/lucy/trunk/clownfish/perl/lib/Clownfish/Binding/Perl/Class.pm (original)
+++ incubator/lucy/trunk/clownfish/perl/lib/Clownfish/Binding/Perl/Class.pm Wed Dec 21 01:24:03 2011
@@ -64,7 +64,7 @@ sub register {
}
sub registered { [ values %registry ] }
-sub singleton { $registry{ $_[1] } }
+sub singleton { $registry{ $_[1] } }
sub get_class_name { shift->{class_name} }
sub get_bind_methods { shift->{bind_methods} }
@@ -307,14 +307,14 @@ sub create_pod {
$inheritance_pod = "=head1 INHERITANCE\n\n";
$inheritance_pod .= $class->get_class_name;
for my $ancestor (@ancestors) {
- my $class_name = $ancestor->get_class_name;
+ my $class_name = $ancestor->get_class_name;
if ( $registry{$class_name} ) {
$inheritance_pod .= " isa L<$class_name>";
- }
+ }
else {
$inheritance_pod .= " isa $class_name";
}
- }
+ }
$inheritance_pod .= ".\n";
}
Modified: incubator/lucy/trunk/clownfish/perl/lib/Clownfish/Binding/Perl/Method.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/clownfish/perl/lib/Clownfish/Binding/Perl/Method.pm?rev=1221556&r1=1221555&r2=1221556&view=diff
==============================================================================
--- incubator/lucy/trunk/clownfish/perl/lib/Clownfish/Binding/Perl/Method.pm (original)
+++ incubator/lucy/trunk/clownfish/perl/lib/Clownfish/Binding/Perl/Method.pm Wed Dec 21 01:24:03 2011
@@ -33,9 +33,9 @@ sub new {
# Derive arguments to SUPER constructor from supplied Method.
my $method = delete $args{method};
- $args{param_list} ||= $method->get_param_list;
- $args{alias} ||= $method->micro_sym;
- $args{class_name} ||= $method->get_class_name;
+ $args{param_list} ||= $method->get_param_list;
+ $args{alias} ||= $method->micro_sym;
+ $args{class_name} ||= $method->get_class_name;
if ( !defined $args{use_labeled_params} ) {
$args{use_labeled_params}
= $method->get_param_list->num_vars > 2
@@ -142,7 +142,8 @@ sub _xsub_def_positional_args {
. qq|GvNAME(CvGV(cv))); } |;
}
else {
- $num_args_check = qq|if (items != $num_args) { |
+ $num_args_check
+ = qq|if (items != $num_args) { |
. qq|CFISH_THROW(CFISH_ERR, "Usage: %s($xs_name_list)", |
. qq|GvNAME(CvGV(cv))); } |;
}
@@ -207,9 +208,8 @@ sub _xsub_def_labeled_params {
my $body = $self->_xsub_body;
# Prepare error message for incorrect args.
- my $name_list = $self_var->micro_sym . ", ...";
- my $num_args_check
- = qq|if (items < 1) { |
+ my $name_list = $self_var->micro_sym . ", ...";
+ my $num_args_check = qq|if (items < 1) { |
. qq|CFISH_THROW(CFISH_ERR, "Usage: %s(self, ...)\", GvNAME(CvGV(cv))); }|;
return <<END_STUFF;