| line |
true |
false |
branch |
|
31
|
39 |
3 |
unless delete $opts{'repository_aliases'} |
|
38
|
1 |
41 |
unless ($refresh =~ /^(always|never)$/) |
|
40
|
1 |
40 |
if %opts |
|
44
|
13 |
27 |
if (not -e $directory) { } |
|
47
|
1 |
26 |
unless (-d $directory) |
|
50
|
2 |
24 |
unless (-d "$directory/.git") |
|
51
|
1 |
1 |
if (_is_dir_empty($directory)) { } |
|
58
|
24 |
14 |
if (not $do_clone) { } |
|
61
|
1 |
23 |
if (not defined $actual_repository) { } |
|
66
|
3 |
20 |
if ($actual_repository ne $repository and not grep({$_ eq $actual_repository;} @repository_aliases)) |
|
68
|
1 |
2 |
if ($allow_remote_url_change) { } |
|
72
|
1 |
1 |
@repository_aliases ? : |
|
82
|
11 |
11 |
if (defined $branch) |
|
83
|
1 |
10 |
if ($branch =~ m[^refs/remotes/(.*)]) |
|
87
|
7 |
4 |
if (not defined $current_branch or $current_branch ne $branch) |
|
88
|
4 |
3 |
if (eval {
do {
$self->system({'show_cwd', 1, 'quiet', $quiet}, ('git', 'checkout'), $branch);
1
}
}) { } |
|
100
|
5 |
6 |
if ($info{'detached'}) |
|
105
|
21 |
1 |
if ($refresh eq "always") |
|
108
|
5 |
16 |
if ($status =~ />$/) |
|
116
|
8 |
13 |
if ($switch_later) |
|
118
|
5 |
3 |
unless ($has_changes) |
|
122
|
1 |
7 |
unless (eval {
do {
$self->system({"show_cwd", 1, "quiet", $quiet}, ("git", "checkout"), $branch)
}
}) |
|
129
|
4 |
1 |
if ($commit_before and $self->git_get_commit_hash ne $commit_before || $self->git_current_branch ne $branch_before) |
|
140
|
2 |
12 |
if (defined $branch) |
|
141
|
1 |
1 |
if ($branch =~ m[^refs/remotes/[^/]+/(.*)]) |
|
146
|
1 |
13 |
if ($clone_opts) |
|
160
|
21 |
38 |
if (not defined $untracked_files) { } |
|
|
1 |
37 |
elsif (not $untracked_files =~ /^(normal|no)$/) { } |
|
165
|
1 |
57 |
if %opts |
|
173
|
0 |
57 |
unless my $fh = &_pipe_open(@cmd) |
|
178
|
6 |
7 |
if (/^\?\?/) { } |
|
184
|
8 |
5 |
if ($has_uncommitted) |
|
185
|
1 |
7 |
if ($has_untracked) { } |
|
|
3 |
4 |
elsif ($untracked_files eq 'no') { } |
|
192
|
3 |
50 |
if ($has_uncommitted) { } |
|
|
5 |
45 |
elsif ($has_untracked) { } |
|
198
|
2 |
43 |
unless close $fh |
|
204
|
0 |
48 |
unless my $fh = &_pipe_open(@cmd) |
|
209
|
4 |
44 |
if ($l =~ /^(# )?Your branch is ahead/) { } |
|
|
9 |
35 |
elsif ($l =~ /^(# )?Your branch is behind/) { } |
|
|
4 |
31 |
elsif ($l =~ /^(# )?Your branch and .* have diverged/) { } |
|
218
|
0 |
31 |
if (-f ".git/svn/.metadata") |
|
222
|
0 |
0 |
if (open my $fh_remote, "$root_dir/.git/refs/remotes/trunk") |
|
223
|
0 |
0 |
if (open my $fh_local, "$root_dir/.git/refs/heads/master") |
|
226
|
0 |
0 |
if ($sha1_remote ne $sha1_local) |
|
228
|
0 |
0 |
if (my $log_fh = &_pipe_open("git", "log", "--pretty=format:%H", "master..remotes/trunk")) |
|
229
|
0 |
0 |
if (scalar readline $log_fh) |
|
234
|
0 |
0 |
if (my $log_fh = &_pipe_open("git", "log", "--pretty=format:%H", "remotes/trunk..master")) |
|
235
|
0 |
0 |
if (scalar readline $log_fh) |
|
239
|
0 |
0 |
if ($remote_is_newer and $local_is_newer) { } |
|
|
0 |
0 |
elsif ($remote_is_newer) { } |
|
|
0 |
0 |
elsif ($local_is_newer) { } |
|
261
|
1 |
61 |
if %opts |
|
273
|
1 |
19 |
if %opts |
|
276
|
3 |
16 |
defined $commit ? : |
|
284
|
6 |
2 |
unless (defined $commit) |
|
285
|
1 |
7 |
if %opts |
|
290
|
0 |
6 |
unless my $fh = &_pipe_open(@cmd) |
|
293
|
3 |
3 |
if (defined $first and $first ne "\n") |
|
301
|
3 |
3 |
unless close $fh |
|
311
|
1 |
10 |
if %opts |
|
316
|
0 |
10 |
unless my $fh = &_pipe_open(@cmd) |
|
320
|
1 |
6 |
if $ignore_untracked and /^\?\?/ |
|
324
|
2 |
8 |
unless close $fh |
|
333
|
1 |
4 |
if %opts |
|
336
|
1 |
1 |
-f "$git_root/.git/shallow" ? : |
|
343
|
1 |
49 |
if %opts |
|
349
|
47 |
0 |
if (open $fh, "<", "$git_root/.git/HEAD") |
|
351
|
29 |
18 |
if ($this_head =~ m[refs/heads/(\S+)]) |
|
358
|
18 |
0 |
if ($fh = &_pipe_open(("git", "status"))) |
|
360
|
0 |
18 |
if (/^On branch (.*)/) |
|
361
|
0 |
0 |
if ($info_ref) |
|
366
|
18 |
0 |
if (/^.* detached at (.*)/) |
|
367
|
10 |
8 |
if ($info_ref) |
|
373
|
0 |
0 |
if (/^\#\ Not\ currently\ on\ any\ branch\./) |
|
375
|
0 |
0 |
if (my $fh2 = &_pipe_open(('git', 'show-ref'))) { } |
|
378
|
0 |
0 |
if (my($sha1, $ref) = $_ =~ m[^(\S+)\s+refs/remotes/(.*)$]) |
|
379
|
0 |
0 |
if ($sha1 eq $this_head) |
|
380
|
0 |
0 |
if ($info_ref) |
|
388
|
0 |
0 |
unless close $fh2 |
|
406
|
1 |
22 |
if %opts |
|
407
|
1 |
21 |
if (defined $val and $unset) |
|
414
|
2 |
19 |
if ($unset) { } |
|
415
|
1 |
1 |
if ($@) { } |
|
416
|
1 |
0 |
if ($@->{'exitcode'} == 1) { } |
|
423
|
0 |
1 |
defined $val ? : |
|
427
|
12 |
7 |
if (not defined $val) { } |
|
430
|
6 |
1 |
if (not defined $old_val or $old_val ne $val) { } |
|
446
|
0 |
5 |
if %opts |
|
448
|
3 |
1 |
defined $method ? : |
|
|
1 |
4 |
ref $method eq 'ARRAY' ? : |
|
453
|
1 |
4 |
unless (@methods) |
|
461
|
2 |
3 |
if ($method eq 'remote') { } |
|
|
2 |
1 |
elsif ($method eq 'symbolic-ref') { } |
|
464
|
2 |
0 |
if ($info_res =~ /^\s*HEAD branch:\s+(.*)/m) { } |
|
473
|
2 |
0 |
if (defined $info_res and $info_res ne '') { } |
|
485
|
0 |
4 |
if (@error_msgs) |
|
497
|
0 |
2 |
unless opendir my $h, $dir |
|
501
|
1 |
4 |
unless $entry =~ /^[.][.]?\z/ |
|
514
|
0 |
139 |
unless open $fh, "-|", @cmd |