| line |
l |
!l |
condition |
|
83
|
10 |
15 |
$params{'on'} ||= {} |
|
84
|
5 |
20 |
$params{'input'} ||= \*STDIN |
|
85
|
10 |
15 |
$params{'output'} ||= \*STDOUT |
|
96
|
42 |
13 |
shift @{$ms;} || (return) |
|
128
|
23 |
0 |
$fh->blocking // die("Unable to get blocking on input: $!") |
|
129
|
23 |
0 |
$fh->blocking(0) // die("Unable to set input to non-blocking: $!") |
|
136
|
8 |
85891 |
$fh->getline // (next) |
|
143
|
23 |
0 |
$fh->blocking($blocking) // die("Unable to reset blocking on input: $!") |
|
183
|
142 |
1 |
$line //= "undef" |
|
185
|
142 |
1 |
$type //= "unsupported" |
|
221
|
110 |
1 |
$report{'event'} // "" |
|
230
|
101 |
7 |
$self->{'_sessions'}{$report{'session'}} ||= {} |
|
288
|
31 |
1 |
$filter{'session'} or "" |
|
315
|
4 |
2 |
$decisions->[0] || '' |
|
339
|
17 |
6 |
$line //= "" |
|
399
|
119 |
304 |
$cb->{$_} || {} |