#!/usr/bin/perl

use lib ".";
use Benchmark qw(:all) ;
use Servlet qw(servlet);
use example; # the spkg.pl generated package

open(O,">/dev/null"); select O;

# initialize some empty references I need in example.al
my $freelist = [];
my $list = [];
my $in = {};

my $r = example->new;
my $s = servlet(
    in          => 'example.html',
    args        => [ qw($nm $list $em8 $error $in $scopename $ref $result $em26 $link $freelist $networkname $em14 $em9 %oui) ],
);

my $count = 10000;

my $results = timethese($count, {
    'Seamstress' => sub { $r->process() },
    'Servlet'    => sub { $s->($nm, $list, $em8, $error, $in, $scopename, $ref, $result, $em26, $link, $freelist, $networkname, $em14, $em9, %oui) },
});
select STDOUT;
cmpthese($results);