line |
!l |
l&&!r |
l&&r |
condition |
33
|
5 |
57 |
0 |
$self->[2] and UNIVERSAL::can(tied *{$self->[2];}, '_dbg_dump') |
93
|
2 |
9 |
13 |
defined $input && ($para .= $input) || $self->_next_segment and "\n\n" ne substr($para, -2) |
101
|
3 |
3 |
2 |
defined($ch = $self->GETC) and $ch eq "\n" |
113
|
5 |
22 |
51 |
defined $input && ($line .= $input) || $self->_next_segment and $/ ne substr($line, -length($/)) |
147
|
64 |
19 |
84 |
$length and $count || $self->_next_segment |
205
|
2 |
15 |
6 |
$npos >= $segments->[$i][2] and $npos < $segments->[$i][2] + $segments->[$i][1] |