Branch Coverage

blib/lib/OpenGuides/CGI.pm
Criterion Covered Total %
branch 57 68 83.8


line true false branch
99 0 52 unless my $wiki = $args{'wiki'}
100 0 52 unless UNIVERSAL::isa($wiki, 'Wiki::Toolkit')
102 0 52 unless my $q = $args{'cgi_obj'}
103 0 52 unless UNIVERSAL::isa($q, 'CGI')
177 0 17 unless ($name and $param)
183 6 11 if (not $name =~ / / or $name ne $param)
192 4 7 if ($q->param('id')) { }
4 3 elsif ($q->param('title')) { }
236 1 46 unless my $config = $args{'config'}
237 1 45 unless UNIVERSAL::isa($config, 'OpenGuides::Config')
241 13 32 if ($args{'cookie_expires'} and $args{'cookie_expires'} eq 'never') { }
1 31 elsif ($args{'cookie_expires'} and $args{'cookie_expires'} eq 'year') { }
293 1 1433 unless my $config = $args{'config'}
294 1 1432 unless UNIVERSAL::isa($config, 'OpenGuides::Config')
298 11 1421 if (my $cookies = $args{'cookies'})
299 10 1 if (ref $cookies ne 'ARRAY')
304 1432 0 unless ($cookies{$cookie_name})
309 224 1208 if ($cookies{$cookie_name})
351 2464 13288 defined $data{$key} ? :
377 1 18 unless my $config = $args{'config'}
378 1 17 unless UNIVERSAL::isa($config, 'OpenGuides::Config')
383 0 17 if ($args{'clear_cookie'}) { }
413 1 12 unless my $config = $args{'config'}
414 1 11 unless UNIVERSAL::isa($config, 'OpenGuides::Config')
419 6 5 if ($cookies{$cookie_name})
429 0 1477 unless my $site_name = $args{'config'}->site_name
436 0 28 unless my $site_name = $args{'config'}->site_name
469 1 36 unless $args{'selected'}
477 19 25 if ($type eq 'category') { }
25 0 elsif ($type eq 'locale') { }
488 44 0 if ($html)
492 18 19 unless ($got_cat)
497 12 25 unless ($got_loc)
511 37 37 if ($args{'type'} eq 'locale') { }