line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Git::Raw::Rebase::Operation; |
2
|
|
|
|
|
|
|
$Git::Raw::Rebase::Operation::VERSION = '0.90'; |
3
|
36
|
|
|
52
|
|
216
|
use strict; |
|
36
|
|
|
|
|
65
|
|
|
36
|
|
|
|
|
937
|
|
4
|
36
|
|
|
52
|
|
159
|
use warnings; |
|
36
|
|
|
|
|
59
|
|
|
36
|
|
|
|
|
718
|
|
5
|
36
|
|
|
36
|
|
157
|
use Carp; |
|
36
|
|
|
|
|
59
|
|
|
36
|
|
|
|
|
5789
|
|
6
|
|
|
|
|
|
|
|
7
|
|
|
|
|
|
|
sub AUTOLOAD { |
8
|
|
|
|
|
|
|
# This AUTOLOAD is used to 'autoload' constants from the constant() |
9
|
|
|
|
|
|
|
# XS function. |
10
|
|
|
|
|
|
|
|
11
|
12
|
|
|
12
|
|
254
|
my $constname; |
12
|
12
|
|
|
|
|
23
|
our $AUTOLOAD; |
13
|
12
|
|
|
|
|
75
|
($constname = $AUTOLOAD) =~ s/.*:://; |
14
|
12
|
50
|
|
|
|
46
|
croak "&Git::Raw::Rebase::Operation::constant not defined" if $constname eq '_constant'; |
15
|
12
|
|
|
|
|
126
|
my ($error, $val) = _constant($constname); |
16
|
12
|
50
|
|
|
|
32
|
if ($error) { croak $error; } |
|
0
|
|
|
|
|
0
|
|
17
|
|
|
|
|
|
|
{ |
18
|
36
|
|
|
36
|
|
286
|
no strict 'refs'; |
|
36
|
|
|
|
|
73
|
|
|
36
|
|
|
|
|
2964
|
|
|
12
|
|
|
|
|
22
|
|
19
|
12
|
|
|
16
|
|
78
|
*$AUTOLOAD = sub { $val }; |
|
16
|
|
|
|
|
12134
|
|
20
|
|
|
|
|
|
|
} |
21
|
12
|
|
|
|
|
90
|
goto &$AUTOLOAD; |
22
|
|
|
|
|
|
|
} |
23
|
|
|
|
|
|
|
|
24
|
36
|
|
|
36
|
|
248
|
use Git::Raw; |
|
36
|
|
|
|
|
71
|
|
|
36
|
|
|
|
|
1379
|
|
25
|
|
|
|
|
|
|
|
26
|
|
|
|
|
|
|
=head1 NAME |
27
|
|
|
|
|
|
|
|
28
|
|
|
|
|
|
|
Git::Raw::Rebase::Operation - Git rebase operation class |
29
|
|
|
|
|
|
|
|
30
|
|
|
|
|
|
|
=head1 VERSION |
31
|
|
|
|
|
|
|
|
32
|
|
|
|
|
|
|
version 0.90 |
33
|
|
|
|
|
|
|
|
34
|
|
|
|
|
|
|
=head1 DESCRIPTION |
35
|
|
|
|
|
|
|
|
36
|
|
|
|
|
|
|
A L represents a git rebase operation. |
37
|
|
|
|
|
|
|
|
38
|
|
|
|
|
|
|
B: The API of this module is unstable and may change without warning |
39
|
|
|
|
|
|
|
(any change will be appropriately documented in the changelog). |
40
|
|
|
|
|
|
|
|
41
|
|
|
|
|
|
|
=head1 METHODS |
42
|
|
|
|
|
|
|
|
43
|
|
|
|
|
|
|
=head2 type( ) |
44
|
|
|
|
|
|
|
|
45
|
|
|
|
|
|
|
The type of rebase operation. |
46
|
|
|
|
|
|
|
|
47
|
|
|
|
|
|
|
=head2 id( ) |
48
|
|
|
|
|
|
|
|
49
|
|
|
|
|
|
|
The commit ID being cherry-picked. This will return C for C |
50
|
|
|
|
|
|
|
operations. |
51
|
|
|
|
|
|
|
|
52
|
|
|
|
|
|
|
=head2 exec( ) |
53
|
|
|
|
|
|
|
|
54
|
|
|
|
|
|
|
The executable the user has requested to run. This will return C for all |
55
|
|
|
|
|
|
|
but C operations. |
56
|
|
|
|
|
|
|
|
57
|
|
|
|
|
|
|
=head1 CONSTANTS |
58
|
|
|
|
|
|
|
|
59
|
|
|
|
|
|
|
=head2 PICK |
60
|
|
|
|
|
|
|
|
61
|
|
|
|
|
|
|
The given commit is to be cherry-picked. The client should commit the changes |
62
|
|
|
|
|
|
|
and continue if there are no conflicts. |
63
|
|
|
|
|
|
|
|
64
|
|
|
|
|
|
|
=head2 REWORD |
65
|
|
|
|
|
|
|
|
66
|
|
|
|
|
|
|
The given commit is to be cherry-picked, but the client should prompt the user |
67
|
|
|
|
|
|
|
to provide an updated commit message. |
68
|
|
|
|
|
|
|
|
69
|
|
|
|
|
|
|
=head2 EDIT |
70
|
|
|
|
|
|
|
|
71
|
|
|
|
|
|
|
The given commit is to be cherry-picked, but the client should stop to allow the |
72
|
|
|
|
|
|
|
user to edit the changes before committing them. |
73
|
|
|
|
|
|
|
|
74
|
|
|
|
|
|
|
=head2 SQUASH |
75
|
|
|
|
|
|
|
|
76
|
|
|
|
|
|
|
The given commit is to be squashed into the previous commit. The commit message |
77
|
|
|
|
|
|
|
will be merged with the previous message. |
78
|
|
|
|
|
|
|
|
79
|
|
|
|
|
|
|
=head2 FIXUP |
80
|
|
|
|
|
|
|
|
81
|
|
|
|
|
|
|
The given commit is to be squashed into the previous commit. The commit message |
82
|
|
|
|
|
|
|
from this commit will be discarded. |
83
|
|
|
|
|
|
|
|
84
|
|
|
|
|
|
|
=head2 EXEC |
85
|
|
|
|
|
|
|
|
86
|
|
|
|
|
|
|
No commit will be cherry-picked. The client should run the given command and |
87
|
|
|
|
|
|
|
(if successful) continue. |
88
|
|
|
|
|
|
|
|
89
|
|
|
|
|
|
|
=head1 AUTHOR |
90
|
|
|
|
|
|
|
|
91
|
|
|
|
|
|
|
Jacques Germishuys |
92
|
|
|
|
|
|
|
|
93
|
|
|
|
|
|
|
=head1 LICENSE AND COPYRIGHT |
94
|
|
|
|
|
|
|
|
95
|
|
|
|
|
|
|
Copyright 2016 Jacques Germishuys. |
96
|
|
|
|
|
|
|
|
97
|
|
|
|
|
|
|
This program is free software; you can redistribute it and/or modify it |
98
|
|
|
|
|
|
|
under the terms of either: the GNU General Public License as published |
99
|
|
|
|
|
|
|
by the Free Software Foundation; or the Artistic License. |
100
|
|
|
|
|
|
|
|
101
|
|
|
|
|
|
|
See http://dev.perl.org/licenses/ for more information. |
102
|
|
|
|
|
|
|
|
103
|
|
|
|
|
|
|
=cut |
104
|
|
|
|
|
|
|
|
105
|
|
|
|
|
|
|
1; # End of Git::Raw::Rebase::Operation |