| line |
true |
false |
branch |
|
17
|
2 |
13 |
unless @_ |
|
29
|
0 |
13 |
if ($^C and not $compiled{$file}) |
|
39
|
5 |
6 |
unless $compiled{$file} and open $fh, '<:perlio', $file_c or open $fh, '<:perlio', $file |
|
45
|
4 |
2 |
unless ($compiled{$file}) |
|
46
|
0 |
4 |
if ($src =~ /^#/) { } |
|
61
|
0 |
6 |
unless open $fh, '>:perlio', $file_c |
|
64
|
0 |
6 |
unless print $fh $src |
|
67
|
0 |
6 |
unless close $fh |
|
85
|
0 |
18 |
if $@ |
|
87
|
6 |
12 |
if ($elem) |
|
127
|
0 |
62 |
unless $arg |
|
131
|
10 |
52 |
if $arg->isa('PPI::Token::Word') |
|
134
|
3 |
49 |
if $arg->isa('PPI::Token::Structure') and $arg->content eq ';' |
|
138
|
11 |
38 |
if $arg->isa('PPI::Token::Number') |
|
145
|
17 |
128 |
if $arg->isa('PPI::Token::Word') |
|
148
|
7 |
121 |
if $arg->isa('PPI::Token::Quote') |
|
152
|
6 |
115 |
if $arg->isa('PPI::Token::QuoteLike::Words') and not $arg->content =~ /^qw . \s* . $/msx |
|
156
|
18 |
97 |
if $arg->isa('PPI::Token::Structure') and $arg->content eq ';' |
|
161
|
50 |
47 |
if ($arg->isa('PPI::Structure::List')) |
|
162
|
24 |
26 |
if (my $expr = $arg->schild(0)) |
|
167
|
81 |
16 |
if (my $sibling = $arg->snext_sibling) |
|
181
|
4 |
695 |
if ($path eq $file) |
|
192
|
4 |
0 |
if (defined $inc_key) { } |