| line |
true |
false |
branch |
|
79
|
0 |
7 |
if $f->is_ready |
|
80
|
2 |
5 |
unless $size <= length $self->{'data'} |
|
115
|
0 |
0 |
if $f->is_ready |
|
116
|
0 |
0 |
unless length $self->{'data'} |
|
150
|
0 |
2 |
if $f->is_ready |
|
151
|
0 |
2 |
unless length $self->{'data'} >= $size |
|
184
|
1 |
0 |
unless ref $match eq 'Regexp' |
|
188
|
0 |
5 |
if $f->is_ready |
|
189
|
1 |
4 |
unless length $self->{'data'} |
|
190
|
3 |
1 |
unless $self->{'data'} =~ /$match/g |
|
246
|
3 |
0 |
if (my($char, $count) = /\G([$pack_characters])[!><]?([0-9]*)/cg) |
|
252
|
3 |
0 |
unless pos $_ < length $_ |
|
258
|
0 |
9 |
if $f->is_ready |
|
259
|
3 |
6 |
unless length $self->{'data'} |
|
261
|
3 |
3 |
unless $self->{'data'} =~ /^$re/ |
|
285
|
12 |
7 |
if @{$self->{'ops'};} |
|
328
|
11 |
23 |
unless my($op) = @{$self->{'ops'};} |
|
330
|
12 |
11 |
unless $f->is_ready |
|
337
|
2 |
9 |
if $self->{'on_change'} |