| 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') |
|
238
|
0 |
0 |
unless $self->{'verbose'} =~ /\A[01]\z/ |
|
248
|
0 |
0 |
if defined $self->{'allowed_branches'} and defined $self->{'allow_any_branches'} |
|
253
|
0 |
0 |
unless $self->{'allow_any_branches'} =~ /\A[01]\z/ |
|
258
|
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 '') |
|
482
|
0 |
0 |
if $self->{'allow_untracked_files'} |
|
492
|
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) |