Changeset 19819 for lang/perl

Timestamp:

09/24/08 20:17:44 (5 years ago)

Author:

vkgtaro

Message:

$YAML::Syck::ImplicitUnicode? を使えばいいことに気がついた。依存モジュール一個減らした。

Location:

lang/perl/Config-Multi/trunk

Files:

• Makefile.PL (modified) (1 diff)
• lib/Config/Multi.pm (modified) (3 diffs)

lang/perl/Config-Multi/trunk/Makefile.PL

@@ -11 +11 @@
 requires 'Config::Any'           => 0;
 requires 'Class::Accessor'       => 0;
-requires 'Data::Visitor::Encode' => 0;
 requires 'YAML::Syck'            => 0; # for testing
 recommends 'Test::Pod::Coverage' => 0;

lang/perl/Config-Multi/trunk/lib/Config/Multi.pm

@@ -7 +7 @@
 use Config::Any;
 use Carp;
-use Data::Visitor::Encode;
 
 use base qw/Class::Accessor/;
@@ -23 +22 @@
 
     my $config = {};
+
+    local $YAML::Syck::ImplicitUnicode = 1
+        if $self->unicode;
 
     my $app_files = $self->_find_files( $self->{app_name} );
@@ -57 +59 @@
 
     $self->{files} = \@files;
-
-    if ( $self->unicode ) {
-        my $dve = Data::Visitor::Encode->new();
-        $config = $dve->decode('utf8', $config);
-    }
 
     return $config;