| line |
true |
false |
branch |
|
13
|
1 |
1 |
if (@_ > 1 and $_[1] =~ /[A-Z]/ and $_[0] eq 'Tie::Array::PackedC') { } |
|
15
|
1 |
0 |
unless $format =~ /\*$/ |
|
17
|
0 |
1 |
unless open my $f, '<', '/.cpan/build/Tie-Array-PackedC-0.03-ET39Dv/blib/lib/Tie/Array/PackedC.pm' |
|
22
|
0 |
1 |
if $args{'ALLOC'} |
|
23
|
0 |
1 |
if $args{'SIZE'} |
|
24
|
0 |
1 |
unless $o < $count{$s} |
|
|
0 |
22 |
if $o >= $count{$s} |
|
|
0 |
0 |
length $$s ? : |
|
|
0 |
0 |
unless @args |
|
|
0 |
0 |
if (($count{$s} + @args) * 8 > length $$s) { } |
|
|
0 |
0 |
length $$s ? : |
|
|
0 |
1 |
if length $$s < ($o + 1) * 8 |
|
|
0 |
1 |
if $count{$s} <= $o |
|
|
1 |
0 |
@_ > 1 ? : |
|
|
1 |
0 |
unless defined $$strref |
|
|
0 |
1 |
if length($$strref) % 8 |
|
|
0 |
1 |
if $size < $count{$self} |
|
|
0 |
1 |
if $DEBUG |
|
|
0 |
0 |
unless $format =~ /\*$/ |
|
|
0 |
0 |
unless open my $f, '<', '(eval 28)[/.cpan/build/Tie-Array-PackedC-0.03-ET39Dv/blib/lib/Tie/Array/PackedC.pm:24]' |
|
|
0 |
0 |
if $args{'ALLOC'} |
|
|
0 |
0 |
if $args{'SIZE'} |
|
|
0 |
0 |
if $args{'DEBUG'} |
|
|
0 |
0 |
if $@ |
|
|
0 |
0 |
if (@_ > 1 and $_[1] =~ /[A-Z]/ and $_[0] eq 'Tie::Array::PackedC::Double') { } |
|
25
|
0 |
1 |
if $args{'DEBUG'} |
|
26
|
0 |
1 |
if $@ |
|
79
|
1 |
2 |
if $size < $count{$self} |
|
86
|
0 |
2 |
if $DEBUG |
|
93
|
2 |
0 |
@_ > 1 ? : |
|
94
|
1 |
1 |
unless defined $$strref |
|
98
|
0 |
2 |
if length($$strref) % 8 |
|
111
|
1 |
41 |
if $o >= $count{$s} |
|
117
|
1 |
1 |
if length $$s < ($o + 1) * 8 |
|
118
|
1 |
1 |
if $count{$s} <= $o |
|
140
|
1 |
0 |
length $$s ? : |
|
145
|
0 |
1 |
unless @args |
|
147
|
0 |
1 |
if (($count{$s} + @args) * 8 > length $$s) { } |
|
160
|
0 |
0 |
length $$s ? : |
|
170
|
0 |
0 |
unless $o < $count{$s} |