sub setup {

    my $self = shift;

    tie %session, 'Apache::Session', $self->query->cookie('session_id');

    $self->composite_object( name => 'session',
			     object => tied(%session));

    # etc.

}