[svk-commit] r2779 - branches/moose/lib/SVK/Path

[nobody at bestpractical.com]

Author: clkao
Date: Mon Apr 28 13:35:06 2008
New Revision: 2779

Modified:
   branches/moose/lib/SVK/Path/CommandTargetRole.pm
   branches/moose/lib/SVK/Path/Txn.pm

Log:
inspector/root cleanups.


Modified: branches/moose/lib/SVK/Path/CommandTargetRole.pm
==============================================================================
--- branches/moose/lib/SVK/Path/CommandTargetRole.pm	(original)
+++ branches/moose/lib/SVK/Path/CommandTargetRole.pm	Mon Apr 28 13:35:06 2008
@@ -21,12 +21,4 @@
 	traits  => [qw(NoClone)],
 );
 
-sub _build_inspector {
-    my $self = shift;
-    return SVK::Inspector::Root->new
-	({ root => $self->repos->fs->revision_root($self->revision, $self->pool),
-	   _pool => $self->pool,
-	   anchor => $self->path_anchor });
-}
-
 1;

Modified: branches/moose/lib/SVK/Path/Txn.pm
==============================================================================
--- branches/moose/lib/SVK/Path/Txn.pm	(original)
+++ branches/moose/lib/SVK/Path/Txn.pm	Mon Apr 28 13:35:06 2008
@@ -55,6 +55,10 @@
 
 has 'txn' => ( is => "rw" );
 
+has '+inspector' => (
+	handles => ['root'],
+);
+
 sub _build_inspector {
     my $self = shift;
 
@@ -88,11 +92,6 @@
 	    cb_copyfrom => sub { $self->as_url(1, @_) });
 }
 
-sub root {
-    my $self = shift;
-    return $self->inspector->root;
-}
-
 sub as_depotpath {
     my $self = shift;
     my $depotpath = $self->mclone(txn => undef);