| line |
true |
false |
branch |
|
97
|
0 |
2 |
unless my $fh = 'IO::File'->new($source) |
|
103
|
1894 |
260 |
unless $id and $id > $lastid |
|
106
|
0 |
260 |
unless defined $cpan |
|
107
|
259 |
1 |
if $dist =~ /$accept|$ignore/ |
|
109
|
0 |
1 |
unless ($dist =~ /$archive/) |
|
128
|
1 |
1 |
unless defined $$self{'mail'}{'authors'} and keys %{$$self{'mail'}{'authors'};} |
|
139
|
0 |
1 |
unless $$self{'options'}{'test'} |
|
144
|
1 |
0 |
$ADMINS{$addr} ? : |
|
150
|
1 |
0 |
if ($$self{'options'}{'debug'}) { } |
|
154
|
0 |
0 |
if (my $fh = 'IO::File'->new($cmd)) { } |
|
180
|
0 |
1 |
unless $parser->process($layout, $tvars, \$body) |
|
197
|
1 |
3 |
unless -f $$self{'options'}{'lastfile'} |
|
199
|
2 |
2 |
if (defined $id) { } |
|
212
|
0 |
2 |
unless $logfile |
|
214
|
0 |
2 |
unless my $fh = 'IO::File'->new($logfile, 'a+') |
|
223
|
63 |
98 |
if defined $value |
|
247
|
1 |
8 |
if $$self{'options'}{'help'} |
|
248
|
1 |
7 |
if $$self{'options'}{'version'} |
|
250
|
1 |
6 |
unless (-f $$self{'options'}{'source'}) |
|
262
|
2 |
1 |
if ($full) |