53 lines
1.5 KiB
Perl
53 lines
1.5 KiB
Perl
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use lib "$ENV{'LJHOME'}/cgi-bin";
|
||
|
|
use Apache;
|
||
|
|
use Apache::FakeRequest ();
|
||
|
|
use Apache::BML;
|
||
|
|
use Benchmark;
|
||
|
|
|
||
|
|
my $benchmark = shift; # times to run new code
|
||
|
|
my $bold = shift; # times to run old code
|
||
|
|
$bold = $benchmark unless defined $bold;
|
||
|
|
|
||
|
|
my $r = Apache::FakeRequest->new(
|
||
|
|
'filename' => "$ENV{LJHOME}/fake_root/bml-test.bml",
|
||
|
|
# 'filename' => "$ENV{LJHOME}/htdocs/foo.bml",
|
||
|
|
'document_root' => "$ENV{LJHOME}/fake_root",
|
||
|
|
'method' => "GET",
|
||
|
|
'args' => "",
|
||
|
|
'content' => "",
|
||
|
|
'uri' => '/bml-test.bml',
|
||
|
|
# 'uri' => '/foo.bml',
|
||
|
|
'header_only' => $benchmark ? 1 : 0,
|
||
|
|
);
|
||
|
|
|
||
|
|
unless ($benchmark) {
|
||
|
|
# *Apache::BML::bml_decode = \&Apache::BML::bml_decode_OLD;
|
||
|
|
# *Apache::BML::load_elements = \&Apache::BML::load_elements_OLD;
|
||
|
|
my $stat = Apache::BML::handler($r);
|
||
|
|
die "bad init" unless $stat == 0;
|
||
|
|
exit 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
print "New code:\n";
|
||
|
|
timethis($benchmark, sub {
|
||
|
|
my $stat = Apache::BML::handler($r);
|
||
|
|
});
|
||
|
|
|
||
|
|
|
||
|
|
if ($bold) {
|
||
|
|
print "Old code:\n";
|
||
|
|
*Apache::BML::bml_decode = \&Apache::BML::bml_decode_OLD;
|
||
|
|
*Apache::BML::load_elements = \&Apache::BML::load_elements_OLD;
|
||
|
|
timethis($bold, sub {
|
||
|
|
my $stat = Apache::BML::handler($r);
|
||
|
|
});
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|