| line |
true |
false |
branch |
|
14
|
0 |
1 |
ref $arg{'TEXT'} eq 'ARRAY' ? : |
|
20
|
0 |
0 |
ref $_[1] eq 'ARRAY' ? : |
|
25
|
5 |
2 |
if ($_[1]) { } |
|
27
|
5 |
15 |
if $mb->length($t) > $maxlen |
|
30
|
2 |
6 |
if length $t > $maxlen |
|
67
|
20 |
20 |
$options == 2 ? : |
|
72
|
8 |
2 |
$i != $#{$core;} ? : |
|
81
|
2 |
2 |
if ($options =~ /vertical/io) { } |
|
|
2 |
0 |
elsif ($options =~ /horizontal/io) { } |
|
97
|
1 |
2 |
if ($dir == 1) { } |
|
|
1 |
1 |
elsif ($dir == 2) { } |
|
|
1 |
0 |
elsif ($dir == 3) { } |
|
123
|
8 |
2 |
$i != $#{$core;} ? : |
|
141
|
0 |
1 |
$method ? : |
|
142
|
0 |
1 |
$method ? : |
|
146
|
0 |
0 |
unless $method |
|
149
|
0 |
0 |
$line ? : |
|
157
|
0 |
0 |
unless print $fh $obj->manip($method, $param) |