[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