view release on metacpan or  search on metacpan

lib/Apache2/WebApp/Plugin/Session/Memcached.pm  view on Meta::CPAN

178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
 
    return;
}
 
#----------------------------------------------------------------------------+
# update(\%controller, $name, \%data);
#
# Takes the cookie unique identifier or session id as arguments.  Updates
# existing session data.
 
sub update {
    my ($self, $c, $name, $data_ref)
      = validate_pos(@_,
          { type => OBJECT  },
          { type => HASHREF },
          { type => SCALAR  },
          { type => HASHREF }
      );
 
    $self->error('Malformed session identifier')
      unless ($name =~ /^[\w-]{1,32}$/);