Branch Coverage

blib/lib/Circle/RootObj.pm
Criterion Covered Total %
branch 0 66 0.0


line true false branch
43 0 0 if (defined $thistype and $thistype eq $type)
56 0 0 unless my $loop = delete $args{'loop'}
66 0 0 if (-r $file)
84 0 0 unless eval { do { 'Tangence::Class'->for_perlname($class) } } or eval { do { $class->DECLARE_TANGENCE } }
129 0 0 unless my $network = $self->get_prop_networks->{$name}
139 0 0 unless defined $class
147 0 0 unless my $network = $self->get_prop_networks->{$name}
149 0 0 if $network->connected
181 0 0 if $@
201 0 0 if exists $sessions{$identity}
205 0 0 unless defined $type
216 0 0 if $session->can($method)
226 0 0 unless $session
228 0 0 if $session->can($method)
236 0 0 if ($opts{'tabs'})
281 0 0 defined $identity ? :
283 0 0 unless (defined $session)
312 0 0 defined $identity ? :
0 0 unless my $destsession = defined $identity ? $sessions{$identity} : undef
315 0 0 unless my $srcsession = $sessions{$name}
318 0 0 unless eval { do { $destsession->clonefrom($srcsession); 1 } }
334 0 0 defined $identity ? :
354 0 0 if ($@) { }
369 0 0 if ($timedout)
374 0 0 if (@lines > 20)
378 0 0 if (@lines == 1) { }
400 0 0 if ($module =~ /::/) { }
0 0 elsif ($module =~ /^(.*)\.pm$/) { }
412 0 0 unless (exists $INC{$filename})
430 0 0 if ($@) { }
478 0 0 unless my $cmdname = $subinv->peek_token
489 0 0 if ($@)
522 0 0 unless ($obj->can('get_configuration'))