| line |
true |
false |
branch |
|
28
|
0 |
4 |
unless &getopts("io:", \%opt) |
|
34
|
0 |
4 |
unless () = /^begin\s+(\d+)\s+(\S+)/ |
|
35
|
2 |
2 |
unless defined $output_file |
|
38
|
2 |
2 |
if ($output_file eq '-') { } |
|
42
|
0 |
2 |
if ($opt{'i'} and -e $output_file) |
|
46
|
0 |
2 |
unless (open $out, ">", $output_file) |
|
54
|
0 |
2 |
unless (chmod oct $mode, $output_file) |
|
65
|
4 |
8 |
if (/^end$/) |
|
69
|
0 |
8 |
if /[a-z]/ |
|
70
|
0 |
8 |
unless int(((ord($_) - 32 & 63) + 2) / 3) == int length($_) / 4 |
|
72
|
0 |
8 |
unless (print $out unpack("u", $_)) |
|
77
|
0 |
4 |
unless (close $out) |
|
81
|
0 |
4 |
unless ($ended) |