| blib/lib/Audio/WMA.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 28 | 59 | 47.4 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 170 | 44 | 0 | 0 | $utf8 and $] > 5.007 |
| 212 | 0 | 3 | 0 | $$self{'size'} and $objectSize > $$self{'size'} |
| 327 | 21 | 1 | 1 | exists $$self{'TAGS'}{$name} and grep {/^$name$/;} @arrayOk |
| 427 | 29 | 0 | 0 | $DEBUG and uc $name ne 'WM/PICTURE' |
| 679 | 0 | 0 | 0 | defined $nextObjectName and $nextObjectName eq 'ASF_Stream_Properties_Object' |
| line | l | !l | condition |
|---|---|---|---|
| 122 | 0 | 0 | shift() || 0 |
| 324 | 19 | 4 | $$v{'value'} || 0 |
| 650 | 0 | 0 | unpack('v', $self->_readAndIncrementInlineOffset($WORD)) || (last) |
| 669 | 0 | 0 | $reversedGUIDs{$nextObjectGUID} || 'ASF_Unknown_Object' |
| 706 | 12 | 0 | _byteStringToGUID($self->_readAndIncrementInlineOffset($GUID)) || (last) |
| 707 | 12 | 0 | $reversedGUIDs{$nextObjectGUID} || 'ASF_Unknown_Object' |
| 1139 | 0 | 3 | shift() || 1 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 114 | 0 | 0 | 0 | $val == 0 or $val == 1 |
| 173 | 0 | 0 | 0 | eval { do { &Encode::decode('UTF-16LE', $data) } } || $data |
| 178 | 39 | 0 | 5 | eval { do { &Encode::encode('latin1', $data) } } || $data |
| 242 | 0 | 0 | 25 | not defined $nextObjectSize or $nextObjectSize > $$self{'size'} |
| 253 | 1 | 1 | 17 | $nextObjectGUIDName eq 'ASF_Content_Encryption_Object' or $nextObjectGUIDName eq 'ASF_Extended_Content_Encryption_Object' |
| 321 | 22 | 1 | 14 | $$v{'name'} =~ s[^(?:WM/|is|replay)][]i or $$v{'name'} =~ /^Author/ |
| 617 | 0 | 0 | 3 | $wFormatTag == 1 or $wFormatTag == 355 |
| 711 | 0 | 0 | 12 | $nextObjectSize == 0 or $nextObjectSize > $ext{'extension_data_size'} |
| 722 | 2 | 2 | 8 | $nextObjectName eq 'ASF_Metadata_Library_Object' or $nextObjectName eq 'ASF_Metadata_Object' |
| 805 | 4 | 8 | 29 | $data_type == 2 or $data_type == 5 |