[Bps-public-commit] r10797 - Shipwright/lib/Shipwright/Backend

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Mon Feb 11 07:33:54 2008
New Revision: 10797

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

Log:
added require sub for backends

Modified: Shipwright/lib/Shipwright/Backend/SVK.pm
==============================================================================
--- Shipwright/lib/Shipwright/Backend/SVK.pm	(original)
+++ Shipwright/lib/Shipwright/Backend/SVK.pm	Mon Feb 11 07:33:54 2008
@@ -519,6 +519,21 @@
     $self->checkout( detach => 1, target => $file );
 }
 
+
+=head2 require
+return hashref to require.yml for a dist
+=cut
+
+sub require {
+    my $self = shift;
+    my $name = shift;
+
+    my ($string) = Shipwright::Util->run(
+        [ 'svk', 'cat', $self->repository . "/scripts/$name/require.yml" ], 1 );
+    return Shipwright::Util::Load( $string ) || {};
+}
+
+
 1;
 
 __END__

Modified: Shipwright/lib/Shipwright/Backend/SVN.pm
==============================================================================
--- Shipwright/lib/Shipwright/Backend/SVN.pm	(original)
+++ Shipwright/lib/Shipwright/Backend/SVN.pm	Mon Feb 11 07:33:54 2008
@@ -528,6 +528,19 @@
     $self->commit( path => $file, comment => "update test script" );
 }
 
+=head2 require
+return hashref to require.yml for a dist
+=cut
+
+sub require {
+    my $self = shift;
+    my $name = shift;
+
+    my ($string) = Shipwright::Util->run(
+        [ 'svn', 'cat', $self->repository . "/scripts/$name/require.yml" ], 1 );
+    return Shipwright::Util::Load( $string ) || {};
+}
+
 1;
 
 __END__