use Carp qw/croak/;
-use Object::Tiny qw/cmd cwd_as_repo args/;
+use Object::Tiny qw/cmd args/;
use App::Rgit::Utils qw/validate/;
use App::Rgit::Repository;
unless $class->isa($action);
}
eval "require $action; 1" or croak "Couldn't load $action: $@";
- my $r = App::Rgit::Repository->new(fake => 1);
- return unless defined $r;
$class->SUPER::new(
- cmd => $cmd,
- args => $args{args} || [ ],
- cwd_as_repo => $r,
+ cmd => $cmd,
+ args => $args{args} || [ ],
);
}
=head2 C<cmd>
-=head2 C<cwd_as_repo>
-
=head2 C<args>
Accessors.
$status = $_->run($conf, @{$self->args});
last if $status;
}
- $self->cwd_as_repo->chdir;
+ $conf->root_repo->chdir;
return $status;
}
sub run {
my ($self, $conf) = @_;
- $self->cwd_as_repo->run($conf, @{$self->args});
+ $conf->root_repo->run($conf, @{$self->args});
}
=head1 SEE ALSO
use Cwd qw/abs_path/;
use File::Spec::Functions qw/file_name_is_absolute/;
-use Object::Tiny qw/root git/;
+use Object::Tiny qw/root root_repo git/;
+use App::Rgit::Repository;
use App::Rgit::Utils qw/validate/;
=head1 NAME
return unless defined $args{git} and -x $args{git};
my $conf = 'App::Rgit::Config::Default';
eval "require $conf; 1" or croak "Couldn't load $conf: $@";
+ my $r = App::Rgit::Repository->new(fake => 1);
+ return unless defined $r;
$conf->SUPER::new(
- root => $args{root},
- git => $args{git},
+ root => $args{root},
+ root_repo => $r,
+ git => $args{git},
);
}
=head2 C<root>
+=head2 C<root_repo>
+
=head2 C<git>
=head2 C<repos>