use Apache::Session::MySQL; sub TIEHASH { my $class = shift; my $session_id = shift; my $param = shift; my $self = {}; $self->{ASM} = Apache::Session::MySQL->TIEHASH( $session_id, { Handle => $param->{model}->{dbi}, LockHandle => $param->{model}->{dbi}, TableName => $param->{model}->{cfg}->{db}->param( "sessions" ) } ); $param->{model}->{session} = $self; bless( $self, $class ); return $self; } sub AUTOLOAD { my $self = shift; our $AUTOLOAD =~ s/.*:://; $self->{ASM}->$AUTOLOAD( @_ ); }