| 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}) |