| line | % | coverage | branch |
|---|
| 24 | 50 | T | F | if ($ENV{'HTTP_USER_AGENT'}) |
| 33 | 0 | T | F | if ($@) { } |
| 46 | 0 | T | F | if ($debug_level eq '2') { } |
| 0 | T | F | elsif ($debug_level eq '1') { } |
| 77 | 0 | T | F | if ($ENV{'KOHA_BACKTRACES'}) |
| 84 | 50 | T | F | if ($servers) |
| 216 | 0 | T | F | if (-d $cgidir . '/cgi-bin') |
| 220 | 0 | T | F | unless do $cgidir . '/kohaversion.pl' |
| 251 | 50 | T | F | if ($ismemcached) |
| 276 | 0 | T | F | if ($ismemcached) { } |
| 292 | 0 | T | F | if (/mysql/) |
| 293 | 0 | T | F | if (/Postgres|Pg|PostgresSQL/) |
| 294 | 0 | T | F | if (/oracle/) |
| 305 | 100 | T | F | if $context |
| 310 | 50 | T | F | unless $new_ctx |
| 344 | 50 | T | F | unless defined $conf_fname and -s $conf_fname |
| 347 | 50 | T | F | if (not defined $conf_fname) |
| 351 | 50 | T | F | if (exists $ENV{'KOHA_CONF'} and $ENV{'KOHA_CONF'} and -s $ENV{'KOHA_CONF'}) { } |
| 0 | T | F | elsif (not $INSTALLED_CONFIG_FNAME =~ /__KOHA_CONF_DIR/ and -s $INSTALLED_CONFIG_FNAME) { } |
| 0 | T | F | elsif (-s '/etc/koha/koha-conf.xml') { } |
| 365 | 50 | T | F | if ($ismemcached) { } |
| 368 | 0 | T | F | if (not defined $self) |
| 378 | 50 | T | F | if not defined $$self{'config'} |
| 379 | 50 | T | F | if not defined $$self{'config'} |
| 426 | 50 | T | F | if (ref $self eq '') { } |
| 436 | 50 | T | F | if defined $context |
| 455 | 0 | T | F | if ($#context_stack < 0) |
| 486 | 50 | T | F | if not defined $$context{$term} |
| 531 | 50 | T | F | if (exists $sysprefs{$var}) |
| 535 | 50 | T | F | unless my $dbh = 'C4::Context'->dbh |
| 552 | 0 | T | F | defined $it ? : |
| 583 | 0 | T | F | unless my $dbh = 'C4::Context'->dbh |
| 587 | 0 | T | F | if $type and $type eq 'YesNo' and $value eq '' |
| 596 | 0 | T | F | if ($sth->execute($var, $value)) |
| 646 | 0 | T | F | if (defined $$context{'Zconn'}{$server} and 0 == $$context{'Zconn'}{$server}->errcode) { } |
| 656 | 0 | T | F | if defined $$context{'Zconn'}{$server} |
| 682 | 0 | T | F | unless $server |
| 683 | 0 | T | F | unless $syntax |
| 689 | 0 | T | F | if $user and $password |
| 694 | 0 | T | F | if $auth |
| 695 | 0 | T | F | if $auth |
| 696 | 0 | T | F | if $async |
| 697 | 0 | T | F | if $piggyback |
| 702 | 0 | T | F | $servername ? : |
| 711 | 0 | T | F | if ($Zconn->errcode != 0) |
| 746 | 50 | T | F | if ($context->config('db_scheme')) { } |
| 758 | 50 | T | F | $ENV{'DEBUG'} ? : |
| 0 | T | F | unless my $dbh = 'DBI'->connect("DBI:${db_driver}:dbname=$db_name;host=$db_host;port=$db_port", $db_user, $db_passwd, {'RaiseError', $ENV{'DEBUG'} ? 1 : 0}) |
| 761 | 50 | T | F | if ($db_driver eq 'mysql') { } |
| 0 | T | F | elsif ($db_driver eq 'Pg') { } |
| 766 | 50 | T | F | if $tz |
| 770 | 0 | T | F | if $tz |
| 796 | 50 | T | F | if (defined $$context{'dbh'} and $$context{'dbh'}->ping) |
| 872 | 0 | T | F | if ($#{$$context{'dbh_stack'};} < 0) |
| 902 | 0 | T | F | if defined $$context{'marcfromkohafield'} |
| 943 | 0 | T | F | if defined $$context{'stopwords'} |
| 963 | 0 | T | F | unless $stopwordlist |
| 981 | 50 | T | F | if defined $var and defined $$context{'userenv'}{$var} |
| 983 | 0 | T | F | if ($$context{'dbh'} and $context->preference('insecure') eq 'yes') { } |
| 1031 | 0 | T | F | unless my($type, $shelves) = @_ |
| 1032 | 0 | T | F | unless my $activeuser = $$context{'activeuser'} |
| 1033 | 0 | T | F | if $type eq 'bar' |
| 1034 | 0 | T | F | if $type eq 'pub' |
| 1035 | 0 | T | F | if $type eq 'tot' |
| 1040 | 0 | T | F | unless ($active = $$context{'userenv'}{$$context{'activeuser'}}) |
| 1041 | 0 | T | F | if $debug |
| 1044 | 0 | T | F | unless my $totshelves = $$active{'totshelves'} |
| 1045 | 0 | T | F | unless my $pubshelves = $$active{'pubshelves'} |
| 1046 | 0 | T | F | unless my $barshelves = $$active{'barshelves'} |
| 1084 | 0 | T | F | if $$context{'activeuser'} eq $sessionID |
| 1109 | 0 | T | F | unless $versions{'apacheVersion'} |
| 1110 | 0 | T | F | unless $versions{'apacheVersion'} |
| 1111 | 0 | T | F | unless $versions{'apacheVersion'} |
| 1127 | 100 | T | F | if (not defined $$context{'tz'}) |