Changeset 4325

Timestamp:

01/10/08 02:27:13 (5 years ago)

Author:

cho45

Message:

lang/perl/Config-Pit/trunk/t/01_basic.t,
lang/perl/Config-Pit/trunk/t/02_interoperability.t,
lang/perl/Config-Pit/trunk/lib/Config/Pit.pm,
lang/perl/Config-Pit/trunk/Changes:

Add $Config::Pit::verbose flag.

Location:

lang/perl/Config-Pit/trunk

Files:

• Changes (modified) (1 diff)
• lib/Config/Pit.pm (modified) (3 diffs)
• t/01_basic.t (modified) (1 diff)
• t/02_interoperability.t (modified) (1 diff)

lang/perl/Config-Pit/trunk/Changes

@@ -4 +4 @@
          * Fix 'ppit set' for interoperability.
          * Export pit_set pit_switch.
+         * Add $Config::Pit::verbose flag.
 
 0.01 2008-01-09T19:19:31+09:00

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

@@ -22 +22 @@
 our $config_file  = $directory->file("pit.yaml");
 our $profile_file = undef;
+our $verbose      = 1;
 
 sub get {
@@ -57 +58 @@
                 system $ENV{EDITOR}, $f->filename;
                 if ($t == file($f->filename)->stat->mtime) {
-                        warn "No changes.";
+                        print STDERR "No changes." if $verbose;
                         $result = get($name);
                 } else {
@@ -82 +83 @@
         $config->{profile} = $name;
         YAML::Syck::DumpFile($config_file, $config);
-        print STDERR "Config::Pit: Profile switch to $name from $ret.\n" unless $name eq $ret;
+        print STDERR "Config::Pit: Profile switch to $name from $ret.\n" if $verbose && ($name ne $ret);
         return $ret;
 }

lang/perl/Config-Pit/trunk/t/01_basic.t

@@ -15 +15 @@
 $Config::Pit::directory    = dir($dir->dirname);
 $Config::Pit::config_file  = $Config::Pit::directory->file("pit.yaml");
+$Config::Pit::verbose      = 0;
 
 my ($config, $p);

lang/perl/Config-Pit/trunk/t/02_interoperability.t

@@ -20 +20 @@
 $Config::Pit::directory    = dir($dir->dirname);
 $Config::Pit::config_file  = $Config::Pit::directory->file("pit.yaml");
+$Config::Pit::verbose      = 0;
 
 my $config;