File Coverage

blib/lib/Group/Git/Cmd/Help.pm
Criterion Covered Total %
statement 24 30 80.0
branch 0 2 0.0
condition n/a
subroutine 8 9 88.8
pod 1 1 100.0
total 33 42 78.5


line stmt bran cond sub pod time code
1             package Group::Git::Cmd::Help;
2              
3             # Created on: 2013-05-06 21:57:07
4             # Create by: Ivan Wills
5             # $Id$
6             # $Revision$, $HeadURL$, $Date$
7             # $Revision$, $Source$, $Date$
8              
9 1     1   910 use Moo::Role;
  1         2  
  1         356  
10 1     1   2923 use strict;
  1         3  
  1         26  
11 1     1   6 use warnings;
  1         3  
  1         37  
12 1     1   6 use version;
  1         2  
  1         9  
13 1     1   74 use Carp;
  1         2  
  1         86  
14 1     1   7 use English qw/ -no_match_vars /;
  1         2  
  1         9  
15 1     1   432 use File::chdir;
  1         3  
  1         98  
16 1     1   7 use Getopt::Alt;
  1         2  
  1         12  
17              
18             our $VERSION = version->new('0.7.6');
19              
20             requires 'repos';
21             requires 'verbose';
22              
23             my $opt = Getopt::Alt->new(
24             { help => __PACKAGE__, },
25             [ 'quote|q!', ]
26             );
27              
28             sub help_start {
29 0     0 1   my ($self) = @_;
30              
31 0 0         if ( @ARGV ) {
32 0           my $cmd = shift @ARGV;
33 0           unshift @ARGV, $cmd, "--help";
34             }
35             else {
36 0           @ARGV = qw/--help/;
37             }
38              
39 0           exec $0, @ARGV;
40             }
41              
42             1;
43              
44             __END__
45              
46             =head1 NAME
47              
48             Group::Git::Cmd::Help - Runs git status on a git project
49              
50             =head1 VERSION
51              
52             This documentation refers to Group::Git::Cmd::Help version 0.7.6.
53              
54              
55             =head1 SYNOPSIS
56              
57             use Group::Git::Cmd::Help;
58              
59             # Brief but working code example(s) here showing the most common usage(s)
60             # This section will be as far as many users bother reading, so make it as
61             # educational and exemplary as possible.
62              
63              
64             =head1 DESCRIPTION
65              
66             =head1 SUBROUTINES/METHODS
67              
68             =over 4
69              
70             =item C<help_start ($name)>
71              
72             =back
73              
74             =head1 DIAGNOSTICS
75              
76             =head1 CONFIGURATION AND ENVIRONMENT
77              
78             =head1 DEPENDENCIES
79              
80             =head1 INCOMPATIBILITIES
81              
82             =head1 BUGS AND LIMITATIONS
83              
84             There are no known bugs in this module.
85              
86             Please report problems to Ivan Wills (ivan.wills@gmail.com).
87              
88             Patches are welcome.
89              
90             =head1 AUTHOR
91              
92             Ivan Wills - (ivan.wills@gmail.com)
93              
94             =head1 LICENSE AND COPYRIGHT
95              
96             Copyright (c) 2013 Ivan Wills (14 Mullion Close, Hornsby Heights, NSW Australia 2077).
97             All rights reserved.
98              
99             This module is free software; you can redistribute it and/or modify it under
100             the same terms as Perl itself. See L<perlartistic>. This program is
101             distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
102             without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
103             PARTICULAR PURPOSE.
104              
105             =cut