Branch Coverage

blib/lib/Log/Log4perl/Layout/JSON.pm
Criterion Covered Total %
branch 64 80 80.0


line true false branch
45 17 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 22 0 if (my $arg = $args->{'canonical'})
102 21 1 if ($args->{'field'})
108 2 20 if ($args->{'maxkb'})
117 1 21 if (my $arg = $args->{'utf8'})
125 108 46 unless my $arg = delete $args->{$arg_name}
130 0 22 if %$args
139 0 22 if $last_render_error
156 190 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') { }
177 5 95 unless ref $value eq "HASH"
179 81 14 if (exists $value->{'value'} and not ref $value->{'value'}) { }
2 12 elsif (exists $value->{'value'} and ref $value->{'value'} ne 'HASH') { }
196 2 2 if (exists $value->{'value'} and not ref $value->{'value'}) { }
208 0 8 unless $value_ref and ${$value_ref;}
209 0 8 unless $maxkb
211 4 4 if (ref ${$value_ref;} eq 'HASH' and ref $maxkb eq 'HASH') { }
4 0 elsif (not ref ${$value_ref;} || ref $maxkb) { }
214 0 4 unless ${$value_ref;}->{$maxkb_key}
223 2 2 if $len < $maxb
241 2 48 if (ref $message eq 'ARRAY' and @{$message;} > 1 and @{$message;} % 2 == 0) { }
1 47 elsif (ref $message eq 'ARRAY') { }
262 2 48 if ($m eq "WARP_MESSAGE_0")
264 2 1 if ($fields[$i] eq "message")
271 4 46 if (my $maxkb = $self->maxkb)
276 0 4 unless $field_maxkb
294 6 50 if length $json > $max_json_length
297 6 50 if ($@)
312 0 45 if (ref $v) { }
314 0 0 unless (defined $encoded)
324 42 3 if $len <= $max_json_length / 2
326 0 3 if (ref $v) { }
338 2 4 if (@truncated) { }
361 6 0 if @fields
367 6 44 if ($self->format_prefix) { }