| line |
true |
false |
branch |
|
11
|
0 |
237 |
if @_ < 3 |
|
|
0 |
237 |
if @_ > 1 and (@_ - 1) % 2 |
|
|
237 |
0 |
exists ${__rest}{'_codegen'} ? : |
|
|
0 |
237 |
if keys %{__rest} |
|
17
|
0 |
6 |
if @_ < 1 |
|
|
0 |
6 |
if @_ > 1 |
|
21
|
0 |
1 |
if @_ < 2 |
|
|
0 |
1 |
if @_ > 2 |
|
25
|
0 |
1 |
if @_ < 3 |
|
26
|
0 |
1 |
unless $repr_version <= 0 |
|
32
|
0 |
237 |
if @_ < 1 |
|
|
0 |
237 |
if @_ > 1 |
|
45
|
0 |
1 |
if @_ < 1 |
|
|
0 |
1 |
if @_ > 1 |
|
49
|
0 |
2 |
if @_ < 2 |
|
|
0 |
2 |
if @_ > 3 |
|
|
1 |
1 |
if @_ < 2 |
|
50
|
0 |
2 |
unless print $fh $self->_perl_src |
|
54
|
0 |
1 |
if @_ < 2 |
|
|
0 |
1 |
if @_ > 2 and (@_ - 2) % 2 |
|
|
0 |
1 |
if keys %{__rest} |
|
55
|
0 |
1 |
unless open my $fh, ">:encoding(UTF-8)", $file |
|
58
|
0 |
1 |
if ($do_sync) |
|
59
|
0 |
0 |
unless $fh->flush |
|
61
|
0 |
0 |
unless $fh->sync |
|
64
|
0 |
1 |
unless close $fh |
|
68
|
0 |
234 |
if @_ < 1 |
|
|
0 |
234 |
if @_ > 1 |
|
82
|
0 |
231 |
if @_ < 1 |
|
|
0 |
231 |
if @_ > 2 |
|
|
132 |
99 |
if @_ < 1 |