Changeset 4218 for lang/perl/Config-Pit

Timestamp:

01/08/08 17:39:53 (5 years ago)

Author:

yappo

Message:

lang/perl/Config-Pit: code golf nized

Files:

• lang/perl/Config-Pit/trunk/bin/ppit (modified) (1 diff)

lang/perl/Config-Pit/trunk/bin/ppit

@@ -12 +12 @@
 
 ({
-    get => sub {
-        printf "%s\n", YAML::Dump(Config::Pit::get(shift));
-    },
-    set => sub {
-        Config::Pit::set(shift);
-    },
-    switch => sub {
-        Config::Pit::switch(shift);
-    },
-}->{(shift || '')} || sub { pod2usage } )->(@ARGV[1..2]);
+    get    => sub { printf "%s\n", YAML::Dump(Config::Pit::get(shift)) },
+    set    => \&Config::Pit::set,
+    switch => \&Config::Pit::switch,
+}->{(shift || '')} || sub { pod2usage } )->($ARGV[1]);
 
 __END__