| line |
true |
false |
branch |
|
16
|
1 |
5 |
if $self->{'files'} and not scalar @{$self->{'files'};} |
|
34
|
1 |
1 |
if $args |
|
36
|
1 |
1 |
unless defined $remark |
|
55
|
0 |
0 |
unless defined $remark |
|
86
|
0 |
2 |
unless -f $pm |
|
87
|
1 |
1 |
unless -f $md |
|
96
|
4 |
2 |
if exists $+{'sub'} and "_" ne substr($+{'sub'}, 0, 1) |
|
97
|
0 |
6 |
if exists $+{'has'} and "_" ne substr($+{'has'}, 0, 1) |
|
100
|
0 |
0 |
unless keys %sub or keys %has |
|
108
|
2 |
0 |
if keys %sub |
|
112
|
2 |
0 |
if ($is) |
|
118
|
2 |
0 |
$is ? : |
|
121
|
0 |
2 |
if keys %has |
|
125
|
0 |
0 |
if ($is) |
|
131
|
0 |
0 |
$is ? : |
|
135
|
1 |
1 |
if ($added) { } |
|
137
|
0 |
1 |
scalar keys %has ? : |
|
|
1 |
0 |
scalar keys %sub ? : |
|
153
|
0 |
0 |
$1 eq 'perl_5' ? : |
|
|
0 |
0 |
-r 'minil.toml' && read_text('minil.toml') =~ /^\s*license\s*=\s*"([^"\n]*)"/mu ? : |
|
154
|
0 |
0 |
$1 eq 'Russia' ? : |
|
|
0 |
0 |
`curl "https://ipapi.co/\$(curl https://2ip.ru --connect-timeout 3 --max-time 3 -Ss)/json/" --connect-timeout 3 --max-time 3 -Ss` =~ /country_name": "([^"\n]*)"/u ? : |
|
227
|
1 |
1 |
if ($self->{'compile_force'}) { } |
|
233
|
0 |
1 |
unless $mdmtime |
|
234
|
0 |
1 |
if not -e $test or -e $test and $mdmtime > (stat $test)[9] |
|
238
|
0 |
2 |
if (-f "minil.toml" and -r "minil.toml") |
|
245
|
0 |
0 |
if (-f $name and -r $name) |
|
246
|
0 |
0 |
if (not -e "README.md" or -e "README.md" and (stat $name)[9] > (stat "README.md")[9]) |
|
253
|
0 |
0 |
if ($@) { } |
|
|
0 |
0 |
elsif ($is_copy) { } |
|
292
|
0 |
2 |
if $x{'code'} =~ /^\s*#/u |
|
298
|
0 |
2 |
if (exists $x{'is_deeply'}) { } |
|
|
2 |
0 |
elsif (exists $x{'is'}) { } |
|
|
0 |
0 |
elsif (exists $x{'qqis'}) { } |
|
|
0 |
0 |
elsif (exists $x{'qis'}) { } |
|
|
0 |
0 |
elsif (exists $x{'like'}) { } |
|
|
0 |
0 |
elsif (exists $x{'unlike'}) { } |
|
328
|
0 |
2 |
unless defined $sec1 |
|
329
|
0 |
2 |
if $code =~ /^```[ \t]*$/u |
|
331
|
0 |
2 |
if $sec2 ne "```\n" |
|
338
|
0 |
2 |
if ($infile) { } |
|
|
2 |
0 |
elsif ($sec1 =~ /^```(?:perl)?[ \t]*$/u) { } |
|
340
|
0 |
0 |
if ($is) { } |
|
349
|
2 |
0 |
if ($use_title ne $title) |
|
350
|
0 |
2 |
if $close_subtest |
|
364
|
2 |
0 |
if $close_subtest |
|
382
|
1 |
1 |
unless (-e $pm) |
|
395
|
0 |
2 |
if defined $version |
|
410
|
1 |
0 |
unless -e $cover |
|
413
|
1 |
0 |
unless -e $yath |
|
417
|
0 |
1 |
if ($self->{'files'}) |
|
421
|
0 |
0 |
$self->{'prove'} ? : |
|
429
|
1 |
0 |
if ($self->{'prove'}) { } |
|
436
|
0 |
1 |
if $self->{'exit_code'} |
|
438
|
0 |
1 |
if $self->{'open'} |