lib/App/Rgit/Policy/Default.pm

   1 package App::Rgit::Policy::Default;
   2
   3 use strict;
   4 use warnings;
   5
   6 use App::Rgit::Utils qw/:codes/;
   7
   8 use base qw/App::Rgit::Policy/;
   9
  10 =head1 NAME
  11
  12 App::Rgit::Policy::Default - The default policy that stops on error.
  13
  14 =head1 VERSION
  15
  16 Version 0.06
  17
  18 =cut
  19
  20 our $VERSION = '0.06';
  21
  22 sub report {
  23  my ($policy, $cmd, $conf, $repo, $status, $signal) = @_;
  24
  25  $status ? LAST : NEXT;
  26 }
  27
  28 =head1 SEE ALSO
  29
  30 L<rgit>.
  31
  32 =head1 AUTHOR
  33
  34 Vincent Pit, C<< <perl at profvince.com> >>, L<http://profvince.com>.
  35
  36 You can contact me by mail or on C<irc.perl.org> (vincent).
  37
  38 =head1 BUGS
  39
  40 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>.
  41 I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
  42
  43 =head1 SUPPORT
  44
  45 You can find documentation for this module with the perldoc command.
  46
  47     perldoc App::Rgit::Policy::Default
  48
  49 =head1 COPYRIGHT & LICENSE
  50
  51 Copyright 2008,2009,2010 Vincent Pit, all rights reserved.
  52
  53 This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
  54
  55 =cut
  56
  57 1; # End of App::Rgit::Policy::Default