| line |
true |
false |
branch |
|
36
|
69 |
0 |
unless (exists $self->{'level'} and defined $self->{'level'}) |
|
37
|
69 |
0 |
unless (exists $self->{'xml_indent'} and defined $self->{'xml_indent'}) |
|
38
|
69 |
0 |
unless (exists $self->{'encoding'} and defined $self->{'encoding'}) |
|
39
|
69 |
0 |
unless (exists $self->{'format_header'} and defined $self->{'format_header'}) |
|
40
|
69 |
0 |
unless (exists $self->{'format_transport'} and defined $self->{'format_transport'}) |
|
41
|
69 |
0 |
unless (exists $self->{'format_protocol'} and defined $self->{'format_protocol'}) |
|
42
|
69 |
0 |
unless (exists $self->{'sanitize_data'} and defined $self->{'sanitize_data'}) |
|
51
|
69 |
0 |
if (defined $level) |
|
53
|
0 |
69 |
if (exists $LEVELS{$level}) |
|
54
|
0 |
69 |
if (not $level =~ /^\d+$/ or $level > 7) |
|
76
|
0 |
0 |
unless (ref $data and exists $$self{'format_' . $type}) |
|
80
|
0 |
0 |
if ($ref) |
|
82
|
0 |
0 |
if ($ref eq 'Net::DRI::Data::Raw') { } |
|
87
|
0 |
0 |
unless ($msg->can('as_string')) |
|
93
|
0 |
0 |
if (not length $ct and substr($msg, 0, 5) eq '
|
|
95
|
0 |
0 |
if ($ct eq 'xml') |
|
97
|
0 |
0 |
if ($self->{'xml_indent'}) { } |
|
109
|
0 |
0 |
defined $data->{$_} ? : |
|
110
|
0 |
0 |
$data->{'direction'} eq 'in' ? : |
|
|
0 |
0 |
if (exists $data->{'direction'}) |
|
116
|
0 |
0 |
unless $$data{lc $1} |
|
133
|
0 |
0 |
$LEVELS{$level} >= $self->{'level'} ? : |