| line |
true |
false |
branch |
|
50
|
2 |
1 |
eval {
do {
qr/$opt_value/
}
} ? : |
|
54
|
1 |
2 |
unless $opt_value =~ m[^ \d+ (?: / \d+ )* $]x |
|
58
|
1 |
31 |
if $error |
|
122
|
1 |
24 |
if defined $CLASS and exists $options->{'-builtins'} |
|
127
|
2 |
54 |
unless ref $_ ne "ARRAY" |
|
145
|
1 |
10 |
if $@ |
|
178
|
4 |
1 |
@_ ? : |
|
185
|
4 |
6 |
if $title =~ /^[+\-$Test::Expander::REGEX_TABLE_SEPARATOR]-/ |
|
187
|
3 |
3 |
if ($title_inline) { } |
|
213
|
15 |
1 |
$expected_type eq 'Regexp' ? : |
|
237
|
113 |
1 |
defined $colors{$export_type} ? : |
|
243
|
3 |
26 |
if ($options->{'-lib'}) |
|
245
|
1 |
2 |
if ref $directory |
|
247
|
1 |
1 |
if $@ |
|
253
|
2 |
25 |
if (exists $options->{'-method'}) { } |
|
260
|
23 |
4 |
unless (exists $options->{'-target'}) |
|
263
|
22 |
1 |
if grep {path($_)->child($testee . '.pm')->is_file;} @INC |
|
265
|
25 |
2 |
if (defined $options->{'-target'}) { } |
|
280
|
4 |
3 |
if $@ eq "" |
|
283
|
1 |
2 |
if defined $search_string |
|
291
|
28 |
1 |
if path($test_file)->exists |
|
298
|
23 |
2 |
if $CLASS and $METHOD and $METHOD_REF = $CLASS->can($METHOD) |
|
311
|
100 |
48 |
if (defined $value) { } |
|
|
2 |
46 |
elsif ($name =~ /^ \$ (?: CLASS | METHOD | METHOD_REF )$/x) { } |
|
327
|
1 |
1 |
if $@ |
|
348
|
1 |
3 |
$@ ? : |
|
368
|
1 |
2 |
if ref $option_value ne "HASH" |
|
370
|
1 |
1 |
if ref $sub_ref ne "CODE" |
|
383
|
3 |
4 |
if (exists $option_value->{$color_name}) |
|
385
|
2 |
1 |
if (defined $requested_color) |
|
387
|
1 |
1 |
if $@ |
|
393
|
1 |
2 |
unless exists $colors{$color_name} |
|
403
|
1 |
3 |
if ref $option_value ne "ARRAY" |
|
413
|
1 |
2 |
if ref $option_value |
|
424
|
2 |
24 |
unless $option_name =~ /^-[\-\w]/ |
|
427
|
22 |
2 |
@$exports && !($option_value =~ /^-/) ? : |
|
428
|
21 |
3 |
exists $Test::Expander::OPTION_PARSER{$option_name} ? : |
|
447
|
1 |
2 |
if ref $option_value ne "HASH" |
|
457
|
1 |
2 |
if ref $option_value ne "HASH" |
|
471
|
1 |
13 |
unless $line =~ /^ (? \w+) \s* (?: = \s* (? \S .*) | $ )/x |
|
473
|
11 |
2 |
if (exists $+{'value'}) { } |
|
|
1 |
1 |
elsif (exists $ENV{$+{'name'}}) { } |
|
482
|
0 |
11 |
if $@ |
|
484
|
2 |
9 |
if $@ |
|
487
|
2 |
9 |
if $@ |
|
488
|
8 |
1 |
if (defined $value) { } |
|
508
|
1 |
35 |
unless path($test_file)->exists |
|
519
|
7 |
28 |
if (path($env_file)->is_file) |
|
520
|
6 |
1 |
unless $env_found |
|
525
|
5 |
28 |
if $env_found |
|
533
|
33 |
64 |
unless $class |
|
538
|
2 |
62 |
unless path($class_top_level)->is_dir |
|
541
|
2 |
60 |
if (path($env_file)->is_file) |
|
542
|
1 |
1 |
unless $env_found |
|
557
|
0 |
8 |
unless $pass |
|
570
|
17 |
1 |
if (not @subtest_names || @subtest_numbers or grep {$name =~ /$_/;} @subtest_names or grep {/^$number/;} @subtest_numbers) { } |
|
589
|
1 |
2 |
@option_value ? : |
|
599
|
4 |
6 |
@$header ? : |
|
|
10 |
8 |
if $titles =~ /^[+\-$Test::Expander::REGEX_TABLE_SEPARATOR]-/ |
|
602
|
10 |
20 |
if $line[$index] eq "" |
|
603
|
15 |
15 |
defined $header->[$index] ? : |
|
606
|
1 |
4 |
unless @$header |
|
611
|
3 |
1 |
if $title_in_line |
|
619
|
1 |
3 |
@$imports == 1 && $imports->[0] =~ /$Test::Expander::REGEX_VERSION_NUMBER/ ? : |