Branch Coverage

lib/File/ValueFile/Simple/Writer.pm
Criterion Covered Total %
branch 16 190 8.4


line true false branch
74 1 0 if (ref $out) { }
77 0 0 unless open $fh, ">", $out
83 0 1 if defined $style
90 1 0 if (defined $opts{'format'})
99 0 0 unless ref $list eq "ARRAY"
113 1 0 if ($opts{'utf8'} eq "auto")
117 1 0 $opts{'utf8'} ? :
126 0 0 if (defined $self->{'format'})
127 0 0 if defined $opts{'as'}
131 0 0 if exists $opts{'default'}
145 0 0 if (scalar @args == 1) { }
0 0 elsif ((scalar @args & 1) == 0) { }
150 0 0 unless exists $_default_style{$key}
162 0 4 unless defined $in
163 1 3 if $in eq ""
173 1 0 if ($type eq 'required') { }
0 0 elsif ($type eq 'copy') { }
0 0 elsif ($type eq 'optional') { }
183 1 2 if (ref $_) { }
193 0 1 unless (scalar @line)
198 0 1 if (ref $_) { }
200 0 1 if ($self->{'dot_repreat'})
202 0 0 if (defined(my $last_line = $self->{'last_line'})) { }
205 0 0 if (defined $e) { }
0 0 elsif (not defined $last_line->[$x]) { }
206 0 0 if (defined $last_line->[$x] and $e eq $last_line->[$x]) { }
0 0 elsif ($e =~ /^\.+$/) { }
218 0 0 if (defined $e)
219 0 0 if ($e =~ /^\.+$/)
232 1 0 if $l < 19
236 0 1 if ($self->{'no_eol'}) { }
237 0 0 if (defined(my $width = $self->{'style'}{'comment_column'}))
241 0 0 if $width > $l
256 0 0 if $valid_comment and $comment =~ /[\x00-\x1F]/
258 0 0 if (scalar @line)
261 0 0 if $valid_comment
264 0 0 if ($valid_comment)
280 0 0 if $comment_line =~ /[\x00-\x1F]/
292 0 0 unless ref $value eq "ARRAY"
306 0 0 if ($format->eq('e5da6a39-46d5-48a9-b174-5c26008e208e')) { }
0 0 elsif ($format->eq('afdb46f2-e13f-4419-80d7-c4b956ed85fa')) { }
307 0 0 if (defined $self->{'features'}{'f06c2226-b33e-48f2-9085-cd906a3dcee0'}) { }
0 0 elsif (defined $self->{'features'}{'1c71f5b1-216d-4a9b-81a1-54dc22d8a067'}) { }
320 0 0 if ($mode eq 'full') { }
322 0 0 unless ref $sublist eq "ARRAY"
329 0 0 unless ref $sublist eq "ARRAY"
343 0 0 if (ref $_ eq 'ARRAY') { }
348 0 0 unless ref $id
355 0 0 if (defined $value)
361 0 0 unless ($found_for_id)
362 0 0 if (defined(my $retry = $self->{'style'}{'tag_ise_no_ise_retry'})) { }
363 0 0 if ($_ eq 'all' or $_ eq 'ise') { }
0 0 ref $retry ? :
368 0 0 if (defined $value)
369 0 0 if $value =~ m[^https://uriid\.org/] and $self->{'style'}{'tag_ise_no_ise_no_uriid'}
372 0 0 if $self->{'style'}{'tag_ise_no_ise_one'}
376 0 0 unless $found_for_id
378 0 0 unless $found_for_id
383 0 0 unless scalar(keys %{$collected{"uuid"};}) + scalar(keys %{$collected{"oid"};}) + scalar(keys %{$collected{"uri"};})
396 0 0 if (scalar @args == 1) { }
0 0 elsif (scalar @args == 3 or scalar @args == 5) { }
0 0 elsif (scalar(@args) % 2 == 0) { }
398 0 0 if ($ref eq 'HASH') { }
0 0 elsif ($ref eq 'ARRAY') { }
423 0 0 unless defined $tag
424 0 0 unless defined $relation
425 0 0 unless defined $related
429 0 0 unless defined $ent
430 0 0 unless ref $ent
437 0 0 if (defined $displayname_relation and defined $displayname_related) { }
0 0 elsif (defined $displayname_relation) { }
0 0 elsif (defined $displayname_related) { }
446 0 0 if ($self->{'style'}{'tag_relation'} eq "mixed" and not defined $context and not defined $filter and defined(my $old_style = $_old_style_relation{$relation->ise}))
461 0 0 if (scalar @args == 1) { }
0 0 elsif (scalar @args == 3) { }
0 0 elsif (scalar @args == 5) { }
0 0 elsif (scalar(@args) % 2 == 0) { }
463 0 0 if ($ref eq 'HASH') { }
0 0 elsif ($ref eq 'ARRAY') { }
492 0 0 unless defined $tag
493 0 0 unless defined $relation
494 0 0 unless defined $data_raw
498 0 0 unless defined $ent
499 0 0 unless ref $ent
503 0 0 if (defined $comment and defined $type and defined(my $type_displayname = $type->displayname("default", undef, "no_defaults", 1)))
517 0 0 if (ref $hint eq "ARRAY")
521 0 0 if (not defined $generator && defined $hint and ($self->{'style'}{'degenerate_generator_hint'} // "") eq "auto")
526 0 0 unless defined $generator
527 0 0 unless defined $hint
529 0 0 if ($self->{'style'}{'generator_hint'} eq 'auto' and defined $self->{'features'}{'f06c2226-b33e-48f2-9085-cd906a3dcee0'} || defined $self->{'features'}{'1c71f5b1-216d-4a9b-81a1-54dc22d8a067'}) { }
542 0 0 if (defined $generator)
543 0 0 ref $generator ? :
546 0 0 if (defined $comment) { }
558 0 0 unless defined $tagname and length $tagname
560 0 0 if (defined $self->{'features'}{'f06c2226-b33e-48f2-9085-cd906a3dcee0'} or defined $self->{'features'}{'1c71f5b1-216d-4a9b-81a1-54dc22d8a067'}) { }