| line |
true |
false |
branch |
|
56
|
0 |
896 |
if $verbose_tok |
|
58
|
292 |
604 |
if ($s =~ /^([^~]+)/ and $1) { } |
|
|
6 |
598 |
elsif ($s =~ /^~(<{2,}|>{2,}|\|{2,})/ and $1) { } |
|
|
598 |
0 |
elsif ($s =~ /^~(((-?\d*|v|\#|\'.)(,(-?\d*|v|\#|\'.))*)? # comma sep. list of params
([\@:!]*) # optional @ ! and :
([^=\@:!\'v\#]|\n\s*|=.))/x and $1) { } |
|
59
|
0 |
292 |
if $verbose_tok > 1 |
|
78
|
0 |
6 |
if $verbose_tok > 1 |
|
83
|
2 |
2 |
$p =~ />/ ? : |
|
|
2 |
4 |
$p =~ /
|
|
98
|
0 |
598 |
if $verbose_tok > 1 |
|
104
|
27 |
217 |
if (/^\'(.*)$/) |
|
110
|
68 |
530 |
$sp =~ /@|!/ ? : |
|
|
66 |
532 |
$sp =~ /:/ ? : |
|
134
|
213 |
896 |
if $i >= @t |
|
148
|
0 |
1109 |
if ($term and not $t) |
|
155
|
213 |
896 |
unless $t |
|
157
|
0 |
896 |
if $verbose_parse |
|
159
|
80 |
816 |
if $$t{'directive'} eq $term |
|
161
|
37 |
779 |
if ($$t{'directive'} eq '[') |
|
162
|
0 |
37 |
if $verbose_parse > 1 |
|
170
|
58 |
145 |
if ($$l{'directive'} eq ';') { } |
|
172
|
10 |
48 |
if $$l{'colon'} |
|
182
|
0 |
37 |
if $verbose_parse > 1 |
|
185
|
11 |
805 |
if ($$t{'directive'} eq '<') |
|
186
|
0 |
11 |
if $verbose_parse > 1 |
|
194
|
12 |
23 |
if ($$l{'directive'} eq ';') { } |
|
205
|
0 |
11 |
if $verbose_parse > 1 |
|
208
|
24 |
792 |
if ($$t{'directive'} eq '{') |
|
209
|
0 |
24 |
if $verbose_parse > 1 |
|
212
|
23 |
1 |
if (@{$b;} != 0) |
|
215
|
0 |
24 |
if $verbose_parse > 1 |
|
218
|
7 |
809 |
if ($$t{'directive'} eq '(') |
|
219
|
0 |
7 |
if $verbose_parse > 1 |
|
221
|
0 |
7 |
if $verbose_parse > 1 |
|
224
|
0 |
816 |
if ($$t{'directive'} eq '/') |
|
227
|
0 |
0 |
unless $$tt{'directive'} eq 'literal' |
|
230
|
0 |
0 |
unless $$tt{'directive'} eq '/' |
|
233
|
1 |
815 |
if ($$t{'directive'} eq '=(') |
|
234
|
0 |
1 |
if $verbose_parse > 1 |
|
236
|
0 |
1 |
if $verbose_parse > 1 |
|
251
|
0 |
816 |
if $verbose_reduce |
|
254
|
47 |
769 |
if ($d =~ /^[DOXBR]$/) |
|
256
|
20 |
27 |
if $d eq 'D' |
|
257
|
2 |
45 |
if $d eq 'O' |
|
258
|
2 |
45 |
if $d eq 'X' |
|
259
|
2 |
45 |
if $d eq 'B' |
|
263
|
21 |
26 |
if ($d eq 'R') |
|
267
|
16 |
5 |
unless ($$t{'radix'}) |
|
268
|
11 |
5 |
if ($$t{'atsign'}) { } |
|
275
|
0 |
47 |
if $verbose_reduce > 1 |
|
278
|
213 |
603 |
if ($d =~ /^[ASW]$/) |
|
280
|
213 |
0 |
$d eq 'A' ? : |
|
284
|
3 |
813 |
if ($d =~ /^[%_|~]$/) |
|
289
|
2 |
1 |
if $n eq '' |
|
292
|
0 |
3 |
if $d eq '_' |
|
293
|
3 |
0 |
if $d eq '~' |
|
294
|
0 |
3 |
if $d eq '%' |
|
295
|
0 |
3 |
if $d eq '|' |
|
297
|
0 |
3 |
if (not $n =~ /\d/) { } |
|
304
|
0 |
3 |
if $verbose_reduce > 1 |
|
308
|
0 |
816 |
if ($d =~ /^\n/) |
|
312
|
0 |
0 |
$$t{'atsign'} ? : |
|
|
0 |
0 |
$$t{'colon'} ? : |
|
315
|
0 |
0 |
if $verbose_reduce > 1 |
|
338
|
1 |
290 |
if (ref $obj) { } |
|
|
111 |
179 |
elsif ($obj =~ /^[+-]?\d+$/) { } |
|
|
0 |
179 |
elsif ($obj =~ /^[+-]\d*\.\d*$/) { } |
|
339
|
0 |
1 |
if (ref $obj eq 'SCALAR') { } |
|
|
0 |
1 |
elsif (ref $obj eq 'CODE') { } |
|
|
0 |
1 |
elsif (ref $obj eq 'GLOB') { } |
|
340
|
0 |
0 |
if ($how) { } |
|
354
|
0 |
1 |
if ($how) { } |
|
355
|
0 |
0 |
unless $_fmtobjs |
|
358
|
1 |
0 |
unless $_fmtobja |
|
364
|
1 |
0 |
if ref $obj eq 'ARRAY' |
|
365
|
0 |
1 |
if ref $obj eq 'HASH' |
|
373
|
0 |
179 |
if ($how) { } |
|
386
|
2 |
289 |
if $padchar =~ /^\d+$/ |
|
387
|
0 |
291 |
if $ovchar =~ /^\d+$/ |
|
389
|
0 |
291 |
if $verbose_fmt |
|
393
|
66 |
225 |
$mincol ? : |
|
397
|
0 |
291 |
if $verbose_fmt |
|
400
|
63 |
228 |
if ($gravity eq 'r') { } |
|
|
225 |
3 |
elsif ($gravity eq 'l') { } |
|
406
|
2 |
289 |
if ($l == $w) { } |
|
|
232 |
57 |
elsif ($l > $w) { } |
|
410
|
0 |
232 |
if ($maxcolp) |
|
412
|
0 |
0 |
if ($gravity eq 'r') { } |
|
420
|
20 |
37 |
if ($gravity eq 'r') { } |
|
|
34 |
3 |
elsif ($gravity eq 'l') { } |
|
441
|
7 |
24 |
if ($val < 0) { } |
|
|
5 |
19 |
elsif ($withsign) { } |
|
451
|
0 |
31 |
if ($radix == 1) { } |
|
463
|
15 |
16 |
if ($withcommas) |
|
482
|
16 |
117 |
if ($val >= $rv[$i]) { } |
|
|
105 |
12 |
elsif ($val <= $rv[$i + 1]) { } |
|
|
5 |
7 |
elsif (not $oldway and ($i & 1) == 0 and $val >= $rv[$i] - $rv[$i + 2]) { } |
|
|
2 |
5 |
elsif (not $oldway and ($i & 1) != 0 and $val >= $rv[$i] - $rv[$i + 1]) { } |
|
522
|
2 |
5 |
if ($val >= 100) |
|
525
|
0 |
2 |
if $ordinal and not $val |
|
528
|
2 |
5 |
if ($val >= 20) |
|
530
|
0 |
2 |
if ($ordinal and not $n) { } |
|
538
|
7 |
0 |
if ($val) |
|
539
|
1 |
6 |
if ($ordinal) { } |
|
540
|
1 |
0 |
if ($val < @ounits) { } |
|
573
|
2 |
5 |
if ($r) |
|
575
|
2 |
0 |
if ($n) |
|
576
|
0 |
2 |
if (not $k and $n < 100) { } |
|
584
|
7 |
0 |
if ($n) |
|
587
|
1 |
6 |
if $o |
|
591
|
2 |
5 |
if ($k and $n) |
|
593
|
0 |
2 |
if ($k > @illions) { } |
|
602
|
0 |
6 |
if (not $val) { } |
|
|
1 |
5 |
elsif ($val < 0) { } |
|
603
|
0 |
0 |
if ($ordinal) { } |
|
611
|
0 |
5 |
$ordinal && !$ordd ? : |
|
618
|
0 |
18 |
if ($config_zero_is_false) { } |
|
619
|
0 |
0 |
$val ? : |
|
629
|
20 |
0 |
if ($a =~ /ARRAY/) { } |
|
|
0 |
0 |
elsif ($a =~ /HASH/) { } |
|
648
|
0 |
335 |
if $Lisp::Fmt::argno >= @Lisp::Fmt::arglist |
|
653
|
2 |
18 |
if $Lisp::Fmt::argno >= @Lisp::Fmt::arglist |
|
662
|
1291 |
252 |
if $nth >= @n |
|
665
|
3 |
249 |
if $n eq 'v' |
|
666
|
20 |
229 |
if $n eq '#' |
|
668
|
28 |
201 |
if $n eq '' |
|
684
|
0 |
756 |
if $verbose_run |
|
686
|
297 |
459 |
if ($d eq 'literal') { } |
|
|
0 |
459 |
elsif ($d eq 'repeat') { } |
|
|
20 |
439 |
elsif ($d eq '&') { } |
|
|
24 |
415 |
elsif ($d eq 'T') { } |
|
|
221 |
194 |
elsif ($d eq 'A') { } |
|
|
6 |
188 |
elsif ($d eq '*') { } |
|
|
3 |
185 |
elsif ($d eq '?') { } |
|
|
15 |
170 |
elsif ($d eq 'P') { } |
|
|
17 |
153 |
elsif ($d eq 'C') { } |
|
|
7 |
146 |
elsif ($d eq '(') { } |
|
|
0 |
146 |
elsif ($d eq '/') { } |
|
|
11 |
135 |
elsif ($d eq '<') { } |
|
|
22 |
113 |
elsif ($d eq '{') { } |
|
|
38 |
75 |
elsif ($d eq '[') { } |
|
|
27 |
48 |
elsif ($d eq '^') { } |
|
|
31 |
17 |
elsif ($d eq 'number') { } |
|
|
11 |
6 |
elsif ($d eq 'roman') { } |
|
|
5 |
1 |
elsif ($d eq 'english') { } |
|
|
0 |
1 |
elsif ($d eq '=V') { } |
|
|
1 |
0 |
elsif ($d eq '=(') { } |
|
|
0 |
0 |
elsif ($d eq '=F') { } |
|
|
0 |
0 |
elsif ($d eq ')') { } |
|
|
0 |
0 |
elsif ($d eq '}') { } |
|
|
0 |
0 |
elsif ($d eq ']') { } |
|
|
0 |
0 |
elsif ($d eq ';') { } |
|
695
|
20 |
0 |
unless $n |
|
696
|
0 |
0 |
unless $Lisp::Fmt::accum =~ /\n$/ |
|
697
|
0 |
0 |
if ($n > 1) |
|
714
|
4 |
20 |
if ($$t{'atsign'}) { } |
|
715
|
4 |
0 |
if ($colinc) |
|
720
|
15 |
5 |
if ($mp < 0) |
|
721
|
15 |
0 |
if ($colinc) |
|
723
|
8 |
7 |
if $mp >= $colinc |
|
740
|
2 |
4 |
$$t{'atsign'} ? : |
|
742
|
2 |
4 |
if $$t{'colon'} |
|
744
|
2 |
4 |
if ($$t{'atsign'}) { } |
|
749
|
0 |
6 |
if $Lisp::Fmt::argno < 0 |
|
755
|
1 |
2 |
if ($$t{'atsign'}) { } |
|
757
|
0 |
1 |
ref $fmt ? : |
|
766
|
1 |
1 |
ref $fmt ? : |
|
768
|
0 |
3 |
if $rv |
|
773
|
8 |
7 |
if ($$t{'colon'}) { } |
|
779
|
5 |
10 |
if ($n == 1) { } |
|
780
|
1 |
4 |
if $$t{'atsign'} |
|
782
|
2 |
8 |
if ($$t{'atsign'}) { } |
|
795
|
14 |
3 |
if $n eq '' |
|
796
|
3 |
14 |
unless $n =~ /^\d+$/ |
|
799
|
7 |
10 |
if ($$t{'colon'}) { } |
|
800
|
0 |
7 |
if ($$t{'atsign'} and $n and $n < 27) { } |
|
|
3 |
4 |
elsif ($n < @cv) { } |
|
|
3 |
1 |
elsif ($n >= 127) { } |
|
805
|
0 |
3 |
if ($$t{'atsign'}) { } |
|
815
|
8 |
2 |
if ($$t{'atsign'}) { } |
|
816
|
7 |
1 |
if ($n >= 127 or $n < @cv) { } |
|
834
|
4 |
3 |
if ($$t{'colon'}) { } |
|
835
|
2 |
2 |
if ($$t{'atsign'}) { } |
|
841
|
2 |
1 |
if ($$t{'atsign'}) { } |
|
849
|
0 |
7 |
if $rv |
|
858
|
0 |
0 |
if $p eq '#' |
|
859
|
0 |
0 |
if $p eq 'v' |
|
864
|
0 |
0 |
if @p |
|
886
|
0 |
23 |
if $rv =~ /hat/ |
|
892
|
3 |
8 |
if ($n == 1) { } |
|
|
8 |
0 |
elsif ($n >= 2) { } |
|
893
|
1 |
1 |
$$t{'colon'} ? : |
|
|
2 |
1 |
$$t{'atsign'} ? : |
|
907
|
12 |
8 |
$m ? : |
|
|
4 |
4 |
$$t{'colon'} ? : |
|
|
4 |
4 |
$$t{'atsign'} ? : |
|
|
8 |
4 |
$m == $n - 1 ? : |
|
|
8 |
12 |
$m == 0 ? : |
|
921
|
6 |
16 |
$maxiter ne '' ? : |
|
925
|
1 |
21 |
unless ($body) |
|
927
|
0 |
1 |
unless $body |
|
931
|
2 |
20 |
if ($$t{'colon'} and $$t{'atsign'}) { } |
|
|
2 |
18 |
elsif ($$t{'colon'}) { } |
|
|
5 |
13 |
elsif ($$t{'atsign'}) { } |
|
936
|
1 |
5 |
if $Lisp::Fmt::argno >= @Lisp::Fmt::arglist |
|
945
|
0 |
5 |
if $retv =~ /colon/ |
|
957
|
1 |
5 |
unless @a |
|
963
|
0 |
5 |
if $retv =~ /colon/ |
|
971
|
2 |
14 |
if $Lisp::Fmt::argno >= @Lisp::Fmt::arglist |
|
973
|
2 |
12 |
if $retv =~ /hat/ |
|
987
|
9 |
28 |
if $Lisp::Fmt::argno >= @Lisp::Fmt::arglist |
|
989
|
1 |
27 |
if $retv =~ /hat/ |
|
999
|
17 |
21 |
if $n eq '' |
|
1001
|
8 |
30 |
if ($$t{'atsign'}) { } |
|
|
2 |
28 |
elsif ($$t{'colon'}) { } |
|
1002
|
5 |
3 |
unless falsep($n) |
|
1003
|
5 |
3 |
!falsep($n) ? : |
|
1005
|
1 |
1 |
falsep($n) ? : |
|
1008
|
2 |
36 |
if ($n >= $ni and defined $$t{'default_item'}) |
|
1012
|
30 |
8 |
if ($n < $ni) |
|
1021
|
0 |
38 |
if $rv |
|
1028
|
2 |
25 |
if ($np == 1) { } |
|
|
2 |
23 |
elsif ($np == 2) { } |
|
|
3 |
20 |
elsif ($np == 3) { } |
|
1029
|
1 |
1 |
if param($t, 0, '') == 0 |
|
1031
|
1 |
1 |
if param($t, 0, '') == param($t, 1, '') |
|
1033
|
1 |
2 |
if param($t, 0, '') <= param($t, 1, '') and param($t, 1, '') <= param($t, 2, '') |
|
1036
|
6 |
14 |
if $Lisp::Fmt::argno >= @Lisp::Fmt::arglist |
|
1039
|
9 |
18 |
if ($out) |
|
1040
|
0 |
9 |
if $$t{'colon'} |
|
1049
|
0 |
31 |
if $r eq '#' |
|
1050
|
0 |
31 |
if $r eq 'v' |
|
1051
|
0 |
31 |
if $r < 1 or $r > 36 |
|
1053
|
6 |
25 |
$$t{'atsign'} ? : |
|
|
15 |
16 |
$$t{'colon'} ? : |
|
1075
|
0 |
0 |
if $$t{'atsign'} |
|
1076
|
0 |
0 |
if $$t{'colon'} |
|
1096
|
0 |
1 |
if $rv |
|
1110
|
0 |
0 |
unless open FMT_FILE, $f |
|
1112
|
0 |
0 |
if ($n ne '') { } |
|
1117
|
0 |
0 |
if ($m ne '') { } |
|
1165
|
0 |
0 |
if $$t{'body'} |
|
1167
|
0 |
0 |
if ($$t{'subparts'}) |
|
1192
|
0 |
208 |
ref $fmt ? : |