ljr/bml/test/bml-profile.pl

53 lines
1.5 KiB
Perl
Raw Normal View History

2019-02-05 21:49:12 +00:00
#!/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);
});
}