Changeset 22800

Timestamp:

11/06/08 12:19:27 (5 years ago)

Author:

daisuke

Message:

modify the actual ref that came in

Files:

• lang/perl/Data-Visitor-Encode/trunk/lib/Data/Visitor/Encode.pm (modified) (10 diffs)

lang/perl/Data-Visitor-Encode/trunk/lib/Data/Visitor/Encode.pm

@@ -117 +117 @@
 }
 
-sub do_encode
-{
-    my $self = shift;
-    my $data = shift;
-    return Encode::encode($self->extra_args, $data);
-}
-
-sub do_decode
-{
-    my $self = shift;
-    my $data = shift;
-    return Encode::decode($self->extra_args, $data);
+sub do_encode {
+    my $self = shift;
+    return $_[0] = Encode::encode($self->extra_args, $_[0]);
+}
+
+sub do_decode {
+    my $self = shift;
+    return $_[0] = Encode::decode($self->extra_args, $_[0]);
 }
 
@@ -138 +134 @@
     $self->extra_args($code);
     $self->visit_method('decode');
-    $self->visit($_[0]);
+    $_[0] = $self->visit($_[0]);
 }
 
@@ -148 +144 @@
     $self->extra_args($code);
     $self->visit_method('encode');
-    $self->visit($_[0]);
-}
-
-sub do_decode_utf8
-{
-    my $self = shift;
-    my $data = shift;
-    return Encode::decode_utf8($data);
+    $_[0] = $self->visit($_[0]);
+}
+
+sub do_decode_utf8 {
+    my $self = shift;
+    return $_[0] = Encode::decode_utf8($_[0]);
 }
 
@@ -162 +156 @@
     my $self = _object(shift);
     $self->visit_method('decode_utf8');
-    $self->visit($_[0]);
+    $_[0] = $self->visit($_[0]);
 }
 
@@ -168 +162 @@
 {
     my $self = shift;
-    my $data = shift;
-    return Encode::encode_utf8($data);
+    return $_[0] = Encode::encode_utf8($_[0]);
 }
 
@@ -177 +170 @@
     my $enc  = $_[1];
     $self->visit_method('encode_utf8');
-    $self->visit($_[0]);
+    $_[0] = $self->visit($_[0]);
 }
 
@@ -183 +176 @@
 {
     my $self = shift;
-    my $data = shift;
 
     my $is_euc = ($self->extra_args =~ /^euc-jp$/i);
-    my $utf8_on = Encode::is_utf8($data);
+    my $utf8_on = Encode::is_utf8($_[0]);
     my $euc  =
         $is_euc ?
-            $data :
+            $_[0] :
         $utf8_on ?
-            Encode::encode('euc-jp', $data) :
-            Encode::encode('euc-jp', Encode::decode($self->extra_args, $data))
+            Encode::encode('euc-jp', $_[0]) :
+            Encode::encode('euc-jp', Encode::decode($self->extra_args, $_[0]))
     ;
 
     Encode::JP::H2Z::h2z(\$euc);
 
-    return 
+    return $_[0] = (
         $is_euc ?
             $euc :
@@ -203 +195 @@
             Encode::decode('euc-jp', $euc) :
             Encode::encode($self->extra_args, Encode::decode('euc-jp', $euc))
-    ;   
+    );   
 }
 
@@ -219 +211 @@
 {
     my $self = shift;
-    my $data = shift;
 
     my $is_euc = ($self->extra_args =~ /^euc-jp$/i);
-    my $utf8_on = Encode::is_utf8($data);
+    my $utf8_on = Encode::is_utf8($_[0]);
     my $euc  =
         $is_euc ?
-            $data :
+            $_[0] :
         $utf8_on ?
-            Encode::encode('euc-jp', $data) :
-            Encode::encode('euc-jp', Encode::decode($self->extra_args, $data))
+            Encode::encode('euc-jp', $_[0]) :
+            Encode::encode('euc-jp', Encode::decode($self->extra_args, $_[0]))
     ;
 
     Encode::JP::H2Z::z2h(\$euc);
         
-    return 
+    return $_[0] = (
         $is_euc ?
             $euc :
@@ -239 +230 @@
             Encode::decode('euc-jp', $euc) :
             Encode::encode($self->extra_args, Encode::decode('euc-jp', $euc))
-    ;   
+    );   
 }