blib/lib/Tcl.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 0 | 40 | 0.0 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
461 | 0 | 0 | 0 | $ref eq 'ARRAY' and ref $arg->[0] eq 'CODE' |
0 | 0 | 0 | $ref eq 'REF' and ref $$arg eq 'SCALAR' | |
510 | 0 | 0 | 0 | $#$arg >= 1 and ref $arg->[1] eq 'Tcl::Ev' |
523 | 0 | 0 | 0 | ref $args[$argcnt + 1] eq 'ARRAY' and ref $args[$argcnt + 1][0] eq 'CODE' |
543 | 0 | 0 | 0 | $#codes > -1 and $args[0] eq 'after' |
line | l | !l | condition |
---|---|---|---|
850 | 0 | 0 | $args{'subs'} || {} |
853 | 0 | 0 | $args{'vars'} || {} |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
461 | 0 | 0 | 0 | $ref eq 'CODE' or $ref eq 'Tcl::Code' |
668 | 0 | 0 | 0 | @_ == 2 or @_ == 3 |
678 | 0 | 0 | 0 | @_ == 2 or @_ == 3 |
689 | 0 | 0 | 0 | @{$obj;} == 2 or @{$obj;} == 3 |
702 | 0 | 0 | 0 | @{$obj;} == 2 or @{$obj;} == 3 |
714 | 0 | 0 | 0 | @{$obj;} == 2 or @{$obj;} == 3 |
721 | 0 | 0 | 0 | @{$obj;} == 2 or @{$obj;} == 3 |