| line |
true |
false |
branch |
|
45
|
2 |
2 |
if (defined $thistype and $thistype eq $type) |
|
58
|
0 |
3 |
unless my $loop = delete $args{'loop'} |
|
68
|
0 |
3 |
if (-r $file) |
|
86
|
0 |
2 |
unless eval {
do {
'Tangence::Class'->for_perlname($class)
}
} or eval {
do {
$class->DECLARE_TANGENCE
}
} |
|
131
|
2 |
0 |
unless my $network = $self->get_prop_networks->{$name} |
|
141
|
0 |
2 |
unless defined $class |
|
149
|
0 |
0 |
unless my $network = $self->get_prop_networks->{$name} |
|
151
|
0 |
0 |
if $network->connected |
|
183
|
0 |
2 |
if $@ |
|
203
|
0 |
2 |
if exists $sessions{$identity} |
|
207
|
0 |
2 |
unless defined $type |
|
218
|
2 |
0 |
if $session->can($method) |
|
228
|
0 |
0 |
unless $session |
|
230
|
0 |
0 |
if $session->can($method) |
|
238
|
2 |
0 |
if ($opts{'tabs'}) |
|
283
|
0 |
0 |
defined $identity ? : |
|
285
|
0 |
0 |
unless (defined $session) |
|
314
|
0 |
0 |
defined $identity ? : |
|
|
0 |
0 |
unless my $destsession = defined $identity ? $sessions{$identity} : undef |
|
317
|
0 |
0 |
unless my $srcsession = $sessions{$name} |
|
320
|
0 |
0 |
unless eval {
do {
$destsession->clonefrom($srcsession);
1
}
} |
|
336
|
2 |
0 |
defined $identity ? : |
|
357
|
0 |
2 |
if ($@) { } |
|
372
|
0 |
2 |
if ($timedout) |
|
377
|
0 |
2 |
if (@lines > 20) |
|
381
|
2 |
0 |
if (@lines == 1) { } |
|
403
|
0 |
0 |
if ($module =~ /::/) { } |
|
|
0 |
0 |
elsif ($module =~ /^(.*)\.pm$/) { } |
|
415
|
0 |
0 |
unless (exists $INC{$filename}) |
|
433
|
0 |
0 |
if ($@) { } |
|
481
|
0 |
0 |
unless my $cmdname = $subinv->peek_token |
|
492
|
0 |
0 |
if ($@) |
|
525
|
0 |
0 |
unless ($obj->can('get_configuration')) |