| line | % | coverage | branch |
|---|
| 70 | 50 | T | F | if (not defined $class) { } |
| 50 | T | F | elsif (&Scalar::Util::blessed($class)) { } |
| 82 | 50 | T | F | if (defined $ENV{'HTTP_REFERER'}) |
| 84 | 50 | T | F | unless ("Data::Validate::URI"->can("new")) |
| 89 | 50 | T | F | unless ("Data::Validate::URI"->new->is_uri($ENV{'HTTP_REFERER'})) |
| 100 | 50 | T | F | if ($params->{'logger'}) |
| 106 | 50 | T | F | if ($config = "Config::Abstraction"->new("config_dirs", [$config_dir], "config_files", ["default", $info->domain_name], "logger", $params->{'logger'})) |
| 110 | 50 | T | F | if ($@ or not defined $config) |
| 116 | 50 | T | F | if (defined $params->{'config'}) |
| 120 | 50 | T | F | unless ($info->is_search_engine or not defined $ENV{'REMOTE_ADDR'}) |
| 121 | 50 | T | F | if (my $params = $info->params) |
| 131 | 50 | T | F | if ($impact > $threshold) |
| 136 | 50 | T | F | if ($ENV{'REMOTE_ADDR'}) |
| 151 | 50 | T | F | if (my $throttler = "Data::Throttler"->new(%options)) |
| 153 | 0 | T | F | unless ($throttler->try_push("key", $ENV{'REMOTE_ADDR'})) |
| 156 | 0 | T | F | if ($params->{'logger'}) |
| 163 | 50 | T | F | if ($@) |
| 164 | 50 | T | F | if ($params->{'logger'}) |
| 171 | 50 | T | F | if (my $lingua = $params->{'lingua'}) |
| 172 | 0 | T | F | if ($blacklist{uc $lingua->country}) |
| 173 | 0 | T | F | if ($params->{'logger'}) |
| 196 | 50 | T | F | if (my $lingua = $params->{'lingua'}) |
| 200 | 50 | T | F | if (my $key = $info->param("key")) |
| 204 | 50 | T | F | if (my $page = $info->param("page")) |
| 210 | 50 | T | F | if (my $twitter = $config->{'twitter'}) { } |
| 50 | T | F | elsif (not defined $sm) { } |
| 230 | 50 | T | F | if ($ENV{'CONFIG_DIR'}) |
| 237 | 50 | T | F | if (defined $config_dir and -d $config_dir) |
| 240 | 0 | T | F | if (-d $config_dir) |
| 252 | 50 | T | F | unless (-d $config_dir) |
| 260 | 50 | T | F | unless (-d $config_dir) |
| 261 | 0 | T | F | if ($ENV{'DOCUMENT_ROOT'}) { } |
| 278 | 50 | T | F | unless (-d $config_dir) |
| 279 | 0 | T | F | if ($args->{'config_directory'}) |
| 282 | 0 | T | F | if ($args->{'logger'}) |
| 299 | 50 | T | F | unless ($args and $args->{'cart'}) |
| 300 | 50 | T | F | if (my $purchases = $self->{'_info'}->get_cookie("cookie_name", "cart")) |
| 307 | 50 | T | F | unless ($args and $args->{'itemsincart'}) |
| 308 | 50 | T | F | if ($args->{'cart'}) |
| 311 | 0 | T | F | if (defined $args->{'cart'}{$key} and $args->{'cart'}{$key} ne '') { } |
| 323 | 50 | T | F | unless ($args->{'itemsincart'}) |
| 326 | 50 | T | F | if (my $rc = $cache->get($key)) |
| 339 | 50 | T | F | if ($rc =~ /^Location:\s/msu) |
| 343 | 50 | T | F | if ($cache) |
| 354 | 100 | T | F | ref $_[0] eq 'HASH' ? : |
| 356 | 50 | T | F | if ($self->{'_logger'}) |
| 360 | 100 | T | F | if ($self->{'_filename'}) |
| 361 | 50 | T | F | if ($self->{'_logger'}) |
| 368 | 50 | T | F | if ($self->{'_logger'}) |
| 379 | 50 | T | F | if (my $lingua = $self->{'_lingua'}) |
| 382 | 0 | T | F | if (my $language = $lingua->language_code_alpha2) |
| 383 | 0 | T | F | if (my $dialect = $lingua->sublanguage_code_alpha2) |
| 387 | 0 | T | F | if -d "$dir/$language/$browser_type" |
| 388 | 0 | T | F | if -d "$dir/$browser_type/$language" |
| 391 | 50 | T | F | if -d "$dir/$browser_type/default" |
| 392 | 50 | T | F | if -d "$dir/default/$browser_type" |
| 393 | 50 | T | F | if -d "$dir/$browser_type" |
| 405 | 50 | T | F | if ($prefix =~ m[\.\./]u) |
| 413 | 50 | T | F | unless (defined $filename and defined $fh) |
| 421 | 50 | T | F | if ($self->{'log'}) |
| 441 | 50 | T | F | ref $_[0] eq 'HASH' ? : |
| 446 | 50 | T | F | unless $key =~ /^[a-zA-Z0-9_-]+$/u |
| 449 | 50 | T | F | unless defined $value |
| 472 | 50 | T | F | if (my $cookies = $self->{'_cookies'}) |
| 474 | 50 | T | F | exists $cookies->{$cookie} ? : |
| 477 | 50 | T | F | $self->{'info'}->protocol eq 'https' ? : |
| 483 | 50 | T | F | if ($self->{'config'}{'security'}{'csrf'}{'enable'} // 1) |
| 493 | 50 | T | F | if ($params->{'Content-Type'}) { } |
| 499 | 50 | T | F | if ($filename =~ /\.txt$/u) { } |
| 507 | 50 | T | F | if ($params->{'Retry-After'}) |
| 534 | 100 | T | F | ref $_[0] eq 'HASH' ? : |
| 540 | 50 | T | F | if ($filename =~ /.+\.t(mpl|t)$/u) { } |
| 0 | T | F | elsif ($filename =~ /\.(html?|txt)$/u) { } |
| 549 | 50 | T | F | if (defined $self->{'_config'}) { } |
| 0 | T | F | elsif (scalar keys %params) { } |
| 550 | 50 | T | F | if ($info->params) { } |
| 555 | 50 | T | F | if (scalar keys %params) |
| 581 | 50 | T | F | unless ($template->process($filename, $vals, \$rc)) |
| 582 | 0 | T | F | if (my $err = $template->error) |
| 589 | 0 | T | F | unless &Geo::Coder::Free::Display::open(my $fin, "<", $filename) |
| 601 | 0 | T | F | if (not $filename =~ /.txt$/u and $rc =~ /\smailto:(.+?)>/u and not $1 =~ /^&/u and $self->{'_logger'}) |
| 612 | 50 | T | F | if (my $logger = $self->{'_logger'}) |
| 613 | 50 | T | F | ref $_[0] eq 'HASH' ? : |
| 614 | 50 | T | F | if (defined $ENV{'REMOTE_ADDR'}) { } |
| 633 | 50 | T | F | if ($info->is_search_engine) { } |
| 50 | T | F | elsif ($info->is_mobile) { } |
| 50 | T | F | elsif ($info->is_robot) { } |
| 642 | 50 | T | F | if (my $logger = $self->{'_logger'}) |