Add () signature to methods that were missing it.

rakudo · Apr 18, 2009 · 2562758 · 2562758
1 parent a58fce6
commit 2562758
Showing 1 changed file with 8 additions and 8 deletions.
diff --git a/src/setting/Any-str.pm b/src/setting/Any-str.pm
@@ -3,23 +3,23 @@ class Any is also {
         self.lc.subst(/\w+/, { .ucfirst }, :global)
     }
 
-    our Str multi method chop is export {
+    our Str multi method chop() is export {
         self.substr(0, -1)
     }
 
     our Str multi method fmt(Str $format) {
         sprintf($format, self)
     }
 
-    our Str multi method lc is export {
+    our Str multi method lc() is export {
         Q:PIR {
             $S0 = self
             downcase $S0
             %r = box $S0
         }
     }
 
-    our Str multi method lcfirst is export {
+    our Str multi method lcfirst() is export {
         self gt '' ?? self.substr(0,1).lc ~ self.substr(1) !! ""
     }
 
@@ -31,7 +31,7 @@ class Any is also {
         }
     }
 
-    our Int multi method p5chomp is export(:P5) {
+    our Int multi method p5chomp() is export(:P5) {
         my $num = 0;
 
         for @.list -> $str is rw {
@@ -45,7 +45,7 @@ class Any is also {
     }
 
     # TODO: Return type should be a Char once that is supported.
-    our Str multi method p5chop is export(:P5) {
+    our Str multi method p5chop() is export(:P5) {
         my $char = '';
 
         for @.list -> $str is rw {
@@ -141,19 +141,19 @@ class Any is also {
     }
 
     # TODO: signature not fully specced in S32 yet
-    our Str multi method trim is export {
+    our Str multi method trim() is export {
         (~self).subst(/(^\s+)|(\s+$)/, "", :g)
     }
 
-    our Str multi method uc is export {
+    our Str multi method uc() is export {
         Q:PIR {
             $S0 = self
             upcase $S0
             %r = box $S0
         }
     }
 
-    our Str multi method ucfirst is export {
+    our Str multi method ucfirst() is export {
         self gt '' ?? self.substr(0,1).uc ~ self.substr(1) !! ""
     }
 }