| line |
!l |
l&&!r |
l&&r |
condition |
|
84
|
0 |
0 |
0 |
$ok_templates and not $path =~ /$ok_templates/ |
|
241
|
0 |
0 |
0 |
$self and ref $self |
|
299
|
208 |
0 |
31 |
$subvar and $subvar =~ /^\-\>(\w+)(.*)/ |
|
316
|
189 |
9 |
9 |
$type and $type eq '&' |
|
322
|
0 |
0 |
9 |
$subvar and $subvar =~ /^\-\>(\w+)(.*)/ |
|
459
|
0 |
0 |
0 |
$$self{'_ep_r'} and my $r = $$self{'_ep_r'} |
|
465
|
0 |
0 |
0 |
$remoteip and not $remoteip =~ /$debughosts/ |
|
|
0 |
0 |
0 |
$remoteip and not $remoteip =~ /$debughosts/ and not $remotehost =~ /$debughosts/ |
|
488
|
0 |
0 |
0 |
not -f $file and -f $$self{'env'}{'DOCUMENT_ROOT'} . $file |
|
494
|
0 |
0 |
0 |
defined $fh and close $fh |
|
575
|
0 |
0 |
0 |
$start_at || $limit != -1 and $$dbh{'ImplementorClass'} eq 'DBD::mysql::db' |
|
596
|
0 |
0 |
0 |
$limit and $start_at-- > 0 |
|
602
|
0 |
0 |
0 |
exists $$attr{'resulttype'} && $$attr{'resulttype'} =~ /array/ |
|
605
|
0 |
0 |
0 |
$limit-- and $ref = $sth->$resultmethod |
|
608
|
0 |
0 |
0 |
exists $$attr{'resulttype'} and $$attr{'resulttype'} =~ /^single_/ |
|
708
|
0 |
0 |
0 |
$type && lc $type eq 'user' |
|
723
|
0 |
0 |
0 |
$type && lc $type eq 'user' |
|
790
|
3 |
0 |
0 |
$year eq '' and $month eq '' |
|
|
3 |
0 |
0 |
$year eq '' and $month eq '' and $day eq '' |
| line |
l |
!l |
condition |
|
52
|
0 |
86 |
$$self{'debug'} ||= 0 |
|
53
|
86 |
0 |
'CGI'->new || die("Failed to create CGI object: $!") |
|
66
|
0 |
0 |
$$self{'env'}{'PATH_TRANSLATED'} || die('Missing server environment (PATH_TRANSLATED variable)') |
|
337
|
0 |
0 |
$$self{'dbh'} || die('Not connected') |
|
386
|
22 |
0 |
$1 || 0 |
|
388
|
22 |
0 |
$3 || 0 |
|
429
|
1 |
14 |
$$self{'_ep_package'} || 0 |
|
460
|
0 |
0 |
$r->connection->remote_ip || '' |
|
461
|
0 |
0 |
$r->get_remote_host || '' |
|
463
|
0 |
0 |
$ENV{'REMOTE_ADDR'} || '' |
|
478
|
0 |
0 |
$cgi->param('debug') || 1 |
|
516
|
0 |
2 |
$$attr{'package'} || 'HTML::EP::main' |
|
559
|
0 |
0 |
$$attr{'dbh'} || 'dbh' |
|
573
|
0 |
0 |
$$attr{'startat'} || 0 |
|
574
|
0 |
0 |
$$attr{'limit'} || -1 |
|
582
|
0 |
0 |
$$attr{'startat'} || 0 |
|
622
|
0 |
0 |
$$self{$$attr{'dbh'} or 'dbh'} || die('Not connected') |
|
690
|
0 |
1 |
$$attr{'selected-text'} || 'SELECTED' |
|
731
|
0 |
0 |
$$self{'dbh'} || die('Missing database-handle (Did you run ep-database?)') |
|
733
|
0 |
0 |
$$attr{'dest'} || die(q[Missing attribute 'dest' (Destination variable)]) |
|
884
|
0 |
0 |
delete $$attr{'mailserver'} || $$self{'_ep_config'}{'mailhost'} || '127.0.0.1' |
|
891
|
0 |
0 |
$$attr{'from'} || die('Missing header attribute: from') |
|
922
|
3 |
0 |
$$attr{'file'} || die("Missing file name\n") |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
51
|
0 |
86 |
0 |
$$self{'_ep_config'} ||= $HTML::EP::Config::CONFIGURATION |
|
53
|
0 |
86 |
0 |
$$self{'cgi'} ||= 'CGI'->new || die("Failed to create CGI object: $!") |
|
54
|
0 |
86 |
0 |
ref $proto || $proto |
|
61
|
0 |
84 |
0 |
$$self{'env'} ||= $r ? {$r->cgi_env, 'PATH_INFO', $r->uri} : \%ENV |
|
242
|
0 |
0 |
0 |
$admin ||= $r ? $r->cgi_var('SERVER_ADMIN') : $ENV{'SERVER_ADMIN'} |
|
332
|
189 |
2 |
16 |
not $type or $type eq '%' |
|
420
|
15 |
0 |
0 |
not exists $$attr{'require'} or $$attr{'require'} |
|
430
|
0 |
1 |
14 |
$$attr{'isa'} or $$self{'_ep_package'} |
|
556
|
0 |
0 |
0 |
$$attr{'dsn'} || $$self{'env'}{'DBI_DSN'} |
|
557
|
0 |
0 |
0 |
$$attr{'user'} || $$self{'env'}{'DBI_USER'} |
|
558
|
0 |
0 |
0 |
$$attr{'password'} || $$self{'env'}{'DBI_PASS'} |
|
575
|
0 |
0 |
0 |
$start_at || $limit != -1 |
|
744
|
0 |
0 |
0 |
not defined $v or $$val{'type'} ne 'n' |
|
856
|
18 |
11 |
13 |
$$token{'tag'} eq 'ep-else' || $self->EvalIf($tag, $self->ParseAttr($$token{'attr'})) |
|
989
|
0 |
1 |
1 |
not defined $str or $str eq '' |