Changeset 4227 for lang/perl/Config-Pit

Timestamp:

01/08/08 22:13:14 (5 years ago)

Author:

cho45

Message:

lang/perl/Config-Pit/trunk/lib/Config/Pit.pm:

Use YAML::Syck for interoperability with ruby.
$YAML::Syck::ImplicitTyping? = 1; # load
$YAML::Syck::SingleQuote? = 1; # treating string leading zero like octal number.

Files:

• lang/perl/Config-Pit/trunk/lib/Config/Pit.pm (modified) (8 diffs)

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

@@ -9 +9 @@
 *pit_get = \&get;
 
-use YAML::XS;
+use YAML::Syck;
 use Path::Class;
 use File::HomeDir;
@@ -24 +24 @@
         my ($name, %opts) = @_;
         my $profile = _load();
+        $YAML::Syck::ImplicitTyping = 1;
+        $YAML::Syck::SingleQuote    = 1;
         
         if ($opts{require}) {
@@ -38 +40 @@
         my ($name, %opts) = @_;
         my $result = {};
+        $YAML::Syck::ImplicitTyping = 1;
+        $YAML::Syck::SingleQuote    = 1;
 
         if ($opts{data}) {
@@ -46 +50 @@
                 # system
                 my $f = File::Temp->new(SUFFIX => ".yaml");
-                print $f YAML::XS::Dump($setting);
+                print $f YAML::Syck::Dump($setting);
                 close $f;
                 my $t = file($f->filename)->stat->mtime;
@@ -54 +58 @@
                         $result = get($name);
                 } else {
-                        $result = set($name, data => YAML::XS::LoadFile($f->filename));
+                        $result = set($name, data => YAML::Syck::LoadFile($f->filename));
                 }
         }
         my $profile = _load();
         $profile->{$name} = $result;
-        YAML::XS::DumpFile($profile_file, $profile);
+        YAML::Syck::DumpFile($profile_file, $profile);
         return $result;
 }
@@ -65 +69 @@
 sub switch {
         my ($name, %opts) = @_;
+        $YAML::Syck::ImplicitTyping = 1;
+        $YAML::Syck::SingleQuote    = 1;
 
         $profile_file = File::Spec->catfile($directory, "$name.yaml");
@@ -70 +76 @@
         my $config = _config();
         $config->{profile} = $name;
-        YAML::XS::DumpFile($config_file, $config);
+        YAML::Syck::DumpFile($config_file, $config);
 }
 
@@ -76 +82 @@
 sub _load {
         my $config = _config();
+        $YAML::Syck::ImplicitTyping = 1;
+        $YAML::Syck::SingleQuote    = 1;
 
         switch($config->{profile});
 
         unless (-e $profile_file) {
-                YAML::XS::DumpFile($profile_file, {});
+                YAML::Syck::DumpFile($profile_file, {});
         }
-        return YAML::XS::LoadFile($profile_file);
+        return YAML::Syck::LoadFile($profile_file);
 }
 
 sub _config {
+        $YAML::Syck::ImplicitTyping = 1;
+        $YAML::Syck::SingleQuote    = 1;
 
         (-e $directory) || $directory->mkpath(0, 0700);
 
-        my $config = eval { YAML::XS::LoadFile($config_file) } || ({
+        my $config = eval { YAML::Syck::LoadFile($config_file) } || ({
                 profile => "default"
         });