File Coverage

blib/lib/App/Rgit/Policy/Default.pm
Criterion Covered Total %
statement 14 14 100.0
branch 2 2 100.0
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 22 22 100.0


line stmt bran cond sub pod time code
1             package App::Rgit::Policy::Default;
2              
3 2     2   841 use strict;
  2         3  
  2         80  
4 2     2   10 use warnings;
  2         7  
  2         74  
5              
6 2     2   12 use App::Rgit::Utils qw/:codes/;
  2         3  
  2         395  
7              
8 2     2   10 use base qw/App::Rgit::Policy/;
  2         6  
  2         386  
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.08
17              
18             =cut
19              
20             our $VERSION = '0.08';
21              
22             =head1 DESCRIPTION
23              
24             This is the default policy.
25             It stops as soon as a run returned a non-zero status, but continues if it was signalled.
26              
27             =head1 METHODS
28              
29             This class inherits from L.
30              
31             It implements :
32              
33             =head2 C
34              
35             =cut
36              
37             sub handle {
38 4     4 1 14 my ($policy, $cmd, $conf, $repo, $status, $signal) = @_;
39              
40 4 100       24 $status ? LAST : NEXT;
41             }
42              
43             =head1 SEE ALSO
44              
45             L.
46              
47             L.
48              
49             =head1 AUTHOR
50              
51             Vincent Pit, C<< >>, L.
52              
53             You can contact me by mail or on C (vincent).
54              
55             =head1 BUGS
56              
57             Please report any bugs or feature requests to C, or through the web interface at L.
58             I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
59              
60             =head1 SUPPORT
61              
62             You can find documentation for this module with the perldoc command.
63              
64             perldoc App::Rgit::Policy::Default
65              
66             =head1 COPYRIGHT & LICENSE
67              
68             Copyright 2008,2009,2010 Vincent Pit, all rights reserved.
69              
70             This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
71              
72             =cut
73              
74             1; # End of App::Rgit::Policy::Default