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 |