Branch Coverage

lib/Graph/Flowchart.pm
Criterion Covered Total %
branch 17 120 14.1


line true false branch
27 1 0 if ref $args ne 'HASH'
103 0 2 if ref $_[0] and $_[0]->isa('Graph::Flowchart::Node')
113 1 3 if ref $_[0] and $_[0]->isa('Graph::Flowchart::Node')
123 0 0 if ref $_[0] and $_[0]->isa('Graph::Flowchart::Node')
133 0 2 if ref $_[0] and $_[0]->isa('Graph::Flowchart::Node')
143 0 0 if ref $_[0] and $_[0]->isa('Graph::Flowchart::Node')
188 2 0 if $$first{'_type'} != 7 and $$first{'_type'} != $$second{'_type'}
193 0 0 unless $label eq ''
198 0 0 if $$first{'_type'} == 7
224 2 0 if defined $edge_label
225 2 0 if defined $edge_class
240 0 1 unless ref $block
242 0 1 unless defined $where
249 0 1 if ($block != $old)
256 0 0 if $$e{'from'} == $where and $$e{'to'} != $where
274 1 0 unless ref $block
276 1 0 unless defined $where
349 0 0 if defined $$n{'_label'} and $$n{'_label'} eq $label
364 0 0 if $$n{'_type'} == 7
371 0 0 if @out != 1
379 0 0 if $label ne ''
435 0 0 if ($g->nodes > 2)
439 0 0 if (@edges == 1 and $edges[0]->to == $end)
458 0 0 unless ref $target
460 0 0 unless (defined $target)
468 0 0 unless defined $l
469 0 0 if $l ne ''
475 0 0 if wantarray
484 1 0 unless ref $if
485 1 0 unless ref $then
487 1 0 unless defined $where
499 1 0 if wantarray
508 0 0 unless defined $else
510 0 0 unless ref $if
511 0 0 unless ref $then
512 0 0 unless ref $else
514 0 0 unless defined $where
524 0 0 if wantarray
536 0 0 unless ref $init
537 0 0 unless ref $while
538 0 0 unless ref $cont
539 0 0 unless ref $body
543 0 0 unless defined $where
570 0 0 unless ref $list
571 0 0 unless ref $body
572 0 0 if defined $cont and not ref $cont
576 0 0 unless defined $where
586 0 0 if (defined $cont) { }
612 0 0 unless ref $while
615 0 0 unless defined $body
616 0 0 unless ref $body
618 0 0 if defined $cont and not ref $cont
622 0 0 unless defined $where
632 0 0 if (defined $cont) { }
655 0 0 unless ref $while
658 0 0 unless defined $body
659 0 0 unless ref $body
661 0 0 if defined $cont and not ref $cont
665 0 0 unless defined $where
675 0 0 if (defined $cont) { }