X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FApp%2FRgit%2FPolicy%2FDefault.pm;h=5d96a66bb688223636c92b662f8b627b06708c6a;hb=511d4fe4b46173353cd1fdcac0d26ac067868280;hp=a9cbd17781cfcf8695e26035eeab013e79a4286a;hpb=dc668e3c302569ed2b5eb2ed893247308f22528a;p=perl%2Fmodules%2Frgit.git

diff --git a/lib/App/Rgit/Policy/Default.pm b/lib/App/Rgit/Policy/Default.pm
index a9cbd17..5d96a66 100644
--- a/lib/App/Rgit/Policy/Default.pm
+++ b/lib/App/Rgit/Policy/Default.pm
@@ -19,7 +19,22 @@ Version 0.06
 
 our $VERSION = '0.06';
 
-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,10 +44,12 @@ sub report {
 
 L<rgit>.
 
+L<App::Rgit::Policy>.
+
 =head1 AUTHOR
 
 Vincent Pit, C<< <perl at profvince.com> >>, L<http://profvince.com>.
-   
+
 You can contact me by mail or on C<irc.perl.org> (vincent).
 
 =head1 BUGS