This is 0.07

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

diff --git a/lib/App/Rgit/Policy/Default.pm b/lib/App/Rgit/Policy/Default.pm
index d8d286bd0440b75dce5ce87ad860395a9e094f45..7164b453df0d678799ac21171d5618353ac44367 100644 (file)
--- a/lib/App/Rgit/Policy/Default.pm
+++ b/lib/App/Rgit/Policy/Default.pm
@@ -13,13 +13,28 @@ App::Rgit::Policy::Default - The default policy that stops on error.
 
 =head1 VERSION
 
-Version 0.06
+Version 0.07
 
 =cut
 
-our $VERSION = '0.06';
+our $VERSION = '0.07';
 
-sub report {
+=head1 DESCRIPTION
+
+This is the default policy.
+It stops as soon as a run returned a non-zero status, but continues if it was signalled.
+
+=head1 METHODS
+
+This class inherits from L<App::Rgit::Policy>.
+
+It implements :
+
+=head2 C<handle>
+
+=cut
+
+sub handle {
  my ($policy, $cmd, $conf, $repo, $status, $signal) = @_;
 
  $status ? LAST : NEXT;
@@ -29,6 +44,8 @@ sub report {
 
 L<rgit>.
 
+L<App::Rgit::Policy>.
+
 =head1 AUTHOR
 
 Vincent Pit, C<< <perl at profvince.com> >>, L<http://profvince.com>.