X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FApp%2FRgit%2FConfig.pm;h=7e5fa8fc79ad1e20a83ac2d9e56bc4dbc98f5281;hb=80656eec9bd2400f8db71d0d10d7d0be54139667;hp=29ebd7bd42b81445dda9ff07fea62e8861990cdc;hpb=2e8121b94bf4847686087060a709fa3bb433f4ee;p=perl%2Fmodules%2Frgit.git

diff --git a/lib/App/Rgit/Config.pm b/lib/App/Rgit/Config.pm
index 29ebd7b..7e5fa8f 100644
--- a/lib/App/Rgit/Config.pm
+++ b/lib/App/Rgit/Config.pm
@@ -8,7 +8,7 @@ use Cwd        (); # cwd
 use File::Spec (); # canonpath, catfile, path
 
 use App::Rgit::Repository;
-use App::Rgit::Utils qw/:levels/; # :levels, abs_path
+use App::Rgit::Utils qw<:levels>; # :levels, abs_path
 
 use constant IS_WIN32 => $^O eq 'MSWin32';
 
@@ -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.
 
@@ -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;
  }
@@ -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