line |
true |
false |
branch |
11
|
0 |
1 |
"$]" < 5.011 && !("$]" >= 5.009004 && "$]" < 5.010001) ? : |
14
|
0 |
1 |
"$]" < 5.009 ? : |
27
|
6 |
3 |
unless eval {
do {
require $file
}
} |
30
|
6 |
3 |
if (defined $err) |
33
|
2 |
4 |
unless $err =~ /\ACan't locate \Q$file\E/ |
45
|
0 |
0 |
if $p =~ /\ATest::Needs(?:::|\z)/ |
60
|
3 |
0 |
/^(\x05)(.*)$/s ? : |
|
9 |
3 |
/^v?([0-9]+(?:\.[0-9]+)+)$/ ? : |
|
3 |
12 |
/^[0-9]+\.[0-9]+$/ ? : |
|
0 |
15 |
!$_ ? : |
73
|
1 |
0 |
defined $module->VERSION ? : |
|
1 |
2 |
defined $version && !_try_version($module, $version) ? : |
|
2 |
2 |
$version ? : |
|
3 |
4 |
_try_require($module) ? : |
|
0 |
9 |
$module =~ /^\d|[^\w:]|:::|[^:]:[^:]|^:|:$/ ? : |
|
15 |
9 |
$module eq 'perl' ? : |
75
|
5 |
10 |
"$]" < $version ? : |
88
|
10 |
12 |
@bad ? : |
94
|
0 |
0 |
if (@_) |
106
|
0 |
0 |
if ($missing) |
107
|
0 |
0 |
if ($ENV{'RELEASE_TESTING'}) { } |
126
|
2 |
4 |
ref $_ eq 'ARRAY' ? : |
|
18 |
6 |
ref $_ eq 'HASH' ? : |
136
|
0 |
0 |
if ($INC{'Test2/API.pm'}) { } |
|
0 |
0 |
elsif ($INC{'Test/Builder.pm'}) { } |
139
|
0 |
0 |
if ($fail) { } |
145
|
0 |
0 |
if ($plan or $tests) { } |
146
|
0 |
0 |
$plan && $plan ne 'NO PLAN' ? : |
156
|
0 |
0 |
if $Test2::API::VERSION < 1.302053 |
162
|
0 |
0 |
unless $_[0]->expected_tests |
|
0 |
0 |
'Test::Builder'->can('has_plan') ? : |
163
|
0 |
0 |
if ($fail) { } |
164
|
0 |
0 |
unless $tb->$has_plan |
172
|
0 |
0 |
if ($plan or $tests) { } |
173
|
0 |
0 |
$plan && $plan ne 'no_plan' ? : |
177
|
0 |
0 |
'Test::Builder'->can('note') ? : |
183
|
0 |
0 |
if 'Test::Builder'->can('done_testing') |
185
|
0 |
0 |
if 'Test::Builder'->can('parent') and $tb->parent |
189
|
0 |
0 |
if ($fail) { } |
204
|
0 |
0 |
if $terminate_event |
207
|
0 |
0 |
unless $terminate_event = eval qq[#line 209 "/root/.cpan/build/Test-Needs-0.002_008-0/blib/lib/Test/Needs.pm"\n package # hide\n Test::Needs::Event::Terminate;\n use Test2::Event ();\n our \@ISA = qw(Test2::Event);\n sub no_display { 1 }\n sub terminate { 0 }\n __PACKAGE__;\n] |