Branch Coverage

blib/lib/Chess/Plisco/Macro.pm
Criterion Covered Total %
branch 39 68 57.3


line true false branch
271 0 0 if $self->{'__eof'}
275 0 0 if ($status > 0) { }
0 0 elsif ($status == 0) { }
296 5 0 if ($sibling == $invocation)
302 0 5 unless defined $idx
313 0 5 if (@{$definition->{'args'};} == 0) { }
318 0 0 if $siblings[$to]->significant
320 0 0 if ($to < @siblings and $siblings[$to]->isa("PPI::Structure::List"))
329 0 6 if ($i > $#arguments) { }
339 5 3 if (not defined $first_significant and $siblings[$to]->significant)
341 3 2 if ($first_significant->isa("PPI::Structure::List"))
347 2 3 if $to >= @siblings
378 10 132 if $_[1]->isa("PPI::Token::Symbol") or $_[1]->isa("PPI::Token::Word")
397 0 10 if (defined $word_idx) { }
10 0 elsif ($siblings[$i] == $word) { }
422 0 5 if ($content =~ /(.*\n)# *__BEGIN_MACROS__.*?\n(.*\n)# *__END_MACROS__.*?\n(.*)/s) { }
438 9 149 if $_[1]->isa("PPI::Token::Word")
441 5 5 unless $invocations
456 0 192 unless defined $code
458 0 192 if (exists $defines{$name})
464 0 192 unless ($code_doc)
487 0 20 unless open my $fh, "<", $filename
502 5 0 if ($siblings[$i] == $word)
508 0 5 unless defined $pos
511 0 5 if $pos == $#siblings
516 5 2 if ($siblings[$i]->significant)
522 0 5 unless defined $argidx
527 0 5 if ($siblings[$argidx]->isa('PPI::Token::Structure')) { }
3 2 elsif ($siblings[$argidx]->isa('PPI::Structure::List')) { }
533 0 3 if @expression != 1
535 0 3 unless $argnodes_parent->isa("PPI::Statement::Expression")
540 1 2 if ($siblings[$i]->isa("PPI::Token::Structure") and ";" eq $siblings[$i]->content)
563 1 7 if ($argnode->isa('PPI::Token::Operator') and ',' eq $argnode->content) { }
571 5 0 if @argument