($limit < $default) ? $time_to_die = $limit : $time_to_die = $default;
####
$time_to_die = ($limit < $default) ? $limit : $default;
##
##
package Apache::Test;
use strict;
use Apache::Constants qw(:common);
use Benchmark;
use vars qw($r); # Not a good idea in general, but I couldn't
# figure out how to pass parameters in a
# benchmark. Works fine for benchmarking purposes.
sub handler {
$r = shift;
$r->send_http_header;
$r->print("by_dirconfig:",timestr(timeit(250000,\&by_dirconfig)),"\n");
$r->print("by_var:", timestr(timeit(250000, \&by_var)), "\n");
return OK;
}
sub by_dirconfig {
my $time_to_die;
if ($r->dir_config('TimeLimit')) {
if ($r->dir_config('TimeLimit') < $r->dir_config('DefaultLimit')) {
$time_to_die = $r->dir_config('TimeLimit');
} else {
$time_to_die = $r->dir_config('DefaultLimit');
}
} else {
$time_to_die = $r->dir_config('DefaultLimit');
}
}
sub by_var {
my ($default, $time_to_die, $limit);
$default = $r->dir_config('DefaultLimit');
$limit = $r->dir_config('TimeLimit') if ($r->dir_config('TimeLimit'));
$time_to_die = ($limit < $default) ? $limit : $default;
}
1;