X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FApp%2FRgit%2FUtils.pm;h=c858f53f46ea8e4b310343bd8c0e6e0db8341207;hb=80656eec9bd2400f8db71d0d10d7d0be54139667;hp=c081d9b99cb5ed4453abbaac78eea9b3241a7330;hpb=2e8121b94bf4847686087060a709fa3bb433f4ee;p=perl%2Fmodules%2Frgit.git diff --git a/lib/App/Rgit/Utils.pm b/lib/App/Rgit/Utils.pm index c081d9b..c858f53 100644 --- a/lib/App/Rgit/Utils.pm +++ b/lib/App/Rgit/Utils.pm @@ -26,7 +26,9 @@ This is an internal module to L. =head1 FUNCTIONS -=head2 C +=head2 C + + my $absolute_path = abs_path($path); Forcefully make a path C<$path> absolute (in L'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, C, C, C +=head2 C + +=head2 C + +=head2 C + +=head2 C Codes to return from the C 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, C, C, C and C +=head2 C + +=head2 C + +=head2 C + +=head2 C + +=head2 C Message levels. @@ -85,13 +101,13 @@ C, C, C and C are only exported on request, either by the =cut -use base qw/Exporter/; +use base qw; our @EXPORT = (); our %EXPORT_TAGS = ( - funcs => [ qw/abs_path/ ], - codes => [ qw/SAVE NEXT REDO LAST/ ], - levels => [ qw/INFO WARN ERR CRIT/ ], + funcs => [ qw ], + codes => [ qw ], + levels => [ qw ], ); our @EXPORT_OK = map { @$_ } values %EXPORT_TAGS; $EXPORT_TAGS{'all'} = [ @EXPORT_OK ];