[Bps-public-commit] r12095 - Shipwright/trunk/lib/Shipwright/Backend

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue May  6 07:27:04 2008
New Revision: 12095

Modified:
   Shipwright/trunk/lib/Shipwright/Backend/SVK.pm
   Shipwright/trunk/lib/Shipwright/Backend/SVN.pm

Log:
added versions method to get version.yml's content

Modified: Shipwright/trunk/lib/Shipwright/Backend/SVK.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Backend/SVK.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Backend/SVK.pm	Tue May  6 07:27:04 2008
@@ -570,8 +570,24 @@
     }
 }
 
+=head2 versions
+
+get versions
+
+=cut
+
+sub versions {
+    my $self = shift;
+
+    my ($out) = Shipwright::Util->run(
+        [ 'svk', 'cat', $self->repository . '/shipwright/version.yml' ] );
+    $out = Shipwright::Util::Load($out) || {};
+    return $out;
+}
+
 1;
 
+
 __END__
 
 =head1 NAME

Modified: Shipwright/trunk/lib/Shipwright/Backend/SVN.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Backend/SVN.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Backend/SVN.pm	Tue May  6 07:27:04 2008
@@ -578,6 +578,21 @@
     }
 }
 
+=head2 versions
+
+get versions
+
+=cut
+
+sub versions {
+    my $self = shift;
+
+    my ($out) = Shipwright::Util->run(
+        [ 'svn', 'cat', $self->repository . '/shipwright/version.yml' ] );
+    $out = Shipwright::Util::Load($out) || {};
+    return $out;
+}
+
 1;
 
 __END__