Update VPIT::TestHelpers to 15e8aee3

[perl/modules/rgit.git] / lib / App / Rgit / Config.pm

diff --git a/lib/App/Rgit/Config.pm b/lib/App/Rgit/Config.pm
index 66548af9fd0d2a03eaa4b9296549d7f2757f8e70..7e5fa8fc79ad1e20a83ac2d9e56bc4dbc98f5281 100644 (file)
--- a/lib/App/Rgit/Config.pm
+++ b/lib/App/Rgit/Config.pm
@@ -4,11 +4,11 @@ use strict;
 use warnings;
 
 use Carp       (); # confess
-use Cwd        (); # cwd, abs_path
+use Cwd        (); # cwd
 use File::Spec (); # canonpath, catfile, path
 
 use App::Rgit::Repository;
-use App::Rgit::Utils qw/:levels/;
+use App::Rgit::Utils qw<:levels>; # :levels, abs_path
 
 use constant IS_WIN32 => $^O eq 'MSWin32';
 
@@ -18,11 +18,11 @@ App::Rgit::Config - Base class for App::Rgit configurations.
 
 =head1 VERSION
 
-Version 0.07
+Version 0.08
 
 =cut
 
-our $VERSION = '0.07';
+our $VERSION = '0.08';
 
 =head1 DESCRIPTION
 
@@ -32,7 +32,12 @@ This is an internal class to L<rgit>.
 
 =head1 METHODS
 
-=head2 C<< new root => $root, git => $git >>
+=head2 C<new>
+
+    my $arc = App::Rgit::Config->new(
+     root => $root,
+     git  => $git,
+    );
 
 Creates a new configuration object based on the root directory C<$root> and using C<$git> as F<git> executable.
 
@@ -50,7 +55,7 @@ sub new {
                   ? $ENV{GIT_DIR}
                   : Cwd::cwd;
  Carp::confess("Invalid root directory") unless -d $root;
- $root = File::Spec->canonpath(Cwd::abs_path($root));
+ $root = File::Spec->canonpath(App::Rgit::Utils::abs_path($root));
 
  my $git;
  my @candidates = (
@@ -63,7 +68,7 @@ sub new {
  if (IS_WIN32) {
   my @acc;
   for my $c (@candidates) {
-   push @acc, $c, map "$c.$_", qw/exe com bat cmd/;
+   push @acc, $c, map "$c.$_", qw<exe com bat cmd>;
   }
   @candidates = @acc;
  }
@@ -74,7 +79,7 @@ sub new {
   }
  }
  Carp::confess("Couldn't find a proper git executable") unless defined $git;
- $git = File::Spec->canonpath(Cwd::abs_path($git));
+ $git = File::Spec->canonpath(App::Rgit::Utils::abs_path($git));
 
  my $conf = 'App::Rgit::Config::Default';
  eval "require $conf; 1" or Carp::confess("Couldn't load $conf: $@");
@@ -90,13 +95,21 @@ sub new {
  }, $conf;
 }
 
-=head2 C<info $msg>
+=head2 C<info>
+
+    $arr->info($msg);
+
+=head2 C<warn>
+
+    $arr->warn($msg);
+
+=head2 C<err>
 
-=head2 C<warn $msg>
+    $arr->err($msg);
 
-=head2 C<err $msg>
+=head2 C<crit>
 
-=head2 C<crit $msg>
+    $arr->crit($msg);
 
 Notifies a message C<$msg> of the corresponding level.
 
@@ -135,7 +148,7 @@ Read-only accessors.
 =cut
 
 BEGIN {
- eval "sub $_ { \$_[0]->{$_} }" for qw/root git cwd_repo debug/;
+ eval "sub $_ { \$_[0]->{$_} }" for qw<root git cwd_repo debug>;
 }
 
 =head1 SEE ALSO