Branch Coverage

blib/lib/Quiki.pm
Criterion Covered Total %
branch 0 102 0.0


line true false branch
97 0 0 if ($action eq 'update_perms')
99 0 0 if ($username eq 'admin') { }
102 0 0 if (param('admin_action') eq 'Delete')
106 0 0 if (param('admin_action') eq 'Save')
114 0 0 if ($action eq 'save_profile' and param('submit') =~ /^Save/)
115 0 0 if (param('new_password1') and param('new_password1') ne param('new_password2')) { }
121 0 0 if param('new_password1')
122 0 0 if param('email')
129 0 0 if ($action eq 'upload')
135 0 0 unless -f $path
137 0 0 if (param("description$i"))
138 0 0 unless open OUT, '>', "$path/_desc_$id"
149 0 0 if ($action eq 'register' and param('submit_opt') eq 'Register')
152 0 0 if ($username and $email and $email =~ /\@/) { }
153 0 0 if ('Quiki::Users'->exists($username)) { }
169 0 0 if ($action eq 'login')
172 0 0 if ($username and $password and 'Quiki::Users'->auth($username, $password)) { }
173 0 0 if $$self{'session'}->param('authenticated', 1) and $$self{'session'}->param('username', $username)
183 0 0 if ($action eq 'logout')
184 0 0 if $$self{'session'}->param('authenticated') and $$self{'session'}->param('authenticated', 0) and $$self{'session'}->param('username', '')
191 0 0 if $action eq 'create' and -f "data/content/$node"
192 0 0 if ($action eq 'create' or not -f "data/content/$node")
197 0 0 if ($action eq 'edit' and 'Quiki::Pages'->locked($node, $$self{'sid'})) { }
205 0 0 if ($action eq 'save' and param('submit_opt') eq 'Save')
206 0 0 if ('Quiki::Pages'->locked_for_user($node, $$self{'sid'})) { }
207 0 0 defined param('text') ? :
220 0 0 if (not $$self{'rev'} =~ /\d+/ or $$self{'rev'} < 0 or $$self{'rev'} > $$self{'meta'}{'rev'})
224 0 0 if ($action eq 'rollback') { }
239 0 0 if $$self{'session'}->param('trace')
240 0 0 unless @trace
241 0 0 if ($trace[-1] ne $node)
243 0 0 if @trace > 5
250 0 0 if ($action eq 'save' and param('submit_opt') eq 'Preview')
254 0 0 if ($action eq 'save' and param('submit_opt') eq 'Cancel')
258 0 0 $$self{'session'}->param('authenticated') ? :
267 0 0 defined $$self{'opensite'} ? :
284 0 0 if ($action eq 'profile_page')
289 0 0 if ($action eq 'edit') { }
0 0 elsif ($action eq 'history') { }
0 0 elsif ($action eq 'admin_page') { }
0 0 elsif ($action eq 'index') { }
0 0 elsif ($action eq 'diff') { }
290 0 0 if ($preview) { }
292 0 0 unless defined $text
300 0 0 if -d "data/attach/$node"
306 0 0 if ($i != $$self{'meta'}{'rev'}) { }
329 0 0 unless ($f =~ /^\./)
354 0 0 if ($action eq 'save' or $action eq 'rollback')
360 0 0 unless ($action eq 'edit')
362 0 0 if ($$self{'meta'}{'last_update_by'}) { }
378 0 0 if ($$self{'session'}->param('msg'))