#file:Stasis/Web.pm #---------------------- package StasisWeb::Web; use threads::shared; my $thelock :shared; use strict; use warnings; use Apache2::RequestRec (); use Apache2::RequestIO (); use Apache2::Const -compile => qw(OK); sub handler { my $r = shift; $r->content_type('text/html'); print "

Stasis

" . `pwd`; my $xid = Stasis::Tbegin(); warn "a\n"; my %h; tie %h, 'Stasis::Hash', $xid, Stasis::ROOT_RID(); $h{foo}++; print ("$xid $h{foo}\n"); Stasis::Tcommit($xid); warn "b\n"; $| = 1; print "\n"; return Apache2::Const::OK; } 1;