line |
true |
false |
branch |
460
|
0 |
0 |
unless $ref |
461
|
0 |
0 |
if ($ref eq 'CODE' or $ref eq 'Tcl::Code') { } |
|
0 |
0 |
elsif ($ref eq 'SCALAR') { } |
|
0 |
0 |
elsif ($ref eq 'HASH') { } |
|
0 |
0 |
elsif ($ref eq 'ARRAY' and ref $arg->[0] eq 'CODE') { } |
|
0 |
0 |
elsif ($ref eq 'REF' and ref $$arg eq 'SCALAR') { } |
475
|
0 |
0 |
unless (exists $anon_refs{$nm}) |
479
|
0 |
0 |
unless defined $s |
494
|
0 |
0 |
unless (exists $anon_refs{$nm}) |
510
|
0 |
0 |
if ($#$arg >= 1 and ref $arg->[1] eq 'Tcl::Ev') |
523
|
0 |
0 |
if (ref $args[$argcnt + 1] eq 'ARRAY' and ref $args[$argcnt + 1][0] eq 'CODE') { } |
|
0 |
0 |
elsif (ref $args[$argcnt + 1] eq 'CODE') { } |
543
|
0 |
0 |
if ($#codes > -1 and $args[0] eq 'after') |
544
|
0 |
0 |
if ($args[1] =~ /^\d+$/) { } |
|
0 |
0 |
elsif ($args[1] eq 'idle') { } |
574
|
0 |
0 |
if (wantarray) { } |
577
|
0 |
0 |
if ($@) |
586
|
0 |
0 |
if ($@) |
603
|
0 |
0 |
unless ($tclname) |
620
|
0 |
0 |
if ($events) |
655
|
0 |
0 |
if defined $tclname |
668
|
0 |
0 |
unless (@_ == 2 or @_ == 3) |
678
|
0 |
0 |
unless (@_ == 2 or @_ == 3) |
689
|
0 |
0 |
unless @{$obj;} == 2 or @{$obj;} == 3 |
693
|
0 |
0 |
if ($r eq '') |
702
|
0 |
0 |
unless @{$obj;} == 2 or @{$obj;} == 3 |
705
|
0 |
0 |
if ($r eq '') |
714
|
0 |
0 |
unless @{$obj;} == 2 or @{$obj;} == 3 |
721
|
0 |
0 |
unless (@{$obj;} == 2 or @{$obj;} == 3) |
846
|
0 |
0 |
exists $args{'namespace'} ? : |
859
|
0 |
0 |
if (exists $args{'subs_from'}) |
866
|
0 |
0 |
if (defined &{"${subs_from}::$name";}) |
867
|
0 |
0 |
if (exists $subs->{$name}) |
875
|
0 |
0 |
if (exists $args{'vars_from'}) |
882
|
0 |
0 |
if (defined ${"${vars_from}::$name";}) |
883
|
0 |
0 |
if (exists $vars->{$name}) |
905
|
0 |
0 |
unless (ref $vars->{$varname}) |