view release on metacpan or  search on metacpan

lib/Apache/Session/Store/DBMS.pm  view on Meta::CPAN

	$self->connection($session);

	if (exists $self->{dbms}->{$session->{data}->{_session_id}}) {
		die "Object already exists in the data store";
		};

	$self->{dbms}->{$session->{data}->{_session_id}} = $session->{serialized}; # single session-id object
	};

sub update {
	my $self = shift;
	my $session = shift;
    
	return
		if( $session->{isObjectPerKey} );

	$self->connection($session);

	$self->{dbms}->{$session->{data}->{_session_id}} = $session->{serialized}
		if(defined $session->{data}->{_session_id});