X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FApp%2FRgit%2FConfig.pm;h=c59578f519511041d62b753c4fa52ee5047f75ef;hb=f39707f985871239ac340a2ac2b84f3c36d6d224;hp=212fa334628f79f93c14db637a76ceaf67b73c76;hpb=f5feb13a168183b64735058599b7fbc7c668fc43;p=perl%2Fmodules%2Frgit.git diff --git a/lib/App/Rgit/Config.pm b/lib/App/Rgit/Config.pm index 212fa33..c59578f 100644 --- a/lib/App/Rgit/Config.pm +++ b/lib/App/Rgit/Config.pm @@ -7,8 +7,9 @@ use Carp qw/croak/; 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 @@ -17,7 +18,11 @@ App::Rgit::Config - Base class for App::Rgit configurations. =head1 VERSION -Version 0.01 +Version 0.02 + +=cut + +our $VERSION = '0.02'; =head1 DESCRIPTION @@ -41,14 +46,19 @@ 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); + return unless defined $r; $conf->SUPER::new( - root => $args{root}, - git => $args{git}, + root => $root, + root_repo => $r, + git => $args{git}, ); } =head2 C +=head2 C + =head2 C =head2 C