#! /usr/bin/perl -w 

use Test::Server ; 

my $S = Test::Server->new(
        max_servers =>  4,
        max_requests => 100,
        reverse_lookups => 'off',
        background => 1, 
        host => '127.0.0.1',
        proto => 'TCP',
        port => 7171 
) ; 

$S->run(); 

package Test::Server;

use Test::Bar ; 
use Net::Server::PreForkSimple;
@ISA = qw(Net::Server::PreForkSimple);

use strict ; 

sub process_request {

        my $A = Test::Bar->new(table => "blart") ;              
        my $B = Test::Bar->new(table => "blookie") ;            

        print $A->output() ; 
        print "_______________________\n\n" ; 
        print $B->output() ; 
}

1 ; 

package Test::Bar ; use Exporter  ; our @ISA = qw(Exporter) ; use Test
+::Foo ; 
push @ISA, qw(Test::Foo) ; our @EXPORT = qw($T) ; our $T ; use strict 
+; 1;
__DATA__
SELECT * FROM <TMPL_VAR NAME=table> ;

package Test::Foo ;

use Exporter ; 
use HTML::Template ; 
our @ISA = qw(Exporter) ; 

sub new {
        my $class = shift ;
        my %foo = @_ ; 

        my $Tref ; # reference to a scalar containing a Template

        my $useblock = 'use ' . $class . ' qw($T);' ;    
        eval $useblock ; 

        my $refblock = '$Tref =  \$' . $class . '::T;' ; 
        eval $refblock ; 

        my $self = \%foo ; 
        bless($self,$class) ; 

        $self->{'__TEMPLATE__'} = $Tref ; 
        my $preload = $self->loadfh() ; 

        return $self ;
}

sub loadfh {
        my $self = shift ; 
        my $Tref = $self->{'__TEMPLATE__'} ; 
        return 1 if ($$Tref =~ /\w+/) ; 

        my $class = ref($self) ; 
    my $fh ; 

    my $localDATA = $class . '::DATA'; 
    my $fhblock = '$fh = ' . '*' . $localDATA . ';' ; 
    eval($fhblock);

        tell($fh) ; 
    while(<$fh>) {
        $$Tref .= $_ ;
        }

        return 0 ; 
}

sub output {
        my $self = shift ; 
        my $Tref = delete $self->{'__TEMPLATE__'} ; 
    my $t = HTML::Template->new_scalar_ref($Tref, die_on_bad_params =>
+ 0); 
    $t->clear_params() ; 
    $t->param(%$self)  ;
    $self->{'__TEMPLATE__'} = $Tref;
    return $t->output();
}

sub fields {
    my $self = shift ; 
    my $Tref = delete $self->{'__TEMPLATE__'} ;
    my $t = HTML::Template->new_scalar_ref($Tref, die_on_bad_params =>
+ 0); 
    $t->clear_params()  ;   
    my @f = $t->param() ;
    $self->{'__TEMPLATE__'} = $Tref;
        return @f ; 
}

1 ;
[download]