| line |
true |
false |
branch |
|
27
|
0 |
11 |
unless ref $this |
|
29
|
11 |
0 |
if @_ > 0 |
|
32
|
0 |
11 |
if ref $_[0] eq 'ARRAY' |
|
34
|
0 |
11 |
if @wrap < 1 |
|
42
|
0 |
11 |
unless defined $words[0] and $words[0] ne '' |
|
55
|
11 |
0 |
if defined $line |
|
60
|
36 |
8 |
if (length($_) + length($line) < $width - 1 or !($line =~ /[.?!]['"]?$/) || $abbrev and length($_) + length($line) < $width) { } |
|
64
|
0 |
36 |
if $line =~ /[.?!]['"]?$/ and not $abbrev |
|
75
|
0 |
11 |
if $this->{'_nobreak'} and defined $line |
|
76
|
11 |
0 |
if defined $line |
|
85
|
8 |
3 |
if defined $line |
|
90
|
208 |
48 |
if (length($_) + length($line) < $width - 1 or !($line =~ /[.?!]['"]?$/) || $abbrev and length($_) + length($line) < $width) { } |
|
94
|
6 |
202 |
if $line =~ /[.?!]['"]?$/ and not $abbrev |
|
101
|
0 |
48 |
if $this->{'_nobreak'} |
|
102
|
48 |
0 |
if defined $line |
|
107
|
256 |
0 |
if defined $_ |
|
110
|
8 |
3 |
if defined $line |
|
113
|
0 |
11 |
if ($this->{'_hindent'} and @wrap > 0) |
|
116
|
0 |
0 |
unless defined $caller |
|
120
|
0 |
0 |
if defined $this->{'_hindtext'}[0] and length $this->{'_hindcurr'} < 1 and $caller ne 'Text::Format::paragraphs' |
|
124
|
0 |
0 |
if ($white - $this->{'_lmargin'} - 1 > length $this->{'_hindcurr'}) { } |
|
139
|
2 |
9 |
wantarray ? : |
|
147
|
0 |
1 |
unless ref $this |
|
149
|
1 |
0 |
if @_ > 0 |
|
152
|
0 |
1 |
if ref $_[0] eq 'ARRAY' |
|
154
|
0 |
1 |
if @wrap < 1 |
|
160
|
0 |
1 |
if ($this->{'_findent'} == $this->{'_bindent'} or $this->{'_hindent'}) { } |
|
174
|
0 |
2 |
if $this->{'_hindent'} |
|
176
|
0 |
2 |
unless defined $this->{'_hindcurr'} |
|
178
|
2 |
0 |
if defined $line and length $line > 0 |
|
182
|
0 |
1 |
if defined $ret[$#ret] and $ret[$#ret] =~ /\n\n$/ |
|
189
|
1 |
0 |
wantarray ? : |
|
197
|
0 |
1 |
unless ref $this |
|
199
|
1 |
0 |
if @_ > 0 |
|
201
|
0 |
1 |
if @center < 1 |
|
213
|
2 |
0 |
if length $_ > 0 |
|
215
|
2 |
0 |
if length $_ > 0 |
|
222
|
1 |
0 |
wantarray ? : |
|
230
|
0 |
0 |
unless ref $this |
|
232
|
0 |
0 |
if @_ > 0 |
|
234
|
0 |
0 |
if @lines < 1 |
|
244
|
0 |
0 |
wantarray ? : |
|
252
|
0 |
0 |
unless ref $this |
|
263
|
0 |
0 |
wantarray ? : |
|
272
|
1 |
1 |
if (ref $_[0] eq 'HASH') { } |
|
|
1 |
0 |
elsif (scalar(@_) % 2 == 0) { } |
|
285
|
0 |
2 |
if ref $this |
|
308
|
2 |
0 |
if (ref $ref eq 'HASH') |
|
311
|
1 |
1 |
if defined $ref->{'columns'} |
|
313
|
0 |
2 |
if defined $ref->{'tabstop'} |
|
315
|
1 |
1 |
if defined $ref->{'firstIndent'} |
|
317
|
0 |
2 |
if defined $ref->{'bodyIndent'} |
|
319
|
0 |
2 |
if defined $ref->{'rightFill'} |
|
321
|
0 |
2 |
if defined $ref->{'rightAlign'} |
|
323
|
0 |
2 |
if defined $ref->{'justify'} |
|
325
|
0 |
2 |
if defined $ref->{'leftMargin'} |
|
327
|
0 |
2 |
if defined $ref->{'rightMargin'} |
|
329
|
0 |
2 |
if defined $ref->{'extraSpace'} |
|
332
|
0 |
2 |
if defined $ref->{'abbrevs'} and ref $ref->{'abbrevs'} eq 'HASH' |
|
335
|
0 |
2 |
if defined $ref->{'text'} and ref $ref->{'text'} eq 'ARRAY' |
|
337
|
0 |
2 |
if defined $ref->{'hangingIndent'} |
|
340
|
0 |
2 |
if defined $ref->{'hangingText'} and ref $ref->{'hangingText'} eq 'ARRAY' |
|
342
|
0 |
2 |
if defined $ref->{'noBreak'} |
|
345
|
0 |
2 |
if defined $ref->{'noBreakRegex'} and ref $ref->{'noBreakRegex'} eq 'HASH' |
|
348
|
0 |
2 |
ref $this ? : |
|
358
|
0 |
7 |
unless ref $this |
|
361
|
7 |
0 |
if (ref $_[0] eq 'HASH') { } |
|
|
0 |
0 |
elsif (scalar(@_) % 2 == 0) { } |
|
377
|
3 |
4 |
if defined $conf->{'columns'} |
|
379
|
0 |
7 |
if defined $conf->{'tabstop'} |
|
381
|
0 |
7 |
if defined $conf->{'firstIndent'} |
|
383
|
0 |
7 |
if defined $conf->{'bodyIndent'} |
|
385
|
7 |
0 |
if defined $conf->{'rightFill'} |
|
387
|
0 |
7 |
if defined $conf->{'rightAlign'} |
|
389
|
7 |
0 |
if defined $conf->{'justify'} |
|
391
|
0 |
7 |
if defined $conf->{'leftMargin'} |
|
393
|
0 |
7 |
if defined $conf->{'rightMargin'} |
|
395
|
4 |
3 |
if defined $conf->{'extraSpace'} |
|
398
|
0 |
7 |
if defined $conf->{'abbrevs'} and ref $conf->{'abbrevs'} eq 'HASH' |
|
401
|
0 |
7 |
if defined $conf->{'text'} and ref $conf->{'text'} eq 'ARRAY' |
|
403
|
0 |
7 |
if defined $conf->{'hangingIndent'} |
|
406
|
0 |
7 |
if defined $conf->{'hangingText'} and ref $conf->{'hangingText'} eq 'ARRAY' |
|
408
|
0 |
7 |
if defined $conf->{'noBreak'} |
|
411
|
0 |
7 |
if defined $conf->{'noBreakRegex'} and ref $conf->{'noBreakRegex'} eq 'HASH' |
|
419
|
0 |
1 |
unless ref $this |
|
424
|
1 |
0 |
@_ ? : |
|
430
|
0 |
0 |
unless ref $this |
|
435
|
0 |
0 |
@_ ? : |
|
441
|
0 |
0 |
unless ref $this |
|
446
|
0 |
0 |
@_ ? : |
|
452
|
0 |
1 |
unless ref $this |
|
457
|
1 |
0 |
@_ ? : |
|
463
|
0 |
0 |
unless ref $this |
|
468
|
0 |
0 |
@_ ? : |
|
474
|
0 |
0 |
unless ref $this |
|
479
|
0 |
0 |
@_ ? : |
|
485
|
0 |
0 |
unless ref $this |
|
490
|
0 |
0 |
@_ ? : |
|
496
|
0 |
0 |
unless ref $this |
|
501
|
0 |
0 |
@_ ? : |
|
507
|
0 |
0 |
unless ref $this |
|
512
|
0 |
0 |
@_ ? : |
|
518
|
0 |
0 |
unless ref $this |
|
523
|
0 |
0 |
@_ ? : |
|
531
|
0 |
0 |
unless ref $this |
|
534
|
0 |
0 |
if (ref $_[0] eq 'HASH') { } |
|
|
0 |
0 |
elsif (@_ > 0) { } |
|
546
|
0 |
0 |
wantarray ? : |
|
553
|
0 |
0 |
unless ref $this |
|
557
|
0 |
0 |
if ref $text eq 'ARRAY' |
|
562
|
0 |
0 |
wantarray ? : |
|
568
|
0 |
0 |
unless ref $this |
|
573
|
0 |
0 |
@_ ? : |
|
579
|
0 |
0 |
unless ref $this |
|
583
|
0 |
0 |
if ref $text eq 'ARRAY' |
|
588
|
0 |
0 |
wantarray ? : |
|
594
|
0 |
0 |
unless ref $this |
|
599
|
0 |
0 |
@_ ? : |
|
605
|
0 |
0 |
unless ref $this |
|
609
|
0 |
0 |
if ref $nobreak eq 'HASH' |
|
619
|
0 |
67 |
unless ref $this |
|
626
|
32 |
35 |
if $this->{'_fill'} and not $this->{'_align'} |
|
627
|
26 |
3 |
if ($this->{'_justify'} and not $this->{'_fill'} || $this->{'_align'} and defined $line and $line =~ /\S+\s+\S+/ and $not_last) |
|
636
|
9 |
17 |
if $ws > 0 |
|
641
|
137 |
111 |
if /^\S/ |
|
643
|
78 |
33 |
unless $spaces |
|
649
|
67 |
0 |
if defined $line |
|
653
|
0 |
0 |
if $this->{'_align'} and not $this->{'_fill'} and defined $line |
|
662
|
0 |
311 |
unless ref $this |
|
666
|
311 |
0 |
if defined $word |
|
673
|
0 |
136 |
if not $this->{'_space'} or exists $abbrev{$word} or exists do {
$$this{'_abbrs'}
}->{$word} |
|
682
|
0 |
0 |
unless ref $this |
|
686
|
0 |
0 |
if defined $line |
|
692
|
0 |
0 |
if $last_word =~ /$_/ and $next_line =~ /do {
$$this{'_nobreakregex'}
}->{$_}/ |
|
697
|
0 |
0 |
if ($no_break and @words > 1) |
|
705
|
0 |
0 |
if $words[$i - 1] =~ /$_/ and $words[$i] =~ /do {
$$this{'_nobreakregex'}
}->{$_}/ |
|
710
|
0 |
0 |
unless $no_break |
|
712
|
0 |
0 |
if ($i > 0) |