| line |
true |
false |
branch |
|
96
|
1 |
2 |
$method eq 'pack' ? : |
|
97
|
2 |
1 |
unless $method =~ /^pack/ |
|
107
|
0 |
1 |
unless $str |
|
111
|
0 |
1 |
wantarray ? : |
|
120
|
2 |
0 |
wantarray ? : |
|
136
|
0 |
2 |
defined $opts{'encode_at'} ? : |
|
137
|
1 |
1 |
if (length($str) * 2 > $encode_at) { } |
|
145
|
2 |
0 |
wantarray ? : |
|
157
|
0 |
7 |
unless $_ |
|
160
|
0 |
7 |
if $opts{'no_repeat'} |
|
163
|
0 |
7 |
exists $opts{'repeat_len'} ? : |
|
165
|
2 |
5 |
if (/\A(.{1,$rl}?)(\1*)\z/s) |
|
194
|
6 |
12 |
if ('qq' eq $type) { } |
|
201
|
0 |
18 |
if ($self->quote_prop('encode_high')) { } |
|
202
|
0 |
0 |
unless /[^\t\040-\176]/ |
|
204
|
12 |
6 |
unless /[^\t\040-\377]/ |
|
228
|
29 |
21 |
if (defined $num and $num =~ /\A-?(?:0|[1-9]\d{0,8})(\.\d{0,18})?\z/) |
|
291
|
1 |
40 |
unless defined $str |
|
294
|
0 |
40 |
unless @_ % 2 == 0 |
|
299
|
0 |
40 |
defined $opts{'compress_at'} ? : |
|
300
|
0 |
40 |
defined $opts{'encode_at'} ? : |
|
302
|
0 |
40 |
defined $opts{'repeat_at'} ? : |
|
305
|
29 |
11 |
if defined $ret |
|
309
|
1 |
10 |
if ($compress_at and length $str > $compress_at) |
|
313
|
0 |
1 |
if $opts{'reqs'} |
|
315
|
1 |
0 |
if $ret |
|
318
|
7 |
3 |
if ($repeat_at and length $str > $repeat_at) |
|
321
|
2 |
5 |
if defined $ret |
|
328
|
2 |
6 |
if ($encode_at and (length $escaped > $encode_at and length $escaped > length($str) * 2)) |
|
338
|
0 |
1 |
if $method and $method ne 'pack' and $opts{'reqs'} |
|
339
|
2 |
0 |
if $method |
|
342
|
1 |
5 |
$nqq ? : |
|
360
|
0 |
10 |
if $ret |
|
362
|
3 |
7 |
$opts{'is_encoded'} ? : |
|
364
|
0 |
10 |
$nqq ? : |
|
385
|
0 |
12 |
if $key eq '' |
|
386
|
10 |
1 |
do {
$rule eq 'auto'
} ? : |
|
|
11 |
1 |
$rule ? : |
|
389
|
6 |
4 |
if ($key =~ /\A(?:-[A-Za-z]+\w*|[_A-Za-z]+\w*|\d+)\z/ and not $self->quote_prop('key_quote_hash')->{$key}) { } |
|
417
|
0 |
1 |
if (substr($rex, 0, 8) eq '(?-xism:') |
|
468
|
16 |
108 |
if (length($line) + length($1) > $width - $lead) |
|
470
|
3 |
13 |
if $lead |
|
479
|
16 |
0 |
if $line |
|
480
|
0 |
16 |
if $pos != length $str |
|
545
|
0 |
18 |
unless defined $_ |
|
546
|
0 |
18 |
if ref $_ |
|
551
|
0 |
18 |
$self->quote_prop('encode_high') ? : |
|
|
0 |
18 |
exists $opts{'use_qq'} ? : |
|
554
|
1 |
17 |
if ($opts{'chars'}) { } |
|
558
|
6 |
11 |
$qq ? : |
|
570
|
18 |
0 |
if exists $counts{'{}'} |
|
571
|
17 |
1 |
if exists $counts{'[]'} |
|
572
|
17 |
1 |
if exists $counts{'()'} |
|
573
|
0 |
18 |
if exists $counts{'<>'} |
|
581
|
1 |
15 |
unless @chars |
|
583
|
2 |
13 |
if ($counts{$qsym} < $low) |
|
593
|
6 |
12 |
if ($qq) { } |
|
595
|
5 |
1 |
$qbegin eq '"' ? : |
|
598
|
10 |
2 |
$qbegin eq q['] ? : |
|
740
|
0 |
217 |
unless @_ |
|
744
|
2 |
215 |
if (ref $prop) |
|
745
|
0 |
2 |
unless UNIVERSAL::isa($prop, 'HASH') |
|
753
|
0 |
215 |
unless exists $self->{$pck}{$prop} |
|
755
|
3 |
212 |
if @_ |
|
776
|
251 |
7 |
if ref $_[0] |
|
780
|
1 |
6 |
unless (${$_[0] . '::SINGLETON';}) |
|
782
|
0 |
7 |
if @_ |