Branch Coverage

lib/Mail/Make/Stream.pm
Criterion Covered Total %
branch 25 64 39.0


line true false branch
34 0 0 unless $self->SUPER::init(@_)
77 64 0 defined ${"${class}::EXCEPTION_CLASS";} ? :
79 0 64 unless $self->SUPER::init(@_)
98 0 0 unless (defined $this and ref $this || length $this)
103 71 71 unless exists $opts->{'write'}
104 71 71 $opts->{'write'} ? :
108 58 84 if ($self->_is_glob($this)) { }
72 12 elsif ($self->_is_scalar($this)) { }
112 58 0 if fileno $this
123 0 0 unless ($f->exists or $opts->{'write'})
133 96 46 if ($self->_can($fh, 'fcntl')) { }
142 96 46 if (defined $flags)
144 71 25 if ($opts->{'write'}) { }
146 0 71 unless ($flags & 1027)
153 0 25 unless (($flags & 0) == 0 or $flags & 2)
164 71 71 if ($opts->{'write'}) { }
166 71 0 if ($is_native_glob) { }
0 0 elsif ($meth = $self->_can($fh, 'print') || $self->_can($fh, 'write')) { }
171 0 77 unless defined $rv
182 0 0 if ($@)
186 0 0 unless (defined $rv)
189 0 0 if (defined $!) { }
0 0 elsif ($self->_can($fh, 'error')) { }
0 0 elsif ($self->_can($fh, 'errstr')) { }
213 71 0 if ($is_native_glob) { }
0 0 elsif ($self->_can($fh, 'read')) { }
218 0 47 unless (defined $n)
231 0 0 if ($@)
235 0 0 unless (defined $n)
238 0 0 if (defined $!) { }
0 0 elsif ($self->_can($fh, 'error')) { }
0 0 elsif ($self->_can($fh, 'errstr')) { }