Branch Coverage

blib/lib/MojoMojo.pm
Criterion Covered Total %
branch 72 102 70.5


line true false branch
145 0 197 if ($self->config->{'force_ssl'})
199 0 3145 unless $setting
205 2979 166 if ref $c eq 'MojoMojo'
209 0 165 if (defined $value)
214 150 15 defined $setting->prefvalue ? :
227 2358 621 if (defined $c->cache->get($setting) and not defined $value)
236 9 612 if defined $value
241 502 119 unless (defined $prefvalue)
243 14 488 if ($setting eq 'main_formatter') { }
30 458 elsif ($setting eq 'default_lang') { }
0 458 elsif ($setting eq 'name') { }
0 458 elsif ($setting eq 'theme') { }
50 408 elsif ($setting =~ /^(enforce_login|check_permission_on_view)$/) { }
132 276 elsif ($setting =~ /^(cache_permission_data|create_allowed|delete_allowed|edit_allowed|view_allowed|attachment_allowed)$/) { }
246 0 14 defined $c->config->{'main_formatter'} ? :
251 0 30 defined $c->config->{$setting} ? :
255 0 0 defined $c->config->{$setting} ? :
259 0 0 defined $c->config->{$setting} ? :
264 50 0 defined $c->config->{'permissions'}{$setting} ? :
273 132 0 defined $c->config->{'permissions'}{$setting} ? :
310 0 107 if ($c->user and $c->user->timezone)
358 12 185 if ($path =~ m[^special(?:/|$)(.*)]) { }
366 24 161 if ($index == -1) { }
379 197 0 unless $path =~ m[^/]
401 2020 2207 unless ($_[0] =~ m[^/])
403 2020 0 $c->stash->{'path'} =~ m[^/] ? :
408 36 4191 if (&Encode::is_utf8($_[0]))
414 0 4227 if $c->config->{'force_ssl'}
428 0 1688 defined $self->config->{'static_path'} ? :
473 43 74 if (@pathelements and $pathelements[0] eq '')
570 113 4 if ($c->pref('cache_permission_data'))
577 26 91 unless ($permdata)
590 4 22 unless ($c->pref('cache_permission_data'))
592 4 0 if $role_ids
606 116 112 if ($record->{'apply_to_subpages'} eq 'yes') { }
619 113 4 if ($c->pref('cache_permission_data'))
638 117 0 if (ref $user)
654 74 117 if $user and $user->is_admin
658 106 11 unless ($user)
662 106 0 if ($anonymous)
717 117 54 if ($i == $#paths_to_check)
721 119 0 if (exists $permdata->{$path} and exists $permdata->{$path}{$role} and exists $permdata->{$path}{$role}{$permtype})
731 595 0 if (defined $permdata->{$path}{$role}{$permtype}{$perm})
732 0 595 if ($len == $rulescomparison{$perm}{'len'}) { }
595 0 elsif ($len > $rulescomparison{$perm}{'len'}) { }
733 0 0 if ($permdata->{$path}{$role}{$permtype}{$perm} eq 'yes')
740 365 230 if ($permdata->{$path}{$role}{$permtype}{$perm} eq 'yes') { }
770 0 36 unless $c->pref('check_permission_on_view')
773 14 22 if ($c->user_exists)
777 0 36 if $c->debug
780 0 36 unless ($perms->{'view'})