| line |
true |
false |
branch |
|
38
|
1 |
0 |
ref $self->{'skip_keys'} eq 'ARRAY' ? : |
|
|
1 |
56 |
if $self->{'skip_keys'} and ref $self->{'skip_keys'} ne "HASH" |
|
40
|
57 |
0 |
unless exists $self->{'sort_keys'} |
|
47
|
0 |
58 |
unless ref $self |
|
49
|
7 |
11 |
defined $self->{'indent'} ? : |
|
|
40 |
18 |
!$self->{'pretty'} ? : |
|
50
|
4 |
14 |
defined $self->{'hash_sep'} ? : |
|
|
40 |
18 |
!$self->{'pretty'} ? : |
|
51
|
4 |
14 |
defined $self->{'hash_nl'} ? : |
|
|
40 |
18 |
!$self->{'pretty'} ? : |
|
52
|
3 |
15 |
defined $self->{'array_nl'} ? : |
|
|
40 |
18 |
!$self->{'pretty'} ? : |
|
53
|
2 |
16 |
defined $self->{'str_nl'} ? : |
|
|
40 |
18 |
!$self->{'pretty'} ? : |
|
62
|
2 |
3 |
if ($ref eq "CODE" and $self->{'play_coderefs'}) |
|
67
|
23 |
77 |
if ($ref eq 'HASH') { } |
|
|
9 |
68 |
elsif ($ref eq 'ARRAY') { } |
|
|
3 |
65 |
elsif ($ref) { } |
|
69
|
2 |
4 |
unless not $r or $self->{'handle_unknown_types'} or $r eq "HASH" or $r eq "ARRAY" |
|
72
|
23 |
0 |
$self->{'sort_keys'} ? : |
|
73
|
3 |
20 |
unless @keys |
|
83
|
0 |
9 |
unless @$data |
|
91
|
2 |
1 |
if ref $self->{'handle_unknown_types'} eq "CODE" |
|
101
|
1 |
88 |
unless defined $str |
|
104
|
33 |
55 |
if not $no_num and $str =~ /^ -? (?: [1-9][0-9]{0,12} | 0) (?: \. \d* [1-9])? $/x |
|
106
|
5 |
50 |
$self->{'single_quote'} ? : |
|
111
|
5 |
50 |
$self->{'single_quote'} ? : |
|
115
|
0 |
55 |
if $self->{'utf8'} and &utf8::decode |
|
119
|
54 |
1 |
unless $self->{'no_tag_splitting'} |
|
122
|
4 |
51 |
if ($self->{'str_nl'} and length $str > 80) { } |
|
123
|
2 |
2 |
if ($self->{'single_quote'}) { } |
|
124
|
2 |
0 |
if $str =~ s/\n/\\n'$self->{'str_nl'}$prefix+'/g |
|
126
|
2 |
0 |
if $str =~ s/\n/\\n"$self->{'str_nl'}$prefix+"/g |