| line |
true |
false |
branch |
|
196
|
0 |
260 |
ref $_[0] ? : |
|
197
|
3 |
257 |
unless my $Document = _Document(shift()) |
|
252
|
0 |
42 |
unless my $self = _SELF(\@_) |
|
257
|
0 |
42 |
unless defined $explicit |
|
258
|
2 |
40 |
if ($explicit and $explicit > $minimum) |
|
266
|
0 |
42 |
unless defined $syntax |
|
267
|
30 |
12 |
if ($syntax and $syntax > $minimum) |
|
283
|
0 |
0 |
unless my $self = _SELF(\@_) |
|
288
|
0 |
0 |
unless defined $explicit |
|
289
|
0 |
0 |
if ($explicit and $explicit > $minimum) |
|
322
|
0 |
43 |
unless my $self = _SELF(\@_) |
|
324
|
3 |
40 |
$reason ? : |
|
328
|
0 |
43 |
unless my $self = _SELF(\@_) |
|
329
|
42 |
1 |
unless (defined $self->{'explicit'}) |
|
336
|
0 |
42 |
unless my $self = shift() |
|
338
|
489 |
16 |
unless $_[1]->isa('PPI::Statement::Include') |
|
339
|
12 |
4 |
unless $_[1]->version |
|
342
|
39 |
3 |
unless $explicit |
|
349
|
4 |
0 |
if (not $element or $version > $max) |
|
391
|
0 |
48 |
unless my $self = _SELF(\@_) |
|
393
|
35 |
13 |
$reason ? : |
|
397
|
0 |
51 |
unless my $self = _SELF(\@_) |
|
399
|
1 |
50 |
if (defined $limit and not &_INSTANCE($limit, 'version')) |
|
402
|
5 |
46 |
if (defined $self->{'syntax'}) |
|
403
|
4 |
1 |
if (not defined $limit or $self->{'syntax'}->version >= $limit) |
|
419
|
34 |
12 |
if ($syntax) |
|
436
|
1 |
0 |
unless defined $value |
|
445
|
45 |
1 |
unless $self->{'_checks2skip'} |
|
450
|
1 |
275 |
if exists $checks2skip{$rule} |
|
453
|
15 |
260 |
if ($v > $filter) |
|
459
|
1 |
14 |
if ($self->{'_collect_all_reasons'}) { } |
|
474
|
1977 |
1 |
if not exists $checks2skip{$_} |
|
478
|
1000 |
24 |
unless my $result = $self->$rule |
|
486
|
2 |
22 |
if ($self->{'_collect_all_reasons'}) { } |
|
515
|
0 |
0 |
unless my $self = _SELF(\@_) |
|
517
|
0 |
0 |
$reason ? : |
|
521
|
0 |
0 |
unless my $self = _SELF(\@_) |
|
522
|
0 |
0 |
unless (defined $self->{'external'}) |
|
549
|
0 |
1 |
unless my $self = _SELF(\@_) |
|
553
|
1 |
0 |
if (my $explicit = $self->minimum_explicit_version) |
|
558
|
40 |
3 |
unless $self->$check |
|
608
|
648 |
40 |
unless $_[1]->isa('PPI::Statement::Include') |
|
609
|
9 |
31 |
unless $_[1]->pragma eq 'feature' |
|
614
|
11 |
81 |
if $arg->content =~ /:(5\.\d+)(?:\.\d+)?/ |
|
615
|
20 |
72 |
if $arg->content =~ /\b($feature_regexp)\b/ |
|
617
|
29 |
63 |
if ($v and $v > ($version || 0)) |
|
624
|
28 |
42 |
defined $version ? : |
|
658
|
505 |
2 |
unless $_[1]->isa('PPI::Statement::Include') and $_[1]->pragma eq 'experimental' |
|
665
|
0 |
5 |
if $arg->content =~ /:(5\.\d+)(?:\.\d+)?/ |
|
666
|
1 |
4 |
if $arg->content =~ /\b($experimental_regexp)\b/ |
|
668
|
1 |
4 |
if ($v and $v > ($version || 0)) |
|
676
|
1 |
45 |
defined $version ? : |
|
692
|
503 |
4 |
unless $_[1]->isa('PPI::Statement::Scheduled') |
|
693
|
0 |
4 |
unless ($_[1]->children)[0]->isa('PPI::Token::Word') |
|
695
|
1 |
3 |
unless exists $SCHEDULED_BLOCK{$function} |
|
698
|
3 |
0 |
if ($v and $v > ($version || 0)) |
|
705
|
3 |
43 |
defined $version ? : |
|
713
|
496 |
14 |
unless grep {$_[1]->isa($_);} 'PPI::Token::QuoteLike::Regexp', 'PPI::Token::Regexp::Match', 'PPI::Token::Regexp::Substitute' |
|
717
|
14 |
0 |
if ($v and $v > ($version || 0)) |
|
723
|
4 |
48 |
if $version and $version eq '5.000' |
|
730
|
698 |
117 |
unless $_[1]->isa('PPI::Token::Word') |
|
731
|
73 |
44 |
unless $_[1]->content =~ /^(each|keys|values)$/ |
|
732
|
2 |
42 |
if is_method_call($_[1]) |
|
734
|
16 |
25 |
if $next->isa('PPI::Structure::List') |
|
735
|
4 |
37 |
if ($next->isa('PPI::Token::Cast')) { } |
|
|
28 |
9 |
elsif ($next->isa('PPI::Token::Symbol')) { } |
|
|
1 |
8 |
elsif ($next->isa('PPI::Token::Operator')) { } |
|
|
2 |
6 |
elsif ($_[1]->parent->isa('PPI::Statement::Sub')) { } |
|
736
|
3 |
1 |
if ($next->content eq '@' and 5.012 > ($version || 0)) { } |
|
|
0 |
2 |
elsif ($next->content eq '$' and 5.014 > ($version || 0)) { } |
|
744
|
7 |
21 |
if ($next->raw_type eq '@' and 5.012 > ($version || 0)) { } |
|
|
14 |
14 |
elsif ($next->raw_type eq '$' and 5.014 > ($version || 0)) { } |
|
756
|
6 |
0 |
if (5.014 > ($version || 0)) |
|
761
|
21 |
17 |
if $version and $version == 5.014 |
|
764
|
29 |
59 |
defined $version ? : |
|
771
|
3 |
8 |
if $s eq $str |
|
781
|
508 |
71 |
unless $main_element->isa('PPI::Token::Word') |
|
782
|
61 |
10 |
unless $main_element->content eq 'binmode' |
|
783
|
0 |
10 |
if is_hash_key($main_element) |
|
784
|
0 |
10 |
if is_method_call($main_element) |
|
785
|
0 |
10 |
if is_subroutine_name($main_element) |
|
786
|
0 |
10 |
if is_included_module_name($main_element) |
|
787
|
0 |
10 |
if is_package_declaration($main_element) |
|
789
|
8 |
2 |
if (scalar @arguments == 2) |
|
791
|
7 |
1 |
if ($arg2->isa('PPI::Token::Quote')) |
|
796
|
3 |
1 |
unless (_str_in_list($str, (':raw', ':crlf')) or $str =~ /[\$\@\%]/) |
|
802
|
5 |
0 |
unless ($version) |
|
818
|
508 |
71 |
unless $_[1]->isa('PPI::Token::Word') |
|
819
|
63 |
8 |
unless $_[1]->content eq 'while' |
|
820
|
0 |
8 |
if is_hash_key($_[1]) |
|
821
|
0 |
8 |
if is_method_call($_[1]) |
|
822
|
1 |
7 |
unless my $e1 = $_[1]->next_sibling |
|
823
|
7 |
0 |
if ($e1->isa('PPI::Structure::Condition')) |
|
827
|
0 |
7 |
unless $e1->isa('PPI::Statement::Expression') |
|
831
|
1 |
6 |
unless $e1->isa('PPI::Token::Word') |
|
832
|
1 |
5 |
unless $e1->content eq 'readdir' |
|
833
|
0 |
5 |
if @children == 1 |
|
834
|
2 |
3 |
if @children > 2 |
|
836
|
0 |
3 |
unless $e1->isa('PPI::Structure::List') or $e1->isa('PPI::Token::Symbol') |
|
847
|
11 |
393 |
if $_[1]->isa('PPI::Statement::Include') |
|
853
|
296 |
42 |
unless $_[1]->isa('PPI::Token::Word') |
|
854
|
32 |
10 |
unless $_[1]->content eq 'sort' |
|
855
|
0 |
10 |
unless is_function_call($_[1]) |
|
857
|
1 |
9 |
unless $e1->isa('PPI::Token::Whitespace') |
|
859
|
2 |
7 |
unless _get_resulting_sigil($e1) or !1 |
|
861
|
1 |
6 |
unless $e1->isa('PPI::Token::Whitespace') |
|
863
|
1 |
3 |
unless $e1->isa('PPI::Token::Word') or $e1->isa('PPI::Token::Symbol') or $e1->isa('PPI::Token::Cast') or $e1->isa('PPI::Structure::List') |
|
871
|
331 |
60 |
unless $_[1]->isa('PPI::Statement') |
|
875
|
26 |
34 |
unless $main_element->isa('PPI::Token::Word') |
|
876
|
27 |
7 |
unless $main_element->content eq 'open' |
|
878
|
5 |
2 |
if (scalar @arguments == 3 and scalar @{$arguments[2];} == 1) |
|
880
|
3 |
2 |
if ($arg3->isa('PPI::Token::Word') and $arg3->content eq 'undef') |
|
890
|
334 |
61 |
unless $_[1]->isa('PPI::Statement') |
|
894
|
26 |
35 |
unless $main_element->isa('PPI::Token::Word') |
|
895
|
27 |
8 |
unless $main_element->content eq 'open' |
|
897
|
6 |
2 |
if (scalar @arguments == 3) |
|
899
|
4 |
2 |
if ($arg3->isa('PPI::Token::Cast') and $arg3->content eq '\\') |
|
912
|
5 |
355 |
if ($elem->isa('PPI::Token::Word') and $elem eq 'exists' and is_function_call($elem) and $elem = first_arg($elem) and (_get_resulting_sigil($elem) || '') eq '&') { } |
|
926
|
3 |
16 |
if ($elem->isa('PPI::Token::Cast')) { } |
|
|
13 |
3 |
elsif ($elem->isa('PPI::Token::Symbol')) { } |
|
939
|
463 |
61 |
unless $main_element->isa('PPI::Token::Word') |
|
940
|
56 |
5 |
unless $main_element->content eq 'when' |
|
941
|
0 |
5 |
if is_hash_key($main_element) |
|
942
|
0 |
5 |
if is_method_call($main_element) |
|
943
|
0 |
5 |
if is_subroutine_name($main_element) |
|
944
|
0 |
5 |
if is_included_module_name($main_element) |
|
945
|
0 |
5 |
if is_package_declaration($main_element) |
|
947
|
0 |
5 |
unless $stmnt |
|
948
|
2 |
3 |
if $stmnt->isa('PPI::Statement::When') |
|
955
|
543 |
8 |
unless $_[1]->isa('PPI::Token::Operator') and $_[1]->content eq '...' |
|
958
|
5 |
3 |
if @child == 1 |
|
959
|
1 |
2 |
if (@child == 2) |
|
967
|
11 |
410 |
if $_[1]->isa('PPI::Statement::Variable') and ($_[1]->children)[0]->isa('PPI::Token::Word') |
|
975
|
0 |
0 |
unless $_[1]->isa('PPI::Statement::Compound') |
|
976
|
0 |
0 |
unless $_[1]->schild(0)->isa('PPI::Token::Label') |
|
980
|
0 |
0 |
if ($next->isa('PPI::Statement::Compound') and $next->schild(0)->isa('PPI::Token::Label')) |
|
991
|
29 |
295 |
if $_[1]->isa('PPI::Statement') and ($_[1]->children)[0]->isa('PPI::Token::Word') |
|
999
|
493 |
9 |
unless $_[1]->isa('PPI::Statement::Package') |
|
1001
|
0 |
9 |
unless $child[0]->isa('PPI::Token::Word') |
|
1002
|
0 |
9 |
unless $child[0]->content eq 'package' |
|
1003
|
0 |
9 |
unless $child[1]->isa('PPI::Token::Word') |
|
1004
|
3 |
6 |
unless $child[2]->isa('PPI::Token::Number') |
|
1013
|
11 |
301 |
if $_[1]->isa('PPI::Statement::Include') |
|
1021
|
26 |
400 |
if $_[1]->isa('PPI::Token::Operator') |
|
1029
|
8 |
393 |
if $_[1]->isa('PPI::Token::Magic') |
|
1037
|
7 |
288 |
if $_[1]->isa('PPI::Statement::Include') |
|
1051
|
2 |
2 |
if $_[1]->isa('PPI::Token::Magic') |
|
1054
|
0 |
2 |
unless $Document->find_any(sub {
$_[1]->symbol eq '$!' if $_[1]->isa('PPI::Token::Magic');
}
) |
|
1061
|
339 |
42 |
unless $_[1]->isa('PPI::Token::Word') |
|
1062
|
42 |
0 |
unless $_[1] eq 'utf8::is_utf' |
|
1070
|
360 |
21 |
unless $_[1]->isa('PPI::Token::Number') |
|
1071
|
21 |
0 |
unless $_[1]{'_subtype'} |
|
1072
|
0 |
0 |
unless $_[1]{'_subtype'} eq 'base256' |
|
1073
|
0 |
0 |
unless my $stmt = $_[1]->parent |
|
1074
|
0 |
0 |
unless my $braces = $stmt->parent |
|
1075
|
0 |
0 |
unless $braces->isa('PPI::Structure') |
|
1076
|
0 |
0 |
unless $braces->braces eq '()' |
|
1077
|
0 |
0 |
unless my $new = $braces->previous_sibling |
|
1078
|
0 |
0 |
unless $new->isa('PPI::Token::Word') |
|
1079
|
0 |
0 |
unless $new->content eq 'new' |
|
1080
|
0 |
0 |
unless my $method = $new->previous_sibling |
|
1081
|
0 |
0 |
unless $method->isa('PPI::Token::Operator') |
|
1082
|
0 |
0 |
unless $method->content eq '->' |
|
1083
|
0 |
0 |
unless my $_class = $method->previous_sibling |
|
1084
|
0 |
0 |
unless $_class->isa('PPI::Token::Word') |
|
1085
|
0 |
0 |
unless $_class->content eq 'version' |
|
1092
|
8 |
324 |
if $_[1]->isa('PPI::Statement::Include') |
|
1106
|
2 |
7 |
if $_[1]->isa('PPI::Statement::Include') and $_[1]->type and $_[1]->type eq 'use' and $_[1]->module eq 'constant' |
|
1122
|
7 |
231 |
if $_[1]->isa('PPI::Statement::Include') |
|
1128
|
5 |
238 |
if $_[1]->isa('PPI::Statement::Variable') |
|
1149
|
4 |
270 |
if $_[1]->isa('PPI::Token::Magic') |
|
1161
|
1 |
273 |
if $_[1]->isa('PPI::Statement::Scheduled') |
|
1175
|
4 |
145 |
if $_[1]->isa('PPI::Statement::Include') |
|
1183
|
3 |
151 |
if $_[1]->isa('PPI::Statement::Include') and $_[1]->module |
|
1205
|
2 |
152 |
if $_[1]->isa('PPI::Statement::Sub') |
|
1217
|
1 |
172 |
if $_[1]->isa('PPI::Statement::Scheduled') |
|
1226
|
308 |
8 |
unless $_[1]->isa('PPI::Statement::Variable') |
|
1227
|
6 |
2 |
unless $_[1]->type eq 'local' |
|
1231
|
0 |
2 |
unless scalar @child >= 2 |
|
1232
|
0 |
2 |
unless $child[1]->isa('PPI::Token::Cast') |
|
1233
|
0 |
2 |
unless $child[1]->content eq '$' |
|
1236
|
0 |
2 |
unless $child[2]->isa('PPI::Structure::Block') |
|
1239
|
0 |
2 |
unless my $statement = $child[2]->schild(0) |
|
1240
|
0 |
2 |
unless $statement->isa('PPI::Statement') |
|
1241
|
0 |
2 |
unless my $inside = $statement->schild(0) |
|
1242
|
0 |
2 |
unless $inside->isa('PPI::Token::Quote') |
|
1253
|
307 |
7 |
unless $_[1]->isa('PPI::Statement::Include') |
|
1254
|
7 |
0 |
unless $_[1]->module eq 'Carp' |
|
1263
|
237 |
50 |
unless $_[1]->isa('PPI::Statement') |
|
1267
|
20 |
30 |
unless $main_element->isa('PPI::Token::Word') |
|
1268
|
17 |
13 |
unless $main_element->content eq 'open' |
|
1270
|
7 |
6 |
if (scalar @arguments > 2) |
|
1280
|
219 |
29 |
unless $main_element->isa('PPI::Token::Word') |
|
1281
|
22 |
7 |
unless $main_element->content eq 'substr' |
|
1282
|
0 |
7 |
if is_hash_key($main_element) |
|
1283
|
1 |
6 |
if is_method_call($main_element) |
|
1284
|
0 |
6 |
if is_subroutine_name($main_element) |
|
1285
|
0 |
6 |
if is_included_module_name($main_element) |
|
1286
|
0 |
6 |
if is_package_declaration($main_element) |
|
1288
|
3 |
3 |
if (scalar @arguments > 3) |
|
1298
|
217 |
27 |
unless $main_element->isa('PPI::Token::Word') |
|
1299
|
21 |
6 |
unless $main_element->content eq 'mkdir' |
|
1300
|
0 |
6 |
if is_hash_key($main_element) |
|
1301
|
1 |
5 |
if is_method_call($main_element) |
|
1302
|
0 |
5 |
if is_subroutine_name($main_element) |
|
1303
|
0 |
5 |
if is_included_module_name($main_element) |
|
1304
|
0 |
5 |
if is_package_declaration($main_element) |
|
1306
|
3 |
2 |
if (scalar @arguments != 2) |
|
1316
|
203 |
27 |
unless $main_element->isa('PPI::Token::Word') |
|
1317
|
18 |
9 |
unless $main_element->content eq 'splice' |
|
1318
|
0 |
9 |
if is_hash_key($main_element) |
|
1319
|
1 |
8 |
if is_method_call($main_element) |
|
1320
|
0 |
8 |
if is_subroutine_name($main_element) |
|
1321
|
0 |
8 |
if is_included_module_name($main_element) |
|
1322
|
0 |
8 |
if is_package_declaration($main_element) |
|
1325
|
3 |
5 |
if (scalar @arguments < 3) |
|
1329
|
5 |
0 |
if (ref $arg eq 'ARRAY') |
|
1332
|
5 |
0 |
if ($arg->isa('PPI::Token::Number')) |
|
1333
|
3 |
2 |
if ($arg->literal < 0) { } |
|
1347
|
171 |
26 |
unless $main_element->isa('PPI::Token::Word') |
|
1348
|
22 |
4 |
unless $main_element->content eq 'foreach' |
|
1349
|
0 |
4 |
if is_hash_key($main_element) |
|
1350
|
0 |
4 |
if is_method_call($main_element) |
|
1351
|
0 |
4 |
if is_subroutine_name($main_element) |
|
1352
|
0 |
4 |
if is_included_module_name($main_element) |
|
1353
|
0 |
4 |
if is_package_declaration($main_element) |
|
1355
|
0 |
4 |
unless $stmnt |
|
1356
|
1 |
3 |
if $stmnt->isa('PPI::Statement::Compound') |
|
1366
|
322 |
3 |
unless $_[1]->isa('PPI::Statement::Include') and $_[1]->module eq 'Scalar::Util' and $_[1]->content =~ /[^:]\b(?:weaken|isweak)\b[^:]/ |
|
1389
|
4 |
163 |
if $_[1]->isa('PPI::Token::Magic') |
|
1398
|
26 |
163 |
if $_[1]->isa('PPI::Token::Word') |
|
1412
|
226 |
2 |
if (&_INSTANCE($param->[0], 'Perl::MinimumVersion')) |
|
1415
|
2 |
0 |
if (&_CLASS($param->[0]) and $param->[0]->isa('Perl::MinimumVersion')) |
|
1429
|
9 |
9 |
if defined $_[0] and "$_[0]" eq 'Perl::MinimumVersion' |
|
1433
|
0 |
26 |
$_->isa('Perl::MinimumVersion::Reason') ? : |
|
1435
|
36 |
0 |
unless &_INSTANCE($_, 'Perl::MinimumVersion::Reason') |
|
|
6 |
12 |
unless my(@valid) = map({[$_, $_->isa('Perl::MinimumVersion::Reason') ? $_->version : $_];} grep({&_INSTANCE($_, 'version') unless &_INSTANCE($_, 'Perl::MinimumVersion::Reason');} @_)) |
|
1443
|
4 |
10 |
if $it->[1] > $max->[1] |