Mailing List Archive

Author: creamyg
Date: 2008-08-05 16:35:47 -0700 (Tue, 05 Aug 2008)
New Revision: 3724

Modified:
trunk/boilerplater/lib/Boilerplater/Binding/Perl.pm
Log:
Don't indicate that "labeled params" are accepted by constructors which take
no arguments.


Modified: trunk/boilerplater/lib/Boilerplater/Binding/Perl.pm
===================================================================
--- trunk/boilerplater/lib/Boilerplater/Binding/Perl.pm 2008-08-05 17:33:59 UTC (rev 3723)
+++ trunk/boilerplater/lib/Boilerplater/Binding/Perl.pm 2008-08-05 23:35:47 UTC (rev 3724)
@@ -391,7 +391,7 @@
confess("No DocuComment for '$sub_name' in '$class_name'")
unless $docucom;

- if ( $num_vars > 2 or $args{is_constructor} ) {
+ if ( $num_vars > 2 or ( $args{is_constructor} && $num_vars > 1 ) ) {
$args = " I<[labeled params]> ";
}
elsif ( $param_list->num_vars ) {


_______________________________________________
kinosearch-commits mailing list
kinosearch-commits@rectangular.com
http://www.rectangular.com/mailman/listinfo/kinosearch-commits