| line |
true |
false |
branch |
|
9
|
0 |
240 |
if @_ < 3 |
|
|
0 |
240 |
if @_ > 1 and (@_ - 1) % 2 |
|
|
240 |
0 |
exists ${__rest}{'_codegen'} ? : |
|
|
0 |
240 |
if keys %{__rest} |
|
15
|
0 |
7 |
if @_ < 1 |
|
|
0 |
7 |
if @_ > 1 |
|
19
|
0 |
2 |
if @_ < 2 |
|
|
0 |
2 |
if @_ > 2 |
|
23
|
0 |
2 |
if @_ < 3 |
|
25
|
0 |
2 |
unless $repr_version <= 0 |
|
31
|
0 |
239 |
if @_ < 1 |
|
|
0 |
239 |
if @_ > 1 |
|
44
|
0 |
1 |
if @_ < 1 |
|
|
0 |
1 |
if @_ > 1 |
|
48
|
0 |
2 |
if @_ < 2 |
|
|
0 |
2 |
if @_ > 3 |
|
|
1 |
1 |
if @_ < 2 |
|
49
|
0 |
2 |
unless print $fh $self->_perl_src |
|
53
|
0 |
1 |
if @_ < 2 |
|
|
0 |
1 |
if @_ > 2 and (@_ - 2) % 2 |
|
|
0 |
1 |
if keys %{__rest} |
|
54
|
0 |
1 |
unless open my $fh, ">:encoding(UTF-8)", $file |
|
57
|
0 |
1 |
if ($do_sync) |
|
58
|
0 |
0 |
unless $fh->flush |
|
60
|
0 |
0 |
unless $fh->sync |
|
63
|
0 |
1 |
unless close $fh |
|
67
|
0 |
236 |
if @_ < 1 |
|
|
0 |
236 |
if @_ > 1 |
|
81
|
0 |
233 |
if @_ < 1 |
|
|
0 |
233 |
if @_ > 2 |
|
|
132 |
101 |
if @_ < 1 |