line |
true |
false |
branch |
180
|
0 |
0 |
if scalar keys %args != 0 |
190
|
0 |
0 |
if ($$self{'help'}) |
220
|
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') |
237
|
0 |
0 |
unless $$self{'verbose'} =~ /\A[01]\z/ |
247
|
0 |
0 |
if defined $$self{'allowed_branches'} and defined $$self{'allow_any_branches'} |
252
|
0 |
0 |
unless $$self{'allow_any_branches'} =~ /\A[01]\z/ |
257
|
0 |
0 |
unless $$self{'allow_untracked_files'} =~ /\A[01]\z/ |
261
|
0 |
0 |
unless ($$self{'allow_any_branches'}) |
276
|
0 |
0 |
if (-d $path) { } |
289
|
0 |
0 |
if $$self{'verbose'} |
307
|
0 |
0 |
unless (defined $$self{'git_repositories'}) |
309
|
0 |
0 |
if ($$self{'verbose'}) |
320
|
0 |
0 |
if $$self{'verbose'} |
322
|
0 |
0 |
if $$self{'verbose'} |
328
|
0 |
0 |
if $$self{'verbose'} |
332
|
0 |
0 |
if ($file ne '.git') |
334
|
0 |
0 |
if $$self{'verbose'} |
337
|
0 |
0 |
unless (-d $git_repository) |
339
|
0 |
0 |
if $$self{'verbose'} |
344
|
0 |
0 |
unless ($git_repository =~ /^\Q$$self{'workspace'}\E/x) |
346
|
0 |
0 |
if $$self{'verbose'} |
351
|
0 |
0 |
if (scalar grep({$_ eq $git_repository;} @{$$self{'whitelist_repositories'};}) != 0) |
353
|
0 |
0 |
if $$self{'verbose'} |
358
|
0 |
0 |
if $$self{'verbose'} |
364
|
0 |
0 |
if $$self{'verbose'} |
393
|
0 |
0 |
if $$self{'verbose'} |
397
|
0 |
0 |
-d 'File::Spec'->catfile($git_repository, '.git') ? : |
417
|
0 |
0 |
if (defined $branch_info) |
434
|
0 |
0 |
if $$self{'verbose'} |
443
|
0 |
0 |
unless defined $status |
447
|
0 |
0 |
if not defined $commits_ahead or $commits_ahead == 0 |
454
|
0 |
0 |
unless defined $file |
456
|
0 |
0 |
if $$self{'verbose'} |
460
|
0 |
0 |
unless $status =~ /\Q$code\E/ |
466
|
0 |
0 |
if ($status ne '') |
481
|
0 |
0 |
if $$self{'allow_untracked_files'} |
491
|
0 |
0 |
if $$self{'verbose'} and $total_file_issues > 0 |
495
|
0 |
0 |
if ($total_file_issues > 0 or ($commits_ahead // 0) > 0) |
504
|
0 |
0 |
unless ($$self{'allow_any_branches'} or $is_submodule) |
506
|
0 |
0 |
if (defined $local_branch) { } |
508
|
0 |
0 |
if (scalar grep({$local_branch eq $_;} split(/\s*,\s*/, $$self{'allowed_branches'}, 0)) == 0) |