| line |
l |
!l |
condition |
|
37
|
0 |
6 |
$PREFERRED_CGI_MODULE ||= "CGI" |
|
81
|
16 |
0 |
shift() || die('Missing class name') |
|
92
|
6 |
0 |
shift() || die('Usage: my $query = $cgix_obj->object') |
|
152
|
1 |
0 |
shift() || die('Usage: $cgix_obj->set_form(\\%form)') |
|
153
|
1 |
0 |
shift() || {} |
|
169
|
2 |
0 |
shift() || die('Usage: $cgix_obj->make_form(\\%form)') |
|
218
|
1 |
0 |
shift() || die('Usage: $cgix_obj->set_cookies(\\%cookies)') |
|
219
|
1 |
0 |
shift() || {} |
|
237
|
13 |
0 |
shift() || die('Usage: $cgix_obj->apache_request') |
|
363
|
0 |
2 |
$args->{'-path'} ||= "/" |
|
390
|
0 |
0 |
shift() || die('Usage: $cgix_obj->last_modified($time)') |
|
392
|
0 |
0 |
shift() || 'Last-Modified' |
|
438
|
4 |
0 |
$$m{lc $3} || 1 |
|
449
|
0 |
0 |
shift() || die('Usage: $cgix_obj->send_status(302 => "Bounced")') |
|
450
|
0 |
0 |
shift() || die('Missing status') |
|
478
|
0 |
0 |
shift() || die('Usage: $cgix_obj->send_header') |
|
500
|
0 |
0 |
shift() || die('Usage: $cgix_obj->print_js($js_file)') |
|
501
|
0 |
0 |
shift() || '' |
|
564
|
0 |
10 |
$self->{'fill_module'} || 'CGI::Ex::Fill' |
|
624
|
2 |
0 |
shift() || die('Usage: my $er = $cgix_obj->validate($form, $val_hash_or_file)') |
|
637
|
0 |
0 |
shift() || die('Usage: my $ob = $cgix_obj->conf_obj($args)') |
|
645
|
0 |
0 |
shift() || die('Usage: my $conf = $cgix_obj->conf_read($file)') |
|
652
|
2 |
0 |
shift() || die('Usage: my $out = $cgix_obj->swap_template($file, \\%vars, $template_args)') |
|
655
|
2 |
0 |
shift() || {} |
|
662
|
0 |
2 |
$self->{'template_module'} || 'CGI::Ex::Template' |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
96
|
0 |
3 |
0 |
$PREFERRED_CGI_REQUIRED ||= do {
my $file = $self->{'cgi_module'} || $PREFERRED_CGI_MODULE;
$file .= ".pm";
$file =~ s[::][/]g;
eval {
do {
require $file
}
};
die "Couldn't require ${PREFERRED_CGI_MODULE}: $@" if $@;
1
} |
|
97
|
0 |
3 |
0 |
$self->{'cgi_module'} || $PREFERRED_CGI_MODULE |
|
128
|
6 |
0 |
0 |
shift() || 'CGI::Ex'->new |
|
137
|
2 |
2 |
0 |
shift() || $self->object |
|
170
|
2 |
0 |
0 |
shift() || $self->get_form |
|
198
|
3 |
0 |
0 |
shift() || 'CGI::Ex'->new |
|
206
|
0 |
2 |
0 |
shift() || $self->object |
|
240
|
0 |
0 |
13 |
$self->{'apache_request'} ||= &apache_request_sub()->() |
|
291
|
2 |
0 |
0 |
shift() || 'CGI::Ex'->new |
|
391
|
0 |
0 |
0 |
shift() || time |
|
415
|
0 |
0 |
0 |
shift() || time |
|
424
|
0 |
1 |
6 |
not $time or lc $time eq "now" |
|
608
|
0 |
0 |
0 |
$args->{'form'} || $args->{'fobject'} || $args->{'fdat'} || $self->object |
|
638
|
0 |
0 |
0 |
$self->{'conf_obj'} ||= do {
require CGI::Ex::Conf;
"CGI::Ex::Conf"->new(@_)
} |