Changeset 2392 for dan

Timestamp:

12/04/07 12:08:21 (5 years ago)

Author:

omoon

Message:

dan/perl/omoon_MyDBI.pm Data::Visitor::Encodeで一部書き換え。

Files:

• dan/perl/omoon_MyDBI.pm (modified) (3 diffs)

dan/perl/omoon_MyDBI.pm

@@ -3 +3 @@
 use warnings;
 use base qw(DBI);
+use Data::Visitor::Encode;
 
 package MyDBI::db;
 use base qw(DBI::db);
+
+my $dev = Data::Visitor::Encode->new();
 
 sub prepare {
@@ -29 +32 @@
     my ( $sth, @args ) = @_;
     my $row = $sth->SUPER::fetch(@args) or return;
-    foreach my $val (@$row) {
-        $val = Encode::decode( 'cp932', $val );
-    }
-    return $row;
+    return $dev->decode( 'cp932', $row );
 }
 
@@ -38 +38 @@
     my ( $sth, @args ) = @_;
     my $array_ref = $sth->SUPER::fetchrow_arrayref(@args) or return;
-    foreach my $value (@$array_ref) {
-        $value = Encode::decode( 'cp932', $value );
-    }
-    return $array_ref;
+    return $dev->decode( 'cp932', $array_ref );
 }