Branch Coverage
blib/lib/Device/Pertelian.pm
Criterion
Covered
Total
%
branch
4
8
50.0
line
true
false
branch
46
1
0
unless (ref $self)
50
1
0
if ($device)
60
0
1
unless open $self->{'_fh'}, '>', $device
75
19
0
if ($self->{'_fh'})