+ my $class = shift;
+ my $s = {
+ S => {
+ assocdb_path => 'cah-assocs.db';
+ assocdb_dsn => undef,
+ assocdb_user => '',
+ assocdb_password => '',
+ assocdb_table => 'assocs',
+ random_source => '/dev/urandom',
+ associdlen => 128, # bits
+ param_name => 'cah_associd',
+ cookie_name => 'cah_associd', # make undef to disable cookie
+ cgi => undef,
+ get_param => sub { $s->_c()->param($s->{S}{param_name}) },
+ get_cookie => sub { $s->{S}{cookie_name}
+ ? $s->_c()->cookie($s->{S}{cookie_name})
+ : '' },
+ get_method => sub { $s->_c()->request_method() },
+ },
+ D => undef,
+ };