Branch Coverage

blib/lib/Tie/Handle/Base.pm
Criterion Covered Total %
branch 39 40 97.5


line true false branch
29 3 4 unless defined $innerhandle
31 1 6 if @_
43 2 1 if (@_) { }
46 1 3 defined $_[3] ? :
61 3 4 if defined $self->FILENO
63 6 1 if (@_) { }
77 1 9 defined $, ? :
78 1 9 if defined $\
79 7 3 defined $self->WRITE($str) ? :
83 3 1 defined $self->WRITE(sprintf(shift(), @_)) ? :
92 0 18 if &blessed($_[0]) and $_[0]->isa("Tie::Handle::Base")
95 4 14 defined $_[2] ? :
96 1 17 defined $_[3] ? :
99 14 4 if print {$_[0];} $data
104 1 13 unless @_
106 1 12 if @_ > 1
107 1 12 if @_
108 11 1 if ($fnwm =~ s/^\s* ( \| | \+? (?: < | >>? ) (?:&=?)? ) | ( \| ) \s*$//x) { }
110 3 8 if (defined $y) { }
1 7 elsif ($x eq '|') { }