[Bps-public-commit] r16861 - Prophet/trunk/lib/Prophet/CLI/Command

[jesse at bestpractical.com]

Author: jesse
Date: Sun Nov 16 00:10:58 2008
New Revision: 16861

Modified:
   Prophet/trunk/lib/Prophet/CLI/Command/Config.pm

Log:
* improve 'config' command display

Modified: Prophet/trunk/lib/Prophet/CLI/Command/Config.pm
==============================================================================
--- Prophet/trunk/lib/Prophet/CLI/Command/Config.pm	(original)
+++ Prophet/trunk/lib/Prophet/CLI/Command/Config.pm	Sun Nov 16 00:10:58 2008
@@ -26,6 +26,13 @@
                 }
             }
         }
+        elsif ( $item eq '_sources' ) {
+            if ( my $sources = $config->sources ) {
+                for my $key ( keys %$sources ) {
+                    print "source $key = $sources->{$key}\n";
+                }
+            }
+        }
         else {
             print $item . " = " . $config->get($item) . "\n";
         }