| web/cgi-bin/yatt.lib/YATT/Test.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 18 | 29 | 62.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 173 | 0 | 0 | 1 | @_ == 1 and -d $_[0] |
| 205 | 8 | 5 | 129 | $prev && $$prev{'cf_FILE'} && $$prev{'cf_FILE'} =~ /%d/ |
| 221 | 0 | 0 | 25 | $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 |
|---|---|---|---|---|
| 205 | 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'} |
| 279 | 0 | 13 | 0 | $global->toplevel || $global |