Branch Coverage

blib/lib/Astro/App/Satpass2/Macro/Command.pm
Criterion Covered Total %
branch 9 20 45.0


line true false branch
16 0 19 unless $self->implements($name)
22 18 0 if (defined(my $buffer = $satpass2->execute($cmd)))
26 1 18 unless (eval { do { if (defined(my $buffer = $satpass2->execute($cmd))) { $output .= $buffer; } ; 1 } })
36 9 0 unless $self->{'completion'}
37 0 0 unless defined $text
39 0 0 unless my(@rslt) = sort(grep({not index($_, $text);} @{$$self{"completion"};}))
47 9 0 wantarray ? :
54 0 16 unless "ARRAY" eq ref $self->{'def'}
59 0 16 if $self->{'completion'}
72 8 0 if delete $self->{'level1'}