File Coverage

blib/lib/App/Git/Workflow/Command/Popb.pm
Criterion Covered Total %
statement 25 29 86.2
branch 1 2 50.0
condition n/a
subroutine 8 8 100.0
pod 1 1 100.0
total 35 40 87.5


line stmt bran cond sub pod time code
1              
2             # Created on: 2014-03-11 20:58:59
3             # Create by: Ivan Wills
4             # $Id$
5             # $Revision$, $HeadURL$, $Date$
6             # $Revision$, $Source$, $Date$
7              
8             use strict;
9 2     2   97742 use warnings;
  2         16  
  2         58  
10 2     2   10 use version;
  2         5  
  2         69  
11 2     2   392 use English qw/ -no_match_vars /;
  2         1771  
  2         14  
12 2     2   705 use Term::ANSIColor qw/colored/;
  2         3205  
  2         16  
13 2     2   1322 use App::Git::Workflow::Brs;
  2         6987  
  2         1634  
14 2     2   403 use App::Git::Workflow::Command qw/get_options/;
  2         5  
  2         78  
15 2     2   341  
  2         6  
  2         455  
16             our $VERSION = version->new(1.1.19);
17             our $workflow = App::Git::Workflow::Brs->new;
18             our ($name) = $PROGRAM_NAME =~ m{^.*/(.*?)$}mxs;
19             our %option;
20              
21             get_options(
22             \%option,
23 1     1 1 7 'n',
24             );
25              
26             my @lines = $workflow->get_brs();
27              
28 1         5 if ( ! @lines ) {
29             die "popb: branch stack empty\n";
30 1 50       6 }
31 1         7  
32             my $new_branch = pop @lines;
33             $workflow->git->checkout($new_branch);
34 0            
35 0           $workflow->set_brs(@lines);
36              
37 0           print join ' ', @lines, "\n";
38             }
39 0            
40             1;
41              
42              
43             =head1 NAME
44              
45             git-popb - Help popb many commits
46              
47             =head1 VERSION
48              
49             This documentation refers to git-popb version 1.1.19
50              
51             =head1 SYNOPSIS
52              
53             git-popb [option]
54              
55             OPTIONS:
56             -n Supress normal branch change output
57              
58             -v --verbose Show more detailed option
59             --version Prints the version information
60             --help Prints this help information
61             --man Prints the full documentation for git-popb
62              
63             =head1 DESCRIPTION
64              
65             Short hand for running
66              
67             C<git commit --popb>
68              
69             Over more than one commit in the history
70              
71             =head1 SUBROUTINES/METHODS
72              
73             =head2 C<run ()>
74              
75             Executes the git workflow command
76              
77             =head1 DIAGNOSTICS
78              
79             =head1 CONFIGURATION AND ENVIRONMENT
80              
81             =head1 DEPENDENCIES
82              
83             =head1 INCOMPATIBILITIES
84              
85             =head1 BUGS AND LIMITATIONS
86              
87             There are no known bugs in this module.
88              
89             Please report problems to Ivan Wills (ivan.wills@gmail.com).
90              
91             Patches are welcome.
92              
93             =head1 AUTHOR
94              
95             Ivan Wills - (ivan.wills@gmail.com)
96              
97             =head1 LICENSE AND COPYRIGHT
98              
99             Copyright (c) 2014 Ivan Wills (14 Mullion Close, Hornsby Heights, NSW Australia 2077).
100             All rights reserved.
101              
102             This module is free software; you can redistribute it and/or modify it under
103             the same terms as Perl itself. See L<perlartistic>. This program is
104             distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
105             without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
106             PARTICULAR PURPOSE.
107              
108             =cut