| 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) |
| 215 | 0 | T | F | if (-d $cgidir . '/cgi-bin') |
| 219 | 0 | T | F | unless do $cgidir . '/kohaversion.pl' |
| 250 | 50 | T | F | if ($ismemcached) |
| 275 | 0 | T | F | if ($ismemcached) { } |
| 291 | 0 | T | F | if (/mysql/) |
| 292 | 0 | T | F | if (/Postgres|Pg|PostgresSQL/) |
| 293 | 0 | T | F | if (/oracle/) |
| 304 | 100 | T | F | if $context |
| 309 | 50 | T | F | unless $new_ctx |
| 343 | 50 | T | F | unless defined $conf_fname and -s $conf_fname |
| 346 | 50 | T | F | if (not defined $conf_fname) |
| 350 | 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') { } |
| 364 | 50 | T | F | if ($ismemcached) { } |
| 367 | 0 | T | F | if (not defined $self) |
| 377 | 50 | T | F | if not defined $$self{'config'} |
| 378 | 50 | T | F | if not defined $$self{'config'} |
| 424 | 50 | T | F | if (ref $self eq '') { } |
| 434 | 50 | T | F | if defined $context |
| 453 | 0 | T | F | if ($#context_stack < 0) |
| 484 | 50 | T | F | if not defined $$context{$term} |
| 529 | 0 | T | F | if (exists $sysprefs{$var}) |
| 533 | 0 | T | F | unless my $dbh = 'C4::Context'->dbh |
| 550 | 0 | T | F | defined $it ? : |
| 581 | 0 | T | F | unless my $dbh = 'C4::Context'->dbh |
| 585 | 0 | T | F | if $type and $type eq 'YesNo' and $value eq '' |
| 594 | 0 | T | F | if ($sth->execute($var, $value)) |
| 644 | 0 | T | F | if (defined $$context{'Zconn'}{$server} and 0 == $$context{'Zconn'}{$server}->errcode) { } |
| 654 | 0 | T | F | if defined $$context{'Zconn'}{$server} |
| 680 | 0 | T | F | unless $server |
| 681 | 0 | T | F | unless $syntax |
| 687 | 0 | T | F | if $user and $password |
| 692 | 0 | T | F | if $auth |
| 693 | 0 | T | F | if $auth |
| 694 | 0 | T | F | if $async |
| 695 | 0 | T | F | if $piggyback |
| 700 | 0 | T | F | $servername ? : |
| 709 | 0 | T | F | if ($Zconn->errcode != 0) |
| 744 | 0 | T | F | if ($context->config('db_scheme')) { } |
| 756 | 0 | 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}) |
| 759 | 0 | T | F | if ($db_driver eq 'mysql') { } |
| 0 | T | F | elsif ($db_driver eq 'Pg') { } |
| 764 | 0 | T | F | if $tz |
| 768 | 0 | T | F | if $tz |
| 794 | 0 | T | F | if (defined $$context{'dbh'} and $$context{'dbh'}->ping) |
| 870 | 0 | T | F | if ($#{$$context{'dbh_stack'};} < 0) |
| 900 | 0 | T | F | if defined $$context{'marcfromkohafield'} |
| 941 | 0 | T | F | if defined $$context{'stopwords'} |
| 961 | 0 | T | F | unless $stopwordlist |
| 979 | 50 | T | F | if defined $var and defined $$context{'userenv'}{$var} |
| 981 | 0 | T | F | if ($$context{'dbh'} and $context->preference('insecure') eq 'yes') { } |
| 1029 | 0 | T | F | unless my($type, $shelves) = @_ |
| 1030 | 0 | T | F | unless my $activeuser = $$context{'activeuser'} |
| 1031 | 0 | T | F | if $type eq 'bar' |
| 1032 | 0 | T | F | if $type eq 'pub' |
| 1033 | 0 | T | F | if $type eq 'tot' |
| 1038 | 0 | T | F | unless ($active = $$context{'userenv'}{$$context{'activeuser'}}) |
| 1039 | 0 | T | F | if $debug |
| 1042 | 0 | T | F | unless my $totshelves = $$active{'totshelves'} |
| 1043 | 0 | T | F | unless my $pubshelves = $$active{'pubshelves'} |
| 1044 | 0 | T | F | unless my $barshelves = $$active{'barshelves'} |
| 1082 | 0 | T | F | if $$context{'activeuser'} eq $sessionID |
| 1107 | 0 | T | F | unless $versions{'apacheVersion'} |
| 1108 | 0 | T | F | unless $versions{'apacheVersion'} |
| 1109 | 0 | T | F | unless $versions{'apacheVersion'} |