| line |
l |
!l |
condition |
|
78
|
10 |
9 |
$params{'on'} ||= {} |
|
79
|
5 |
14 |
$params{'input'} ||= \*STDIN |
|
80
|
10 |
9 |
$params{'output'} ||= \*STDOUT |
|
91
|
36 |
13 |
shift @{$ms;} || (return) |
|
123
|
17 |
0 |
$fh->blocking // die("Unable to get blocking on input: $!") |
|
124
|
17 |
0 |
$fh->blocking(0) // die("Unable to set input to non-blocking: $!") |
|
131
|
8 |
63435 |
$fh->getline // (next) |
|
138
|
17 |
0 |
$fh->blocking($blocking) // die("Unable to reset blocking on input: $!") |
|
178
|
142 |
1 |
$line //= 'undef' |
|
180
|
142 |
1 |
$type //= 'unsupported' |
|
216
|
108 |
1 |
$report{'event'} // '' |
|
224
|
101 |
5 |
$self->{'_sessions'}{$report{'session'}} ||= {} |
|
281
|
31 |
1 |
$filter{'session'} or '' |
|
308
|
4 |
2 |
$decisions->[0] || '' |
|
332
|
17 |
6 |
$line //= '' |
|
387
|
119 |
298 |
$cb->{$_} || {} |