| line |
true |
false |
branch |
|
71
|
0 |
0 |
if (eof $fh) |
|
83
|
0 |
0 |
unless my($day, $month, $year) = $date =~ /^( \d|\d\d)-(\w{3})-(\d{4})$/ |
|
87
|
0 |
0 |
unless my($hour, $minute, $second) = $time =~ /^(\d{2}):(\d{2}):(\d{2})$/ |
|
91
|
0 |
0 |
unless my($tz, $size, $attributes) = $metadata =~ /^([+\-]\d{4}),(\d+);(\S+)$/ |
|
95
|
0 |
0 |
unless my($tzNegative, $tzHourOffset, $tzMinuteOffset) = $tz =~ /^([+\-])(\d{2})(\d{2})$/ |
|
99
|
0 |
0 |
unless my($hexFlags, $hexUid) = $attributes =~ /^[[:xdigit:]]{8}([[:xdigit:]]{4})-([[:xdigit:]]{8})$/ |
|
103
|
0 |
0 |
hex $hexFlags & 1 ? : |
|
|
0 |
0 |
hex $hexFlags & 2 ? : |
|
|
0 |
0 |
hex $hexFlags & 4 ? : |
|
|
0 |
0 |
hex $hexFlags & 8 ? : |
|
109
|
0 |
0 |
$tzNegative eq '-' ? : |
|
157
|
0 |
0 |
if ($$self{'remaining'} <= 0) |
|
161
|
0 |
0 |
if $len > $$self{'remaining'} |