Use $.key rather than self.key etc in Pair.pm; improvement suggested …

…by moritz++.
rakudo · Feb 24, 2009 · 70d9081 · 70d9081
1 parent e074bf4
commit 70d9081
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/src/setting/Pair.pm b/src/setting/Pair.pm
@@ -7,8 +7,8 @@ Delegates on to a method call '.:Xkey(Xval)'.
 
 =end item
     method ACCEPTS($topic) {
-        my $meth_name = ':' ~ self.key;
-        return $topic."$meth_name"(self.value);
+        my $meth_name = ':' ~ $.key;
+        return $topic."$meth_name"($.value);
     }
 
 =begin item fmt
@@ -20,7 +20,7 @@ the key and value.
 
 =end item
     method fmt(Str $format) {
-        return sprintf($format, self.key, self.value);
+        return sprintf($format, $.key, $.value);
     }
 
 =begin item key
@@ -38,7 +38,7 @@ Return key and value as a 2-element List.
 
 =end item
     method kv() {
-        return list(self.key, self.value);
+        return list($.key, $.value);
     }
 
 =begin item pairs
@@ -63,7 +63,7 @@ Returns a Perl code representation of the pair.
 
 =end item
     method perl() {
-        return self.key.perl ~ ' => ' ~ self.value.perl;
+        return $.key.perl ~ ' => ' ~ $.value.perl;
     }
 
 }