=head1 VERSION
-Version 0.06
+Version 0.08
=cut
-our $VERSION = '0.06';
+our $VERSION = '0.08';
+
+=head1 DESCRIPTION
+
+When a run exited with non-zero status, this policy asks the user whether he wants to ignore and continue with the next repository, ignore all future possible errors, retry this run or open a shell in the current repository.
+In this last case, the user will be asked again what to do when he will close the shell.
+
+=head1 METHODS
+
+This class inherits from L<App::Rgit::Policy>.
+
+It implements :
+
+=head2 C<new>
+
+The constructor will die if L<Term::ReadKey> can't be loaded.
+
+=cut
my ($int_code, $shell);
$class->SUPER::new(@_);
}
+=head2 C<handle>
+
+=cut
+
my %codes = (
'a' => [ LAST, 'aborting' ],
'i' => [ NEXT, 'ignoring' ],
'r' => [ REDO, 'retrying' ],
);
-sub report {
+sub handle {
my ($policy, $cmd, $conf, $repo, $status, $signal) = @_;
return NEXT unless $status;
L<rgit>.
+L<App::Rgit::Policy>.
+
+L<Term::ReadKey>.
+
=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