X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Frgit.git;a=blobdiff_plain;f=lib%2FApp%2FRgit%2FConfig.pm;h=ae850758197bd429fa540b8341ded6db55f187e0;hp=c59578f519511041d62b753c4fa52ee5047f75ef;hb=f00c02ec880d4c182584fc4f046df634df67401f;hpb=d9762c0e9806aa955f290f36740496f0013747fd diff --git a/lib/App/Rgit/Config.pm b/lib/App/Rgit/Config.pm index c59578f..ae85075 100644 --- a/lib/App/Rgit/Config.pm +++ b/lib/App/Rgit/Config.pm @@ -7,7 +7,7 @@ use Carp qw/croak/; use Cwd qw/abs_path/; use File::Spec::Functions qw/file_name_is_absolute/; -use Object::Tiny qw/root root_repo git/; +use Object::Tiny qw/root git cwd_repo/; use App::Rgit::Repository; use App::Rgit::Utils qw/validate/; @@ -46,23 +46,23 @@ sub new { 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(dir => $root, fake => 1); + my $r = App::Rgit::Repository->new(fake => 1); return unless defined $r; $conf->SUPER::new( - root => $root, - root_repo => $r, - git => $args{git}, + root => $root, + git => $args{git}, + cwd_repo => $r, ); } =head2 C -=head2 C - =head2 C =head2 C +=head2 C + Accessors. =head1 SEE ALSO