| line | true | false | branch | 
 
| 43 | 10 | 37 | if (scalar @nodes_or_routes == 1) | 
 
| 49 | 1 | 40 | unless (defined $end) | 
 
| 54 | 10 | 70 | ref $_ eq 'ARRAY' ? : | 
 
| 68 | 1 | 239 | if $node->id eq $id | 
 
| 77 | 5 | 6 | if (not ref $node) { } | 
 
|  | 6 | 0 | elsif (ref $node eq 'ARRAY') { } | 
 
| 90 | 1 | 1 | unless (ref $stuff eq 'HASH') | 
 
| 103 | 1 | 6 | if ($ref eq 'ARRAY') { } | 
 
|  | 3 | 3 | elsif ($ref eq 'HASH') { } | 
 
| 109 | 3 | 3 | if defined $parent | 
 
| 138 | 1 | 102 | if (ref $node_id eq 'Regexp') { } | 
 
| 140 | 2 | 2 | if $node->id =~ /$node_id/ | 
 
| 143 | 1 | 101 | if (my $node = $self->_find_same_id_node($node_id)) { } | 
 
| 177 | 77 | 230 | if ($registered) { } | 
 
| 193 | 0 | 0 | if ($subgraph->id eq $id) | 
 
| 201 | 76 | 591 | if ($obj->equal_to($node)) | 
 
| 214 | 0 | 60 | unless (ref $id eq 'ARRAY') | 
 
| 235 | 5 | 63 | if $edge->equal_to($test_edge) | 
 
| 239 | 3 | 57 | if (@update_edges) { } | 
 
| 246 | 77 | 37 | unless $self->_find_object($_id) | 
 
| 264 | 4 | 116 | if (ref $pattern eq 'Regexp') { } | 
 
| 266 | 9 | 19 | if ($obj->id =~ /$pattern/) | 
 
| 270 | 0 | 28 | if (blessed $obj eq 'Graphviz::DSL::Graph') | 
 
| 275 | 0 | 4 | if (scalar @objects == 0) | 
 
| 279 | 39 | 77 | if (my $obj = $self->_find_object($pattern)) | 
 
| 296 | 1 | 2 | unless ($type eq 'digraph' or $type eq 'graph') | 
 
| 312 | 0 | 0 | unless open my $fh, '>', $dotfile | 
 
| 316 | 0 | 0 | if ($type) | 
 
| 318 | 0 | 0 | unless (defined $dot) | 
 
| 327 | 0 | 0 | unless system(@cmd) == 0 | 
 
| 334 | 1 | 2 | unless (@nodes) | 
 
| 339 | 1 | 1 | unless (grep {$type eq $_;} @types) | 
 
| 349 | 41 | 1 | unless @{$attrs;} | 
 
| 351 | 0 | 1 | unless (defined $is_join) | 
 
| 363 | 0 | 1 | if ($is_join) { } | 
 
| 379 | 0 | 3 | if ($key eq $old_key) | 
 
| 417 | 8 | 1 | $$self{'type'} eq 'digraph' ? : | 
 
| 420 | 1 | 8 | $$self{'is_subgraph'} ? : | 
 
| 423 | 1 | 8 | if (@{$$self{'graph_attrs'};}) | 
 
| 428 | 0 | 9 | if (@{$$self{'gnode_attrs'};}) | 
 
| 433 | 0 | 9 | if (@{$$self{'gedge_attrs'};}) | 
 
| 440 | 0 | 41 | unless defined $class | 
 
| 458 | 0 | 0 | if (blessed $obj and $obj->isa('Graphviz::DSL::Graph')) |