Branch Coverage

blib/lib/Tcl.pm
Criterion Covered Total %
branch 0 74 0.0


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