[svk-commit] r3100 - branches/git-storage/lib/SVK/Path

[nobody at bestpractical.com]

Author: clsung
Date: Mon Oct 27 05:23:23 2008
New Revision: 3100

Modified:
   branches/git-storage/lib/SVK/Path/Git.pm

Log:
- add depotpath/depotname

Modified: branches/git-storage/lib/SVK/Path/Git.pm
==============================================================================
--- branches/git-storage/lib/SVK/Path/Git.pm	(original)
+++ branches/git-storage/lib/SVK/Path/Git.pm	Mon Oct 27 05:23:23 2008
@@ -59,4 +59,17 @@
 sub youngest_rev {
     return 1;
 }
+
+sub depotname {
+    return $_[0]->depot->depotname;
+}
+
+sub depotpath {
+    my $self = shift;
+
+    Carp::cluck unless defined $self->depotname;
+
+    return '/'.$self->depotname.$self->{path};
+}
+
 1;