[Bps-public-commit] r17810 - in Shipwright/trunk: lib/Shipwright/Script

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sun Jan 18 07:56:01 2009
New Revision: 17810

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/lib/Shipwright/Script/List.pm

Log:
 r18882 at sunnavys-mb:  sunnavy | 2009-01-18 17:31:08 +0800
 update list cmd since version.yml and source.yml can be branched


Modified: Shipwright/trunk/lib/Shipwright/Script/List.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/List.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/List.pm	Sun Jan 18 07:56:01 2009
@@ -92,8 +92,30 @@
 
         if ($flip) {
             print $name, ': ', "\n";
-            print ' ' x 4 . 'version: ', $versions->{$name} || '',     "\n";
-            print ' ' x 4 . 'from: ',    $source->{$name}   || 'CPAN', "\n";
+            print ' ' x 4 . 'version: ';
+            if ( ref $versions->{$name} ) {
+                print "\n";
+                for my $branch ( keys %{$versions->{$name}} ) {
+                    print ' ' x 8, $branch, ': ',
+                      $versions->{$name}{$branch} || '', "\n";
+                }
+            }
+            else {
+                print $versions->{$name} || '', "\n";
+            }
+
+            print ' ' x 4 . 'from: ';
+            if ( ref $source->{$name} ) {
+                print "\n";
+                for my $branch ( keys %{$source->{$name}} ) {
+                    print ' ' x 8, $branch, ': ',
+                      $source->{$name}{$branch} || '', "\n";
+                }
+            }
+            else {
+                print $source->{$name} || 'CPAN', "\n",
+            }
+
             print ' ' x 4 . 'references: ',
               defined $refs->{$name} ? $refs->{$name} : 'unknown', "\n";
             if ( $self->with_latest_version ) {