Branch Coverage

blib/lib/Image/MetaData/JPEG/Segment.pm
Criterion Covered Total %
branch 105 118 88.9


line true false branch
23 12 1 if $Image::MetaData::JPEG::show_warnings
76 819 7 defined $dataref ? :
84 1 825 unless defined $name and not ref $name
85 0 825 if defined $dataref and not ref $dataref
120 263 570 if $flag and $flag =~ /NOPARSE/
134 2 3 $_ eq 'EXP' ? :
1 5 $_ eq 'DRI' ? :
3 6 $_ eq 'DNL' ? :
51 9 $_ eq 'SOS' ? :
29 60 /^SOF|DHP/ ? :
2 89 $_ eq 'DAC' ? :
70 91 $_ eq 'DHT' ? :
31 161 $_ eq 'DQT' ? :
121 192 /^(SOI|EOI|RST)$/ ? :
2 313 $_ eq 'APP14' ? :
30 315 $_ eq 'APP13' ? :
2 345 $_ eq 'APP12' ? :
0 347 $_ eq 'APP4' ? :
2 347 $_ eq 'APP3' ? :
25 349 $_ eq 'APP2' ? :
65 374 $_ eq 'APP1' ? :
40 439 $_ eq 'APP0' ? :
91 479 $_ eq 'COM' ? :
149 13 820 if $@
196 0 268 if $name =~ /ECS|Post-EOI/
198 3 265 if $$this{'error'}
200 2 263 unless @{$$this{'records'};}
212 2 261 if $_ eq 'COM'
213 163 98 if $_ eq 'APP1'
214 97 1 if $_ eq 'APP13'
219 2 261 if $length > $Image::MetaData::JPEG::Segment::JPEG_SEG_MAX_LEN
222 5 258 if ($error)
252 0 282 if $length > $Image::MetaData::JPEG::Segment::JPEG_SEG_MAX_LEN and not $name =~ /ECS|Post-EOI/
256 37 245 $name =~ /ECS|Post-EOI/ ? :
259 193 89 unless $name =~ /SOI|EOI|RST|ECS|Post-EOI/
273 0 257 if defined $error
275 227 30 $amarker ? :
0 257 $error ? :
294 0 405 unless ref $records eq 'ARRAY'
304 148 2289 if $_->get_category eq 'p'
330 0 148 unless ref $names eq 'ARRAY'
331 0 148 unless ref $dirref eq 'ARRAY'
350 6438 120 if $required >= 0 and $this->size >= $required
352 116 4 if $required < 0 and $this->size == -$required
354 0 4 defined $message ? :
355 3 1 if $required < 0
383 404 7416 ref $addenda ? :
405 7 14726 unless @_
408 7814 6919 ref $_[$#_] eq 'ARRAY' ? :
449 0 14574 unless $key
457 629 13944 $key eq 'LAST_RECORD' ? :
1 14573 $key eq 'FIRST_RECORD' ? :
459 9602 4972 unless $record and $record->get_category eq 'p'
475 3152 413 $record ? :
495 0 1868 unless $key
500 0 1868 unless $record->get_category eq 'p'
528 23683 14929 unless (ref $dataref)
534 4086 19597 if $length == 0
580 6968 1582 if ref $_[0]