Switch qw delimiters to <>

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

diff --git a/lib/App/Rgit/Utils.pm b/lib/App/Rgit/Utils.pm
index 21004ded2730d2b2196c92a48355ddb4bcdc43c7..c858f53f46ea8e4b310343bd8c0e6e0db8341207 100644 (file)
--- a/lib/App/Rgit/Utils.pm
+++ b/lib/App/Rgit/Utils.pm
@@ -12,11 +12,11 @@ App::Rgit::Utils - Miscellaneous utilities for App::Rgit classes.
 
 =head1 VERSION
 
-Version 0.07
+Version 0.08
 
 =cut
 
-our $VERSION = '0.07';
+our $VERSION = '0.08';
 
 =head1 DESCRIPTION
 
@@ -26,7 +26,9 @@ This is an internal module to L<rgit>.
 
 =head1 FUNCTIONS
 
-=head2 C<abs_path $path>
+=head2 C<abs_path>
+
+    my $absolute_path = abs_path($path);
 
 Forcefully make a path C<$path> absolute (in L<Cwd/abs_path>'s meaning of the term) when it isn't already absolute or when it contains C<'..'>.
 
@@ -49,7 +51,13 @@ sub abs_path {
 
 =head1 CONSTANTS
 
-=head2 C<NEXT>, C<REDO>, C<LAST>, C<SAVE>
+=head2 C<NEXT>
+
+=head2 C<REDO>
+
+=head2 C<LAST>
+
+=head2 C<SAVE>
 
 Codes to return from the C<report> callback to respectively proceed to the next repository, retry the current one, end it all, and save the return code.
 
@@ -62,7 +70,15 @@ use constant {
  LAST => 0x8,
 };
 
-=head2 C<DIAG>, C<INFO>, C<WARN>, C<ERR> and C<CRIT>
+=head2 C<DIAG>
+
+=head2 C<INFO>
+
+=head2 C<WARN>
+
+=head2 C<ERR>
+
+=head2 C<CRIT>
 
 Message levels.
 
@@ -85,13 +101,13 @@ C<INFO>, C<WARN>, C<ERR> and C<CRIT> are only exported on request, either by the
 
 =cut
 
-use base qw/Exporter/;
+use base qw<Exporter>;
 
 our @EXPORT         = ();
 our %EXPORT_TAGS    = (
- funcs  => [ qw/abs_path/ ],
- codes  => [ qw/SAVE NEXT REDO LAST/ ],
- levels => [ qw/INFO WARN ERR CRIT/ ],
+ funcs  => [ qw<abs_path> ],
+ codes  => [ qw<SAVE NEXT REDO LAST> ],
+ levels => [ qw<INFO WARN ERR CRIT> ],
 );
 our @EXPORT_OK      = map { @$_ } values %EXPORT_TAGS;
 $EXPORT_TAGS{'all'} = [ @EXPORT_OK ];