Condition Coverage

blib/lib/Authen/Quiz.pm
Criterion Covered Total %
condition 12 37 32.4


and 3 conditions

line !l l&&!r l&&r condition
87 0 0 1 $$data[1] and $answer eq $$data[1]

or 2 conditions

line l !l condition
35 0 3 $$option{'expire'} ||= 30
55 0 4 $ENV{'REMOTE_ADDR'} || '127.0.0.1'
68 1 3 $new_session || ''
95 0 2 $new_session || ''
124 7 0 "+<@{[$self->session_file];}" || die('Authen::Quiz' . " - File open error: @{[$self->session_file];}")

or 3 conditions

line l !l&&r !l&&!r condition
34 0 0 0 $_[0] || croak('Authen::Quiz - I want option.')
50 4 0 0 $$quiz{$keynow} || croak('Authen::Quiz' . " - Quiz data is empty. [$keynow]")
63 0 0 1 not $T or $T < $limit
75 2 0 0 shift() || croak('Authen::Quiz - I want session id.')
76 2 0 0 shift() || croak('Authen::Quiz - I want answer.')
84 0 0 1 not $T or $T < $limit
110 0 0 0 not $T or $T < $limit
0 0 0 not $T or $T < $limit or $sid eq $sha1