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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sun Aug  3 02:58:33 2008
New Revision: 14729

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

Log:
 r15230 at sunnavys-mb:  sunnavy | 2008-08-03 11:36:27 +0800
 show refs in list


Modified: Shipwright/trunk/lib/Shipwright/Script/List.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/List.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/List.pm	Sun Aug  3 02:58:33 2008
@@ -27,6 +27,7 @@
 
     my $versions = $shipwright->backend->version;
     my $source   = $shipwright->backend->source;
+    my $refs = $shipwright->backend->refs || {};
 
     my $latest_version = {};
 
@@ -91,6 +92,7 @@
             print $name, ': ', "\n";
             print ' ' x 4 . 'version: ', $versions->{$name} || '',     "\n";
             print ' ' x 4 . 'from: ',    $source->{$name}   || 'CPAN', "\n";
+            print ' ' x 4 . 'references: ', $refs->{$name} || '', "\n";
             if ( $self->with_latest_version ) {
                 print ' ' x 4 . 'latest_version: ', $latest_version->{$name}
                   || 'unknown', "\n";