| line |
true |
false |
branch |
|
454
|
0 |
0 |
unless $ref |
|
455
|
0 |
0 |
if ($ref eq 'CODE') { } |
|
|
0 |
0 |
elsif ($ref =~ /^Tcl::Tk::Widget\b/) { } |
|
|
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 'ARRAY' and ref($$arg[0]) =~ /^Tcl::Tk::Widget\b/) { } |
|
|
0 |
0 |
elsif (ref $arg eq 'REF' and ref $$arg eq 'SCALAR') { } |
|
465
|
0 |
0 |
if $argcnt == 0 |
|
476
|
0 |
0 |
unless (exists $anon_refs{$nm}) |
|
481
|
0 |
0 |
unless defined $s |
|
496
|
0 |
0 |
unless (exists $anon_refs{$nm}) |
|
513
|
0 |
0 |
if ($#$arg >= 1 and ref $$arg[1] eq 'Tcl::Ev') |
|
529
|
0 |
0 |
if ($#$arg >= 1 and ref $$arg[1] eq 'Tcl::Ev') |
|
543
|
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') { } |
|
565
|
0 |
0 |
if (not $Tcl::STACK_TRACE) { } |
|
|
0 |
0 |
elsif (wantarray) { } |
|
571
|
0 |
0 |
if ($@) |
|
580
|
0 |
0 |
if ($@) |
|
592
|
0 |
0 |
if (wantarray) { } |
|
596
|
0 |
0 |
if (exists $anon_refs{$res}) |
|
612
|
0 |
0 |
if (ref $ref eq 'CODE') { } |
|
644
|
0 |
0 |
unless ($tclname) |
|
648
|
0 |
0 |
unless (exists $anon_refs{$tclname}) |
|
652
|
0 |
0 |
if ($events) |
|
674
|
0 |
0 |
unless (@_ == 2 or @_ == 3) |
|
684
|
0 |
0 |
unless (@_ == 2 or @_ == 3) |
|
695
|
0 |
0 |
unless @{$obj;} == 2 or @{$obj;} == 3 |
|
699
|
0 |
0 |
if ($r eq '') |
|
708
|
0 |
0 |
unless @{$obj;} == 2 or @{$obj;} == 3 |
|
711
|
0 |
0 |
if ($r eq '') |
|
720
|
0 |
0 |
unless @{$obj;} == 2 or @{$obj;} == 3 |
|
727
|
0 |
0 |
unless (@{$obj;} == 2 or @{$obj;} == 3) |
|
852
|
0 |
0 |
exists $args{'namespace'} ? : |
|
865
|
0 |
0 |
if (exists $args{'subs_from'}) |
|
872
|
0 |
0 |
if (defined &{"${subs_from}::$name";}) |
|
873
|
0 |
0 |
if (exists $$subs{$name}) |
|
881
|
0 |
0 |
if (exists $args{'vars_from'}) |
|
888
|
0 |
0 |
if (defined ${"${vars_from}::$name";}) |
|
889
|
0 |
0 |
if (exists $$vars{$name}) |
|
911
|
0 |
0 |
unless (ref $$vars{$varname}) |