| line |
true |
false |
branch |
|
38
|
0 |
0 |
if (/^[a-zA-Z]\w*/ and $_ ne 'import') { } |
|
62
|
0 |
0 |
unless (wantarray) |
|
66
|
0 |
0 |
if ref $list eq 'ARRAY' or ref $list eq 'Tcl::List' |
|
94
|
0 |
0 |
$$self eq '.' ? : |
|
107
|
0 |
0 |
if $name eq '.' |
|
109
|
0 |
0 |
unless length $name |
|
116
|
0 |
0 |
if (@_) |
|
146
|
0 |
0 |
if (substr($method, 0, 4) eq 'new_') |
|
150
|
0 |
0 |
if ($_[$i] eq '-name') |
|
152
|
0 |
0 |
$$self eq '.' ? : |
|
|
0 |
0 |
if index($name, '.') == -1 |
|
158
|
0 |
0 |
if (my $mega = $mega{$widget}) |
|
165
|
0 |
0 |
if ($prefix eq 'm_') |
|
168
|
0 |
0 |
if $p eq $$self or not $class{$p} |
|
172
|
0 |
0 |
if ($prefix eq 'g_') |
|
176
|
0 |
0 |
if (index($prefix, '_') != -1) |
|
198
|
0 |
0 |
if ($path eq '.') |
|
206
|
0 |
0 |
unless $key =~ /$path_re/ |