X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FApp%2FRgit%2FUtils.pm;h=75fe11e78853d65fd24da99726e13b85ca3c6b52;hb=3ff07b59ff41754a77105973a4f1e9d6d25b2c3a;hp=7a4c3b36779a8a4aef2e3949544f8ff5e26d6c57;hpb=caf4ff14ac06ea364ea51f725d041fd715e9682f;p=perl%2Fmodules%2Frgit.git diff --git a/lib/App/Rgit/Utils.pm b/lib/App/Rgit/Utils.pm index 7a4c3b3..75fe11e 100644 --- a/lib/App/Rgit/Utils.pm +++ b/lib/App/Rgit/Utils.pm @@ -3,19 +3,17 @@ package App::Rgit::Utils; use strict; use warnings; -use Carp qw/croak/; - =head1 NAME App::Rgit::Utils - Miscellaneous utilities for App::Rgit classes. =head1 VERSION -Version 0.06 +Version 0.07 =cut -our $VERSION = '0.06'; +our $VERSION = '0.07'; =head1 DESCRIPTION @@ -51,26 +49,8 @@ use constant { CRIT => 0, }; -=head1 FUNCTIONS - -=head2 C - -Sanitize arguments passed to methods. - -=cut - -sub validate { - my $class = shift; - croak 'Optional arguments must be passed as key/value pairs' if @_ % 2; - $class = ref($class) || $class; - $class = caller unless $class; - return $class, @_; -} - =head1 EXPORT -C is only exported on request, either by its name or by the C<'funcs'> tag. - C C, C and C are only exported on request, either by their name or by the C<'codes'> tags. C, C, C and C are only exported on request, either by their name or by the C<'levels'> tags. @@ -81,7 +61,6 @@ use base qw/Exporter/; our @EXPORT = (); our %EXPORT_TAGS = ( - funcs => [ qw/validate/ ], codes => [ qw/SAVE NEXT REDO LAST/ ], levels => [ qw/INFO WARN ERR CRIT/ ], ); @@ -100,7 +79,8 @@ You can contact me by mail or on C (vincent). =head1 BUGS -Please report any bugs or feature requests to C, or through the web interface at L. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes. +Please report any bugs or feature requests to C, or through the web interface at L. +I will be notified, and then you'll automatically be notified of progress on your bug as I make changes. =head1 SUPPORT @@ -110,7 +90,7 @@ You can find documentation for this module with the perldoc command. =head1 COPYRIGHT & LICENSE -Copyright 2008-2009 Vincent Pit, all rights reserved. +Copyright 2008,2009,2010 Vincent Pit, all rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.