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

nobody at bestpractical.com nobody at bestpractical.com
Mon Apr 28 12:53:25 EDT 2008


Author: clkao
Date: Mon Apr 28 12:53:24 2008
New Revision: 2777

Modified:
   branches/moose/lib/SVK/Path/Checkout.pm

Log:
delegation rocks.


Modified: branches/moose/lib/SVK/Path/Checkout.pm
==============================================================================
--- branches/moose/lib/SVK/Path/Checkout.pm	(original)
+++ branches/moose/lib/SVK/Path/Checkout.pm	Mon Apr 28 12:53:24 2008
@@ -63,7 +63,13 @@
     is => "rw",
 );
 
-has [qw(source copath_anchor copath_target)] => (
+has 'source' => (
+    is => "rw",
+    traits => [qw(Clone)],
+    handles => [qw(same_repos same_source is_mirrored normalize path universal contains_mirror depot depotpath depotname related_to copied_from search_revision merged_from revision repos path_anchor path_target repospath as_url)],
+);
+
+has [qw(copath_anchor copath_target)] => (
     is => "rw",
     traits => [qw(Clone)],
 );
@@ -289,14 +295,6 @@
     *{$pass_through} = *{'SVK::Path::'.$pass_through};
 }
 
-for my $proxy (qw/same_repos same_source is_mirrored normalize path universal contains_mirror depot depotpath depotname related_to copied_from search_revision merged_from revision repos path_anchor path_target repospath as_url/) {
-    no strict 'refs';
-    *{$proxy} = sub { my $self = shift;
-		      Carp::confess unless $self->source;
-		      $self->source->$proxy(@_);
-		  };
-}
-
 sub for_checkout_delta {
     my $self = shift;
     my $source = $self->source;


More information about the svk-commit mailing list