1 package App::Rgit::Utils;
10 App::Rgit::Utils - Miscellanous utilities for App::Rgit classes.
18 our $VERSION = '0.01';
22 Miscellanous utilities for L<App::Rgit> classes.
24 This is an internal module to L<rgit>.
28 =head2 C<validate @method_args>
30 Sanitize arguments passed to methods.
36 croak 'Optional arguments must be passed as key/value pairs' if @_ % 2;
37 $class = ref($class) || $class;
38 $class = caller unless $class;
44 C<validate> is only exported on request.
48 use base qw/Exporter/;
52 funcs => [ qw/validate/ ]
54 our @EXPORT_OK = map { @$_ } values %EXPORT_TAGS;
55 $EXPORT_TAGS{'all'} = [ @EXPORT_OK ];
63 Vincent Pit, C<< <perl at profvince.com> >>, L<http://profvince.com>.
65 You can contact me by mail or on C<irc.perl.org> (vincent).
69 Please report any bugs or feature requests to C<bug-rgit at rt.cpan.org>, or through the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=rgit>. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
73 You can find documentation for this module with the perldoc command.
75 perldoc App::Rgit::Utils
77 =head1 COPYRIGHT & LICENSE
79 Copyright 2008 Vincent Pit, all rights reserved.
81 This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
85 1; # End of App::Rgit::Utils