| line |
true |
false |
branch |
|
179
|
0 |
0 |
if scalar keys %args != 0 |
|
189
|
0 |
0 |
if ($$self{'help'}) |
|
219
|
0 |
0 |
unless &Getopt::Long::GetOptionsFromArray($arguments, $self, 'verbose', 'allowed_branches=s', 'allow_any_branches=i', 'allow_untracked_files=i', 'whitelist_repositories=s', 'workspace=s', 'help') |
|
236
|
0 |
0 |
unless $$self{'verbose'} =~ /\A[01]\z/ |
|
246
|
0 |
0 |
if defined $$self{'allowed_branches'} and defined $$self{'allow_any_branches'} |
|
251
|
0 |
0 |
unless $$self{'allow_any_branches'} =~ /\A[01]\z/ |
|
256
|
0 |
0 |
unless $$self{'allow_untracked_files'} =~ /\A[01]\z/ |
|
260
|
0 |
0 |
unless ($$self{'allow_any_branches'}) |
|
275
|
0 |
0 |
if (-d $path) { } |
|
288
|
0 |
0 |
if $$self{'verbose'} |
|
306
|
0 |
0 |
unless (defined $$self{'git_repositories'}) |
|
308
|
0 |
0 |
if ($$self{'verbose'}) |
|
319
|
0 |
0 |
if $$self{'verbose'} |
|
321
|
0 |
0 |
if $$self{'verbose'} |
|
327
|
0 |
0 |
if $$self{'verbose'} |
|
331
|
0 |
0 |
if ($file ne '.git') |
|
333
|
0 |
0 |
if $$self{'verbose'} |
|
336
|
0 |
0 |
unless (-d $git_repository) |
|
338
|
0 |
0 |
if $$self{'verbose'} |
|
343
|
0 |
0 |
unless ($git_repository =~ /^\Q$$self{'workspace'}\E/x) |
|
345
|
0 |
0 |
if $$self{'verbose'} |
|
350
|
0 |
0 |
if (scalar grep({$_ eq $git_repository;} @{$$self{'whitelist_repositories'};}) != 0) |
|
352
|
0 |
0 |
if $$self{'verbose'} |
|
357
|
0 |
0 |
if $$self{'verbose'} |
|
363
|
0 |
0 |
if $$self{'verbose'} |
|
392
|
0 |
0 |
if $$self{'verbose'} |
|
396
|
0 |
0 |
-d 'File::Spec'->catfile($git_repository, '.git') ? : |
|
416
|
0 |
0 |
if (defined $branch_info) |
|
433
|
0 |
0 |
if $$self{'verbose'} |
|
442
|
0 |
0 |
unless defined $status |
|
446
|
0 |
0 |
if not defined $commits_ahead or $commits_ahead == 0 |
|
453
|
0 |
0 |
unless defined $file |
|
455
|
0 |
0 |
if $$self{'verbose'} |
|
459
|
0 |
0 |
unless $status =~ /\Q$code\E/ |
|
465
|
0 |
0 |
if ($status ne '') |
|
480
|
0 |
0 |
if $$self{'allow_untracked_files'} |
|
490
|
0 |
0 |
if $$self{'verbose'} and $total_file_issues > 0 |
|
494
|
0 |
0 |
if ($total_file_issues > 0 or ($commits_ahead // 0) > 0) |
|
503
|
0 |
0 |
unless ($$self{'allow_any_branches'} or $is_submodule) |
|
505
|
0 |
0 |
if (defined $local_branch) { } |
|
507
|
0 |
0 |
if (scalar grep({$local_branch eq $_;} split(/\s*,\s*/, $$self{'allowed_branches'}, 0)) == 0) |