| line |
true |
false |
branch |
|
67
|
0 |
0 |
unless (defined $toader) |
|
74
|
0 |
0 |
if (ref $toader ne 'Toader') |
|
85
|
0 |
0 |
if ($toader->error) |
|
96
|
0 |
0 |
if ($self->{'vcs'}->error) |
|
126
|
0 |
0 |
unless ($self->errorblank) |
|
150
|
0 |
0 |
unless ($self->errorblank) |
|
155
|
0 |
0 |
unless (defined $dir) |
|
169
|
0 |
0 |
unless ($returned) |
|
191
|
0 |
0 |
unless ($self->errorblank) |
|
195
|
0 |
0 |
unless (defined $self->{'dir'}) |
|
204
|
0 |
0 |
if (not defined $cp) { } |
|
207
|
0 |
0 |
if ($self->error) |
|
214
|
0 |
0 |
unless (opendir $dh, $self->{'dir'} . '/' . $cp) |
|
234
|
0 |
0 |
if (-f $item and $item =~ m[/README$] || $item =~ m[/Changes$] || $item =~ m[/TODO$] || $item =~ /\.pm$/ || $item =~ /\.[Pp][Oo][Dd]$/ || $item =~ /\.[Tt][Xx][Tt]$/ || $checker->isAperlScript($item)) |
|
250
|
0 |
0 |
if (-d $item) |
|
252
|
0 |
0 |
if (defined $returned[0]) |
|
261
|
0 |
0 |
if ($cp eq '') |
|
295
|
0 |
0 |
unless ($self->errorblank) |
|
299
|
0 |
0 |
unless (defined $self->{'dir'}) |
|
306
|
0 |
0 |
unless (defined $path) |
|
313
|
0 |
0 |
unless ($self->validPath($path)) |
|
321
|
0 |
0 |
if ($self->error) |
|
329
|
0 |
0 |
if ($self->error) |
|
347
|
0 |
0 |
unless ($self->errorblank) |
|
351
|
0 |
0 |
unless (defined $self->{'dir'}) |
|
358
|
0 |
0 |
unless (defined $path) |
|
366
|
0 |
0 |
if ($self->error) |
|
375
|
0 |
0 |
if ($paths[$int] ne $path) |
|
383
|
0 |
0 |
if ($self->error) |
|
407
|
0 |
0 |
unless ($self->errorblank) |
|
411
|
0 |
0 |
unless (defined $self->{'dir'}) |
|
421
|
0 |
0 |
unless (-f $file) |
|
427
|
0 |
0 |
unless (open $fh, '<', $file) |
|
437
|
0 |
0 |
if ($line ne '') |
|
462
|
0 |
0 |
if (defined $_[1]) |
|
466
|
0 |
0 |
unless ($self->errorblank) |
|
470
|
0 |
0 |
unless (defined $self->{'dir'}) |
|
481
|
0 |
0 |
unless (-e $dir) |
|
482
|
0 |
0 |
unless (mkdir $dir) |
|
494
|
0 |
0 |
unless (open $fh, '>', $file) |
|
504
|
0 |
0 |
unless ($self->{'VCSusable'}) |
|
510
|
0 |
0 |
if ($self->{'vcs'}->error) |
|
517
|
0 |
0 |
if ($underVCS) |
|
523
|
0 |
0 |
if ($self->{'vcs'}->error) |
|
549
|
0 |
0 |
unless (defined $path) |
|
553
|
0 |
0 |
if ($path =~ m[^\.\./]) |
|
557
|
0 |
0 |
if ($path =~ m[/\.\./]) |
|
561
|
0 |
0 |
if ($path =~ m[/.\.$]) |
|
582
|
0 |
0 |
unless ($self->errorblank) |
|
600
|
0 |
0 |
unless ($self->errorblank) |
|
654
|
0 |
0 |
unless ($self->errorblank) |