home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / xampp / xampp-perl-addon-1.4.9-installer.exe / sync_param.al < prev    next >
Encoding:
Text File  |  2003-09-17  |  857 b   |  29 lines
  1. # NOTE: Derived from blib\lib\CGI\Session.pm.
  2. # Changes made here will be lost when autosplit is run again.
  3. # See AutoSplit.pm.
  4. package CGI::Session;
  5.  
  6. #line 1235 "blib\lib\CGI\Session.pm (autosplit into blib\lib\auto\CGI\Session\sync_param.al)"
  7. # sync_param() - synchronizes CGI and Session parameters.
  8. sub sync_param {
  9.     my ($self, $cgi, $list) = @_;
  10.  
  11.     unless ( ref($cgi) ) {
  12.         confess("$cgi doesn't look like an object");
  13.     }
  14.  
  15.     unless ( $cgi->UNIVERSAL::can('param') ) {
  16.         confess(ref($cgi) . " doesn't support param() method");
  17.     }
  18.  
  19.     # we first need to save all the available CGI parameters to the
  20.     # object
  21.     $self->save_param($cgi, $list);
  22.  
  23.     # we now need to load all the parameters back to the CGI object
  24.     return $self->load_param($cgi, $list);
  25. }
  26.  
  27. # end of CGI::Session::sync_param
  28. 1;
  29.