| line |
true |
false |
branch |
|
43
|
2 |
2 |
if (defined $thistype and $thistype eq $type) |
|
56
|
0 |
3 |
unless my $loop = delete $args{'loop'} |
|
66
|
0 |
3 |
if (-r $file) |
|
84
|
0 |
2 |
unless eval {
do {
'Tangence::Class'->for_perlname($class)
}
} or eval {
do {
$class->DECLARE_TANGENCE
}
} |
|
129
|
2 |
0 |
unless my $network = $self->get_prop_networks->{$name} |
|
139
|
0 |
2 |
unless defined $class |
|
147
|
0 |
0 |
unless my $network = $self->get_prop_networks->{$name} |
|
149
|
0 |
0 |
if $network->connected |
|
181
|
0 |
2 |
if $@ |
|
201
|
0 |
2 |
if exists $sessions{$identity} |
|
205
|
0 |
2 |
unless defined $type |
|
216
|
2 |
0 |
if $session->can($method) |
|
226
|
0 |
0 |
unless $session |
|
228
|
0 |
0 |
if $session->can($method) |
|
236
|
2 |
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
|
2 |
0 |
defined $identity ? : |
|
354
|
0 |
2 |
if ($@) { } |
|
369
|
0 |
2 |
if ($timedout) |
|
374
|
0 |
2 |
if (@lines > 20) |
|
378
|
2 |
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')) |