Changeset 6465

Timestamp:

02/10/08 11:53:20 (5 years ago)

Author:

tokuhirom

Message:

lang/perl/Encode-JP-Mobile: added '_' prefix for private methods

Files:

• lang/perl/Encode-JP-Mobile/trunk/lib/Encode/JP/Mobile/KDDIJIS.pm (modified) (7 diffs)

lang/perl/Encode-JP-Mobile/trunk/lib/Encode/JP/Mobile/KDDIJIS.pm

@@ -26 +26 @@
         $str =~ s/([^\x00-\x7f].*)$//so and $residue = $1;
     }
-    $residue .= jis_sjis( \$str );
+    $residue .= _jis_sjis( \$str );
     $_[1] = $residue if $chk;
 
@@ -35 +35 @@
     my ( $obj, $utf8, $chk ) = @_;
     my $octet = Encode::encode( $obj->_encoding, $utf8, $chk );
-    return sjis_jis( $octet );
+    return _sjis_jis( $octet );
 }
 
@@ -41 +41 @@
 sub JIS_0208 () { 2 }
 sub KANA () { 3 }
-sub sjis_jis {
+sub _sjis_jis {
     my $octet = shift;
 
@@ -113 +113 @@
 }
 
-sub jis_sjis {
+sub _jis_sjis {
     local ${^ENCODING};
 
@@ -129 +129 @@
         } else {
             $chunk =~ s((..)){
-                pack "H*", sprintf"%X", jis2sjis_one(hex(unpack "H*", $1));
+                pack "H*", sprintf"%X", _jis2sjis_one(hex(unpack "H*", $1));
             }geox;
             $chunk;
@@ -141 +141 @@
 }
 
-sub jis2sjis_one { my $x = shift; return ( xy($x) << 8 ) + zu($x) } # input is binary
-
-sub high { my $x = shift; $x >> 8 }
-sub low  { my $x = shift; $x & 0xff }
-
-sub xy {
+sub _jis2sjis_one { my $x = shift; return ( _xy($x) << 8 ) + _zu($x) } # input is binary
+
+sub _high { my $x = shift; $x >> 8 }
+sub _low  { my $x = shift; $x & 0xff }
+
+sub _xy {
     my $jis = shift;
 
-    my $pq = high($jis);
+    my $pq = _high($jis);
     my $t  = ceil( $pq / 2 ) + 0x70;
     my $ans = ($t <= 0x9F) ? $t : $t+0x40;
@@ -163 +163 @@
 }
 
-sub zu {
+sub _zu {
     my $jis = shift;
-    my $pq  = high($jis);
-    my $rs  = low($jis);
+    my $pq  = _high($jis);
+    my $rs  = _low($jis);
 
     if ( $pq % 2 ) {    # odd