| line |
true |
false |
branch |
|
19
|
1 |
16 |
if defined $self->{'-m'} and $self->{'-m'} eq '-0' |
|
36
|
17 |
0 |
unless -e $self->{'_file'} |
|
41
|
0 |
17 |
if ($@) { } |
|
46
|
0 |
0 |
unless open $self->{'_fh'}, '<' . $self->{'_file'} |
|
49
|
0 |
0 |
unless $] < 5.006 |
|
55
|
0 |
17 |
unless $header =~ /^[ft]lf2/ |
|
64
|
3 |
14 |
if (defined $self->{'-m'} and $self->{'-m'} eq '-2') |
|
73
|
0 |
1615 |
unless &_load_char($self, $i) |
|
77
|
17 |
0 |
unless (eof $fh) |
|
81
|
0 |
119 |
unless &_load_char($self, $D{$k}) |
|
83
|
1 |
16 |
if ($self->{'-D'}) |
|
92
|
8 |
9 |
unless $self->{'-U'} |
|
99
|
0 |
1636 |
unless $2 |
|
103
|
0 |
1636 |
if ($val > 'Text::FIGlet'->PRIVb and $self->{'-U'} == -1) { } |
|
109
|
0 |
1636 |
unless &_load_char($self, $val) |
|
116
|
1 |
16 |
if (defined $self->{'-m'} and $self->{'-m'} == -3) { } |
|
|
11 |
5 |
elsif (defined $self->{'-m'} and $self->{'-m'} == -1) { } |
|
|
5 |
0 |
elsif (not defined $self->{'-m'} or $self->{'-m'} > -1) { } |
|
119
|
410 |
324 |
unless defined $font->[$ord] |
|
122
|
0 |
1944 |
unless defined $font->[$ord][2] |
|
125
|
1944 |
0 |
if $font->[$ord][1] |
|
138
|
22612 |
1376 |
unless defined $font->[$ord] |
|
140
|
0 |
6528 |
unless $font->[$ord][$i] |
|
142
|
5281 |
1247 |
if $font->[$ord][1] |
|
152
|
1045684 |
1621 |
unless defined $font->[$ord] |
|
154
|
0 |
9726 |
unless $font->[$ord][$i] |
|
156
|
9720 |
6 |
if $font->[$ord][1] |
|
178
|
3370 |
15122 |
unless ($REtrail) |
|
184
|
17359 |
1133 |
if ($wLead and s/^(\s+)//) { } |
|
185
|
7578 |
9781 |
if ($l = length $1) < $wLead |
|
190
|
0 |
18492 |
if ($wTrail and /$REtrail/) { } |
|
191
|
0 |
0 |
if ($l = length $1) < $wTrail |
|
196
|
7345 |
11147 |
if ($l = UTF8len($_) - (s/(\Q$end\E+)$/$end/ && UTF8len($1))) > $length |
|
201
|
79 |
3291 |
if $i < 126 and $self->{'_maxLen'} < $length |
|
223
|
0 |
20 |
$self->{'_header'}[6] ? : |
|
224
|
1 |
20 |
if ($opts{'-X'} eq 'R') |
|
229
|
0 |
21 |
unless $/ eq "\n" |
|
230
|
1 |
20 |
if (defined $self->{'-m'} and $self->{'-m'} == -3) { } |
|
|
20 |
0 |
elsif ($opts{'-w'} > 0) { } |
|
232
|
0 |
1 |
if $Text::Wrap::columns < 2 |
|
234
|
1 |
0 |
if $] >= 5.008 |
|
237
|
20 |
0 |
if $] >= 5.008 |
|
239
|
20 |
0 |
unless ($opts{'-w'} == 1) |
|
242
|
8 |
114 |
$opts{'-U'} ? : |
|
256
|
9 |
12 |
defined $self->{'-m'} && $self->{'-m'} < 0 ? : |
|
261
|
8 |
126 |
$opts{'-U'} ? : |
|
264
|
5 |
106 |
$opts{'-U'} ? : |
|
270
|
585 |
0 |
if ($font->[$lchar]) { } |
|
271
|
585 |
0 |
if $font->[$lchar][$i] |
|
283
|
13 |
10 |
if (not defined $self->{'-m'} or $self->{'-m'} > -1) |
|
293
|
3 |
297 |
if ($i == scalar(@lines) - 1 and $matches == scalar @lines) |
|
307
|
1 |
18 |
$opts{'-X'} eq 'R' ? : |
|
310
|
18 |
111 |
if (not defined $self->{'-m'} or $self->{'-m'} > 0) { } |
|
322
|
6 |
123 |
if ($opts{'-x'} eq 'c') { } |
|
|
12 |
111 |
elsif ($opts{'-x'} eq 'r') { } |
|
334
|
0 |
21 |
if ($] < 5.006) { } |
|
335
|
0 |
0 |
wantarray ? : |
|
339
|
0 |
21 |
wantarray ? : |