| line |
true |
false |
branch |
|
98
|
7 |
4 |
if ($csv =~ /^\(/) { } |
|
|
4 |
0 |
elsif ($csv =~ /^\{/) { } |
|
108
|
0 |
37 |
if ref $type eq ref [] |
|
109
|
34 |
3 |
if defined $val |
|
112
|
1 |
10 |
if wantarray |
|
124
|
0 |
1 |
if $string eq 'PGObject::Util::PseudoCSV' |
|
130
|
0 |
1 |
if wantarray |
|
151
|
14 |
25 |
if ($$csvref =~ /^"/) { } |
|
158
|
3 |
22 |
if $retval =~ /^null$/i |
|
160
|
1 |
38 |
if (defined $retval and $retval =~ s/^\{(.*)\}$/$1/) |
|
180
|
0 |
0 |
if wantarray |
|
197
|
2 |
16 |
unless defined $val |
|
199
|
0 |
16 |
if eval {
do {
$val->can('to_db')
}
} |
|
200
|
1 |
15 |
if ref $_ eq ref [] |
|
201
|
0 |
16 |
if ref $_ eq ref [] and not $is_tuple |
|
204
|
2 |
14 |
if $val =~ /(^null$|[",{}])/i |
|
210
|
0 |
5 |
unless ref $list |
|
212
|
3 |
2 |
if $is_tuple |