my $self = bless {}, $class;
- map { $self->{$_} = $params{$_} } qw(auth key value auto_restore);
+ map { $self->{$_} = $params{$_} } qw(auth key value auto_restore modified);
$self->{fetched} = exists $params{value};
$self->{parsed} = !$params{raw} && exists $params{value};
my ($self) = @_;
return $self if $self->{fetched};
+ return $self if !$self->{auth}->session_tables_present;
my $dbh = $self->{auth}->dbconnect;
my $query = qq|SELECT sess_value FROM auth.session_content WHERE (session_id = ?) AND (sess_key = ?)|;