| line |
true |
false |
branch |
|
130
|
64 |
224 |
if &blessed($_[0]) |
|
154
|
20 |
117 |
if is_string_tagged($str) |
|
156
|
8 |
109 |
unless defined $str |
|
257
|
30 |
26 |
&blessed($_[0]) ? : |
|
263
|
1 |
55 |
exists $opts{'only_tags'} ? : |
|
267
|
0 |
56 |
exists $opts{'except_tags'} ? : |
|
277
|
28 |
26 |
defined $opts{'len'} ? : |
|
289
|
5 |
58 |
if $te < $start |
|
290
|
3 |
55 |
if $ts >= $end |
|
292
|
1 |
54 |
if $only and not $only->{$tn} |
|
293
|
0 |
0 |
if $except and $except->{$tn} |
|
296
|
2 |
52 |
if ($convert and my $c = $convert->{$tn}) { } |
|
297
|
1 |
1 |
if (ref $c eq 'CODE') { } |
|
310
|
8 |
46 |
$ts < 0 ? : |
|
312
|
1 |
53 |
if $te <= 0 |
|
313
|
22 |
31 |
if $ts < 0 or $tf & 1 |
|
314
|
19 |
34 |
if $te > $len or $tf & 2 |
|
367
|
2 |
10 |
is_string_tagged($format) ? : |
|
379
|
9 |
13 |
if ($str =~ /\G[^%]+/cgu) { } |
|
|
1 |
12 |
elsif ($str =~ /\G%%/cgu) { } |
|
|
10 |
2 |
elsif ($str =~ /\G%([-]?)(\d+|\*)?(?:\.(\d+|\*))?s/cgu) { } |
|
|
2 |
0 |
elsif ($str =~ /\G%(.*?)([cduoxefgXEGbBpaAiDUOF])/cgu) { } |
|
|
0 |
0 |
elsif ($str =~ /\G%(.*?)([a-zA-Z])/cgu) { } |
|
391
|
1 |
9 |
if defined $width and $width eq "*" |
|
392
|
1 |
9 |
if defined $precision and $precision eq "*" |
|
395
|
0 |
10 |
unless (defined $arg) |
|
400
|
2 |
8 |
if (defined $precision) |
|
401
|
0 |
2 |
if (is_string_tagged($arg)) { } |
|
411
|
4 |
6 |
defined $width ? : |
|
412
|
1 |
9 |
if $padding < 0 |
|
416
|
8 |
2 |
unless $leftalign |
|
420
|
2 |
8 |
if $leftalign |
|
467
|
1 |
0 |
unless is_string_tagged($sep) |
|
572
|
0 |
0 |
if @$tags < 2 |
|
579
|
0 |
0 |
if (_cmp_tags() <= 0) |
|
601
|
81 |
78 |
if (@$tags == 0) |
|
613
|
14 |
64 |
if (_cmp_tags() <= 0) |
|
619
|
62 |
2 |
if (_cmp_tags() >= 0) |
|
635
|
2 |
0 |
if ($cmp > 0) { } |
|
|
0 |
0 |
elsif ($cmp < 0) { } |
|
646
|
2 |
0 |
if ($range_start == $range_end) |
|
652
|
0 |
2 |
unless defined $inspos |
|
654
|
0 |
2 |
if $inspos < 0 |
|
655
|
0 |
2 |
if $inspos > @$tags |
|
694
|
0 |
156 |
if (&blessed($_[0])) { } |
|
699
|
0 |
0 |
if $e->anchor_before |
|
700
|
0 |
0 |
if $e->anchor_after |
|
708
|
34 |
122 |
if ($start < 0) |
|
713
|
36 |
120 |
if ($len == -1) { } |
|
719
|
2 |
118 |
if $end > $strlen |
|
736
|
5 |
4 |
if (&blessed($_[0])) { } |
|
748
|
5 |
4 |
if (my $t = $self->{'iterating'}) |
|
750
|
5 |
0 |
if ($start == $ts and $end == $te and $name eq $tn) |
|
764
|
1 |
7 |
if $te <= $start |
|
765
|
3 |
4 |
if $ts >= $end |
|
767
|
0 |
4 |
if $tn ne $name |
|
769
|
2 |
2 |
if ($keepends and $end < $te) |
|
774
|
0 |
4 |
if ($tf & 4) |
|
780
|
1 |
3 |
if ($keepends and $ts < $start) { } |
|
864
|
1 |
2 |
if $tn ne $name |
|
908
|
1 |
10 |
if $t2s > $te |
|
909
|
0 |
10 |
unless $t2s <= $te |
|
910
|
3 |
7 |
unless $t2n eq $tn |
|
912
|
1 |
6 |
unless &$eqsub($tn, $tv, $t2v) |
|
921
|
1 |
5 |
if $t2f & 2 |
|
925
|
1 |
5 |
if (local $b = $$tags[$i + 1] and _cmp_tags() > 0) |
|
996
|
1 |
50 |
exists $opts{'start'} ? : |
|
1000
|
0 |
50 |
exists $opts{'len'} ? : |
|
|
1 |
50 |
exists $opts{'end'} ? : |
|
1002
|
1 |
50 |
exists $opts{'only'} ? : |
|
1005
|
1 |
50 |
exists $opts{'except'} ? : |
|
1014
|
1 |
75 |
if $te < $start |
|
1015
|
1 |
74 |
if $ts >= $end |
|
1017
|
2 |
72 |
if $only and not $only->{$tn} |
|
1018
|
1 |
2 |
if $except and $except->{$tn} |
|
1027
|
5 |
66 |
if ($t->[4] & 8) |
|
1093
|
2 |
32 |
exists $opts{'start'} ? : |
|
1097
|
0 |
32 |
exists $opts{'len'} ? : |
|
|
2 |
32 |
exists $opts{'end'} ? : |
|
1099
|
1 |
33 |
exists $opts{'only'} ? : |
|
1102
|
1 |
33 |
exists $opts{'except'} ? : |
|
1113
|
2 |
74 |
if $te < $start |
|
1114
|
2 |
72 |
if $ts > $end |
|
1116
|
2 |
70 |
if $only and not $only->{$tn} |
|
1117
|
1 |
2 |
if $except and $except->{$tn} |
|
1127
|
14 |
28 |
if $e < $rangeend |
|
1128
|
1 |
41 |
if $tagends{$n} and $tagends{$n} < $e |
|
1151
|
20 |
52 |
if $e < $rangeend |
|
1152
|
1 |
71 |
if $tagends{$n} and $tagends{$n} < $e |
|
1165
|
1 |
2 |
if $_->[0] == $pos |
|
|
1 |
33 |
if (my(@zerolen) = grep({$_->[1] == $pos if $_->[0] == $pos;} @active)) |
|
1277
|
3 |
11 |
if $ts > $pos |
|
1278
|
1 |
10 |
if $te <= $pos |
|
1307
|
4 |
11 |
if $ts > $pos |
|
1308
|
3 |
8 |
if $te <= $pos |
|
1310
|
6 |
2 |
if $tn eq $name |
|
1339
|
3 |
16 |
if $ts > $pos |
|
1340
|
1 |
15 |
if $te <= $pos |
|
1342
|
3 |
12 |
unless $tn eq $name |
|
1349
|
12 |
1 |
if (defined $start) { } |
|
1381
|
3 |
3 |
unless $tn eq $name |
|
1383
|
1 |
2 |
if ($ts <= $pos and $te > $pos) |
|
1387
|
1 |
1 |
if ($ts > $pos) |
|
1433
|
0 |
56 |
if $start > $limit |
|
1434
|
0 |
56 |
if $len > $limit - $start |
|
1454
|
12 |
28 |
if $ts >= $start and not $tf & 1 |
|
1463
|
14 |
14 |
if ($te > $oldend or $te == $oldend and $tf & 2) { } |
|
|
1 |
13 |
elsif ($te > $start) { } |
|
1468
|
0 |
14 |
if ($t->[0] == $t->[1]) |
|
1485
|
10 |
3 |
if $ts >= $oldend |
|
1491
|
2 |
1 |
if ($te <= $oldend) { } |
|
1512
|
11 |
1 |
unless $tf & 1 |
|
1521
|
6 |
1 |
if _cmp_tags() <= 0 |
|
1529
|
21 |
35 |
if (is_string_tagged($new)) |
|
1535
|
0 |
21 |
$atstart && $e->anchor_before ? : |
|
|
5 |
16 |
$atend && $e->anchor_after ? : |
|
1588
|
18 |
48 |
if is_string_tagged($new) |
|
1602
|
14 |
44 |
if $t->[4] & 2 |
|
1659
|
3 |
14 |
ref $self eq 'String::Tagged' && is_string_tagged($other) ? : |
|
1663
|
11 |
6 |
if $swap |
|
1774
|
2 |
3 |
if @- > 1 |
|
1778
|
1 |
4 |
if defined $limit and @ret == $limit - 1 |
|
1781
|
3 |
1 |
if (CORE::length $plain > $prev) |
|
1843
|
6 |
1 |
if CORE::length $name > $maxnamelen |
|
1849
|
1 |
6 |
$tf & 1 ? : |
|
1855
|
1 |
6 |
if ($tl == 0) { } |
|
|
2 |
4 |
elsif ($tl == 1) { } |
|
1868
|
1 |
6 |
$tf & 2 ? : |