| line |
true |
false |
branch |
|
42
|
0 |
1 |
unless defined $from_fh and defined $to_fh
|
|
48
|
7 |
1 |
if (length $buff > 0 and $buff =~ s/^((?:[^\015\012]+)\015?\012)//) { }
|
|
56
|
1 |
0 |
if ($buff =~ s/^((?:[^\015\012]+)\015?\012)//) { }
|
|
75
|
0 |
1 |
unless ($mode, $fname) = /^begin[[:blank:]\h]+(\d+)[[:blank:]\h]+(\S+)/
|
|
83
|
1 |
6 |
if (/^end$/)
|
|
88
|
0 |
6 |
if /[a-z]/
|
|
89
|
0 |
6 |
unless int(((ord($_) - 32 & 63) + 2) / 3) == int length($_) / 4
|
|
91
|
0 |
6 |
unless defined $rv
|
|
94
|
0 |
1 |
unless defined $done
|
|
95
|
0 |
1 |
unless $done
|
|
103
|
0 |
0 |
if (not defined $rv) { }
|
|
123
|
0 |
1 |
unless defined $from_fh and defined $to_fh
|
|
124
|
1 |
0 |
exists $opts->{'filename'} && length $opts->{'filename'} ? :
|
|
125
|
1 |
0 |
exists $opts->{'mode'} && length $opts->{'mode'} ? :
|
|
129
|
0 |
1 |
unless defined $rv
|
|
134
|
0 |
1 |
unless defined &$writer("`\n")
|
|
135
|
0 |
1 |
unless defined &$writer("end\n")
|
|
143
|
0 |
0 |
if (not defined $rv) { }
|