| web/cgi-bin/yatt.lib/YATT/Test.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 17 | 29 | 58.6 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 173 | 0 | 0 | 1 | @_ == 1 and -d $_[0] |
| 206 | 0 | 5 | 129 | $prev && $prev->{'cf_FILE'} && $prev->{'cf_FILE'} =~ /%d/ |
| 221 | 0 | 25 | 0 | $prev && $prev->{'cf_WIDGET'} |
| 222 | 107 | 0 | 23 | not $test->{'cf_TITLE'} and $prev |
| 316 | 129 | 0 | 0 | $toplevel and my $sub = $toplevel->can('set_random_list') |
| line | l | !l | condition |
|---|---|---|---|
| 210 | 146 | 13 | $test->{'cf_FILE'} ||= 'doc/f%d.html' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 206 | 42 | 129 | 13 | $test->{'cf_FILE'} ||= $prev && $prev->{'cf_FILE'} && $prev->{'cf_FILE'} =~ /%d/ ? $prev->{'cf_FILE'} : undef |
| 211 | 0 | 156 | 3 | $test->{'cf_WIDGET'} ||= do { my $widget = $test->{'realfile'}; $widget =~ s[^doc/][]; $widget =~ s/\.\w+$//; $widget =~ s[/][:]g; $widget } |
| 221 | 105 | 25 | 0 | $test->{'cf_WIDGET'} ||= $prev && $prev->{'cf_WIDGET'} |
| 283 | 0 | 13 | 0 | $global->toplevel || $global |