Branch Coverage

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


line true false branch
29 42 72 unless defined $innerhandle
31 1 113 if @_
43 2 1 if (@_) { }
46 2 4 defined $_[3] ? :
61 3 40 if defined $self->FILENO
63 42 1 if (@_) { }
77 1 31 defined $, ? :
78 1 31 if defined $\
79 27 4 defined $self->WRITE($str) ? :
83 4 1 defined $self->WRITE(sprintf(shift(), @_)) ? :
92 13 29 if &blessed($_[0]) and $_[0]->isa('Tie::Handle::Base')
95 7 35 defined $_[2] ? :
96 2 40 defined $_[3] ? :
99 38 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 '|') { }