| line |
true |
false |
branch |
|
49
|
2 |
1 |
eval {
do {
qr/$opt_value/
}
} ? : |
|
53
|
1 |
2 |
unless $opt_value =~ m[^ \d+ (?: / \d+ )* $]x |
|
57
|
1 |
31 |
if $error |
|
121
|
1 |
23 |
if defined $CLASS and exists $options->{'-builtins'} |
|
141
|
1 |
10 |
if $@ |
|
174
|
4 |
1 |
@_ ? : |
|
181
|
4 |
6 |
if $title =~ /^[+\-$Test::Expander::REGEX_TABLE_SEPARATOR]-/ |
|
183
|
3 |
3 |
if ($title_inline) { } |
|
209
|
15 |
1 |
$expected_type eq 'Regexp' ? : |
|
233
|
107 |
1 |
defined $colors{$export_type} ? : |
|
239
|
3 |
25 |
if ($options->{'-lib'}) |
|
241
|
1 |
2 |
if ref $directory |
|
243
|
1 |
1 |
if $@ |
|
249
|
2 |
24 |
if (exists $options->{'-method'}) { } |
|
256
|
22 |
4 |
unless (exists $options->{'-target'}) |
|
259
|
21 |
1 |
if grep {path($_)->child($testee . '.pm')->is_file;} @INC |
|
261
|
24 |
2 |
if (defined $options->{'-target'}) { } |
|
274
|
4 |
3 |
if $@ eq "" |
|
277
|
1 |
2 |
if defined $search_string |
|
285
|
27 |
1 |
if path($test_file)->exists |
|
292
|
22 |
2 |
if $CLASS and $METHOD and $METHOD_REF = $CLASS->can($METHOD) |
|
305
|
94 |
48 |
if (defined $value) { } |
|
|
2 |
46 |
elsif ($name =~ /^ \$ (?: CLASS | METHOD | METHOD_REF )$/x) { } |
|
321
|
1 |
1 |
if $@ |
|
342
|
1 |
3 |
$@ ? : |
|
361
|
1 |
2 |
if ref $option_value ne "HASH" |
|
363
|
1 |
1 |
if ref $sub_ref ne "CODE" |
|
375
|
3 |
4 |
if (exists $option_value->{$color_name}) |
|
377
|
2 |
1 |
if (defined $requested_color) |
|
379
|
1 |
1 |
if $@ |
|
385
|
1 |
1 |
unless exists $colors{$color_name} |
|
394
|
1 |
3 |
if ref $option_value ne "ARRAY" |
|
403
|
1 |
2 |
if ref $option_value |
|
414
|
2 |
22 |
unless $option_name =~ /^-\w/ |
|
417
|
21 |
1 |
exists $Test::Expander::OPTION_PARSER{$option_name} ? : |
|
435
|
1 |
2 |
if ref $option_value ne "HASH" |
|
444
|
1 |
2 |
if ref $option_value ne "HASH" |
|
458
|
1 |
13 |
unless $line =~ /^ (? \w+) \s* (?: = \s* (? \S .*) | $ )/x |
|
460
|
11 |
2 |
if (exists $+{'value'}) { } |
|
|
1 |
1 |
elsif (exists $ENV{$+{'name'}}) { } |
|
469
|
0 |
11 |
if $@ |
|
471
|
2 |
9 |
if $@ |
|
474
|
2 |
9 |
if $@ |
|
475
|
8 |
1 |
if (defined $value) { } |
|
495
|
1 |
34 |
unless path($test_file)->exists |
|
506
|
7 |
27 |
if (path($env_file)->is_file) |
|
507
|
6 |
1 |
unless $env_found |
|
512
|
5 |
27 |
if $env_found |
|
520
|
32 |
62 |
unless $class |
|
525
|
2 |
60 |
unless path($class_top_level)->is_dir |
|
528
|
2 |
58 |
if (path($env_file)->is_file) |
|
529
|
1 |
1 |
unless $env_found |
|
544
|
0 |
8 |
unless $pass |
|
557
|
17 |
1 |
if (not @subtest_names || @subtest_numbers or grep {$name =~ /$_/;} @subtest_names or grep {/^$number/;} @subtest_numbers) { } |
|
586
|
4 |
6 |
@$header ? : |
|
|
10 |
8 |
if $titles =~ /^[+\-$Test::Expander::REGEX_TABLE_SEPARATOR]-/ |
|
589
|
10 |
20 |
if $line[$index] eq "" |
|
590
|
15 |
15 |
defined $header->[$index] ? : |
|
593
|
1 |
4 |
unless @$header |
|
598
|
3 |
1 |
if $title_in_line |
|
606
|
1 |
3 |
@$imports == 1 && $imports->[0] =~ /$Test::Expander::REGEX_VERSION_NUMBER/ ? : |