Branch Coverage

blib/lib/Log/Log4perl/Layout/JSON.pm
Criterion Covered Total %
branch 62 78 79.4


line true false branch
45 15 5 unless $self->include_mdc
49 2 3 if (my $mdc_field = $self->name_for_mdc) { }
51 3 2 unless %$mdc_hash
57 0 10 unless $self->canonical
68 0 1 unless ($self->exclude_message)
98 20 0 if (my $arg = $args->{'canonical'})
102 19 1 if ($args->{'field'})
108 2 18 if ($args->{'maxkb'})
117 1 19 if (my $arg = $args->{'utf8'})
125 96 44 unless my $arg = delete $args->{$arg_name}
130 0 20 if %$args
139 0 20 if $last_render_error
154 170 28 if (&blessed($value) and &blessed($value) eq 'Log::Log4perl::Layout::PatternLayout') { }
24 4 elsif (ref $value eq 'HASH') { }
4 0 elsif (ref $value eq 'CODE') { }
174 76 14 if (exists $value->{'value'} and not ref $value->{'value'}) { }
2 12 elsif (exists $value->{'value'} and ref $value->{'value'} ne 'HASH') { }
190 2 2 if (exists $value->{'value'} and not ref $value->{'value'}) { }
202 0 8 unless $value_ref and ${$value_ref;}
203 0 8 unless $maxkb
205 4 4 if (ref ${$value_ref;} eq 'HASH' and ref $maxkb eq 'HASH') { }
4 0 elsif (not ref ${$value_ref;} || ref $maxkb) { }
207 0 4 unless ${$value_ref;}->{$maxkb_key}
216 2 2 if $len < $maxb
234 2 44 if (ref $message eq 'ARRAY' and @{$message;} > 1 and @{$message;} % 2 == 0) { }
1 43 elsif (ref $message eq 'ARRAY') { }
255 2 44 if ($m eq "WARP_MESSAGE_0")
257 2 2 if ($fields[$i] eq "message")
264 4 42 if (my $maxkb = $self->maxkb)
269 0 4 unless $field_maxkb
287 6 46 if length $json > $max_json_length
290 6 46 if ($@)
305 0 45 if (ref $v) { }
307 0 0 unless (defined $encoded)
317 42 3 if $len <= $max_json_length / 2
319 0 3 if (ref $v) { }
331 2 4 if (@truncated) { }
354 6 0 if @fields
360 6 40 if ($self->format_prefix) { }