| line |
true |
false |
branch |
|
37
|
1 |
7 |
if ref $args ne 'ARRAY' |
|
42
|
3 |
4 |
unless defined $template and ref $template eq '' and not $template =~ /^\d+$/ |
|
44
|
0 |
4 |
if $template =~ /\*/ |
|
45
|
0 |
4 |
if ref unpack($template, 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx') ne '' |
|
49
|
3 |
1 |
unless defined $offset and $offset =~ /^-?\d+$/ |
|
53
|
0 |
1 |
if $opts{'MaxSize'} and not $opts{'MaxSize'} =~ /^\d+$/ && $opts{'MaxSize'} > 0 |
|
94
|
0 |
2 |
if (my $maxsize = $$self{'maxsize'}) |
|
96
|
0 |
0 |
if ($length > $maxsize) |
|
119
|
3 |
2 |
if (length $$self{'buffer'} >= $length + $datastart) { } |
|
148
|
1 |
1 |
if ($$self{'buffer'} ne '') |