Changeset 3248

Timestamp:

05/15/05 12:08:08 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

4802

Message:

* make Locale::KeyedText? use the correct .:method and deref syntax.

Files:

• ext/Locale-KeyedText/lib/Locale/KeyedText.pm (modified) (4 diffs)

ext/Locale-KeyedText/lib/Locale/KeyedText.pm

@@ -90 +90 @@
 
 method get_message_key( $message: ) returns Str {
-        return $message:msg_key; # $message.:msg_key
+        return $message.:msg_key;
 }
 
 method get_message_variable( $message: Str $var_name ) returns Str {
         $var_name.defined or return;
-        return $message:msg_vars{$var_name}; # $message.:msg_vars{$var_name}
-}
-
-method get_message_variables( $message: ) returns Hash { # returns Hash of Str
-        return $message:msg_vars; # copy list values; new hash ref puts attr in list context, so it flattens
-        # return {$message.:msg_vars};
+        return $message.:msg_vars{$var_name};
+}
+
+method get_message_variables( $message: ) returns Hash of Str {
+        return hash %{$message.:msg_vars}; # copy list values
 }
 
@@ -107 +106 @@
 method as_string( $message: ) returns Str {
         # This method is intended for debugging use only.
-        return $message:msg_key~': '~$message:msg_vars.pairs.sort
+        return $message.:msg_key~': '~$message.:msg_vars.pairs.sort
                 .map:{ .key~'='~.value }.join( ', ' ); # S02 says sorting Pairs sorts keys by default.
                 # (.value // '')
@@ -142 +141 @@
 
 method get_template_set_names( $translator: ) returns Array { # returns Array of Str
-        return $translator:tmpl_set_nms; # copy list values; new array ref puts attr in list context, so it flattens
-        # return [$translator.:tmpl_set_nms];
+        return @{$translator.:tmpl_set_nms}; # copy list values
 }
 
 method get_template_member_names( $translator: ) returns Array { # returns Array of Str
-        return $translator:tmpl_mem_nms; # copy list values; new array ref puts attr in list context, so it flattens
-        # return [$translator.:tmpl_mem_nms];
+        return @{$translator.:tmpl_mem_nms}; # copy list values
 }
 
@@ -186 +183 @@
 method as_string( $translator: ) returns Str {
         # This method is intended for debugging use only.
-        return 'SETS: '~$translator:tmpl_set_nms.as( '%s', ', ' )~'; MEMBERS: '~
-                $translator:tmpl_mem_nms.as( '%s', ', ' );
+        return 'SETS: '~$translator.:tmpl_set_nms.as( '%s', ', ' )~'; MEMBERS: '~
+                $translator.:tmpl_mem_nms.as( '%s', ', ' );
         # return 'SETS: '~$translator.:tmpl_set_nms.as( '%s', ', ' )~'; MEMBERS: '~
         #       $translator.:tmpl_mem_nms.as( '%s', ', ' );