| line |
true |
false |
branch |
|
238
|
1 |
3 |
if exists $params{$key} |
|
240
|
1 |
0 |
unless ($$self{'config'}) |
|
290
|
1 |
0 |
unless (exists $$cfg{'myURL'}) |
|
294
|
0 |
1 |
if (not exists $$cfg{'fullURL'} and $self->getCGI) |
|
306
|
1 |
0 |
if ($$cfg{'myURL'} and not exists $$cfg{'cgiurl'}) |
|
313
|
1 |
0 |
unless (exists $$cfg{'cgidir'}) |
|
319
|
0 |
1 |
if ($$self{'dbh'}) |
|
330
|
0 |
1 |
if ($CAM::SQLManager::VERSION and $$self{'config'}{'sqldir'}) |
|
351
|
0 |
1 |
if ($ENV{'SCRIPT_FILENAME'}) { } |
|
|
0 |
1 |
elsif ($ENV{'PATH_TRANSLATED'}) { } |
|
|
1 |
0 |
elsif ($ENV{'PWD'}) { } |
|
362
|
0 |
1 |
if ($0 =~ m((.*)[/\\])) { } |
|
365
|
0 |
0 |
if ($execpath =~ m(^[/\\])) { } |
|
380
|
1 |
0 |
if ($cgidir) |
|
430
|
2 |
0 |
if (not $cgi) { } |
|
|
0 |
0 |
elsif (not $$cgi{'.header_printed'}) { } |
|
432
|
1 |
1 |
if (not $$self{'header_printed'}) { } |
|
444
|
0 |
0 |
if ($$self{'session'}) { } |
|
505
|
0 |
5 |
unless (exists $$self{'cgi'}) |
|
507
|
0 |
0 |
if ($ENV{'HTTP_ACCEPT_ENCODING'} and $self->loadModule('CGI::Compress::Gzip')) { } |
|
559
|
0 |
1 |
if ($name) { } |
|
|
0 |
2 |
elsif ($$cfg{'dbistr'} || $$cfg{'dbname'} and $$cfg{'dbusername'}) { } |
|
563
|
0 |
0 |
if ($dbparams) |
|
589
|
0 |
0 |
if ($cfg) |
|
592
|
0 |
0 |
if (not $dbistr and $$cfg{'dbname'}) |
|
595
|
0 |
0 |
if $$cfg{'dbhost'} |
|
596
|
0 |
0 |
if $$cfg{'dbport'} |
|
613
|
1 |
0 |
if (not exists $$self{'dbh'} or $name and !$$self{'dbhname'} || $$self{'dbhname'} ne $name) { } |
|
619
|
1 |
0 |
if (not $dbistr) { } |
|
625
|
0 |
0 |
unless ($self->loadModule('DBI')) |
|
634
|
0 |
0 |
unless defined $dbpass |
|
640
|
0 |
0 |
if ($global_dbh_cache{$cache_key}) { } |
|
651
|
0 |
0 |
unless ($$self{'dbh'}) |
|
653
|
0 |
0 |
unless ($$self{'config'}{'dbnonfatal'}) |
|
741
|
0 |
0 |
if ($key) |
|
764
|
0 |
2 |
if $CAM::Session::VERSION |
|
765
|
0 |
2 |
if $CAM::SQLManager::VERSION |
|
766
|
0 |
2 |
if $CAM::Template::Cache::VERSION |
|
786
|
0 |
0 |
unless (exists $$self{'session'}) |
|
789
|
0 |
0 |
unless ($self->loadModule($class)) |
|
794
|
0 |
0 |
if ($$self{'config'}{'cookiename'}) |
|
798
|
0 |
0 |
if ($$self{'config'}{'sessiontable'}) |
|
802
|
0 |
0 |
if ($$self{'config'}{'sessiontime'}) |
|
806
|
0 |
0 |
unless ($class->getDBH) |
|
808
|
0 |
0 |
unless ($self->getDBH($dbname)) |
|
871
|
0 |
1 |
if ($$self{'config'}{'mailhost'}) |
|
874
|
0 |
0 |
unless ($self->loadModule($module)) |
|
876
|
0 |
0 |
$$self{'load_error'} ? : |
|
915
|
0 |
3 |
unless ($self->loadModule($module)) |
|
917
|
0 |
0 |
unless $$self{'in_error'} |
|
922
|
0 |
3 |
if ($key) { } |
|
933
|
1 |
2 |
if (defined $file) |
|
936
|
1 |
0 |
if (defined $dir) |
|
940
|
0 |
1 |
defined $dir && $dir ne '' ? : |
|
|
0 |
1 |
unless ($template->setFilename(defined $dir && $dir ne '' ? 'File::Spec'->catfile($dir, $file) : $file)) |
|
942
|
0 |
0 |
unless $$self{'in_error'} |
|
994
|
0 |
3 |
unless ($template->setParams(%{$$self{'config'};}, 'mod_perl', exists $ENV{'MOD_PERL'}, @_)) |
|
1004
|
0 |
0 |
unless $$self{'in_error'} |
|
1086
|
0 |
0 |
if ($$self{'cgi'}) { } |
|
1096
|
0 |
0 |
if ($$self{'in_error'}) |
|
1106
|
0 |
0 |
if ($tmplFilename) |
|
1111
|
0 |
0 |
if (not $errTmpl) { } |
|
1120
|
0 |
0 |
if $$self{'dying'} |
|
1143
|
7 |
0 |
if ref $pkg_or_self |
|
1144
|
3 |
4 |
unless (defined $$ver_ref or @$isa_ref > 0) |
|
1149
|
1 |
2 |
if ($@ or not defined $$ver_ref and @$isa_ref == 0) |
|
1151
|
1 |
0 |
if ref $pkg_or_self and $@ |