use warnings;
use Carp (); # confess
-use Cwd (); # abs_path
+use Cwd (); # cwd, abs_path
use File::Spec (); # canonpath, catfile, path
use App::Rgit::Repository;
my %args = @_;
- my $root = $args{root};
- return unless defined $root and -d $root;
+ my $root = defined $args{root}
+ ? $args{root}
+ : defined $ENV{GIT_DIR}
+ ? $ENV{GIT_DIR}
+ : Cwd::cwd;
+ Carp::confess("Invalid root directory") unless -d $root;
$root = File::Spec->canonpath(Cwd::abs_path($root));
my $git;