Branch Coverage

blib/lib/Document/TriPart.pm

Criterion	Covered	Total	%
branch	21	110	19.0

line	true	false	branch
31	0	0	unless $self->_preamble_content
38	0	0	unless $self->_header_content
45	0	0	unless $self->_body_content
52	0	1	unless defined $self->_header_content
58	0	0	if (@_)
60	0	0	if (defined $value)
61	0	0	if ref $value eq 'SCALAR'
66	0	0	unless defined $self->_preamble_content
72	0	1	if (@_)
74	0	0	if (defined $value)
75	0	0	if ref $value eq 'SCALAR'
76	0	0	if ref $value eq 'HASH'
87	0	0	if (@_)
89	0	0	unless defined $value
90	0	0	if ref $value eq 'SCALAR'
94	0	0	unless defined $self->_body_content
101	0	0	if @_ % 2
103	0	0	unless defined $file
104	0	0	unless defined $file
105	0	0	if defined $file
112	0	0	if @_ % 2
114	0	0	unless defined $file
116	0	0	unless defined $file and length $file
119	0	0	unless -d $file->parent
122	0	0	if (my $atomic = $self->atomic) { }
124	0	0	if ref $atomic eq 'HASH'
132	0	0	unless $file->openw->print($$content)
145	0	0	if $given{'body_only'}
164	1	1	unless blessed $self
166	1	0	if @_ % 2
168	0	1	unless defined $file
169	0	1	unless defined $file
170	1	0	if defined $file
176	0	1	unless blessed $self
178	1	0	if @_ % 2
180	0	1	unless defined $file
184	0	1	unless defined $read
186	1	0	if (ref $read eq 'SCALAR') { }
	0	0	elsif (UNIVERSAL::isa($read, 'IO::Handle')) { }
	0	0	elsif (ref $read eq 'GLOB') { }
202	0	1	if ($given{'body_only'}) { }
207	1	0	$TriPart ? :
210	2	0	if ($part_limit > @part) { }
218	1	1	unless $more
246	1	1	if $got_separator = $_ =~ /$match/
267	1	0	if defined $$content and $$content =~ /^\s*\{/
269	0	0	unless my $header = 'YAML::Tiny'->read_string($$content)
277	0	0	unless defined $header
279	0	0	unless ref $header eq 'HASH'
292	0	0	unless my $editor = _editor()
294	0	0	unless ($rc == 0)
307	0	0	if @_ % 2
309	0	0	unless defined $file
310	0	0	unless defined $file or $given{'tmp'}
313	0	0	unless (defined $file)