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 / load_param.al < prev    next >
Encoding:
Text File  |  2003-09-17  |  1.1 KB  |  42 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 1032 "blib\lib\CGI\Session.pm (autosplit into blib\lib\auto\CGI\Session\load_param.al)"
  7. # load_param() - loads a list of third party object parameters
  8. # such as CGI, into CGI::Session's '_DATA' table
  9. sub load_param {
  10.     my ($self, $cgi, $list) = @_;
  11.  
  12.     unless ( ref($cgi) ) {
  13.         confess "save_param(): first argument must be an object";
  14.  
  15.     }
  16.     unless ( $cgi->can('param') ) {
  17.         my $class = ref($cgi);
  18.         confess "save_param(): Cannot call method param() on the object $class";
  19.     }
  20.  
  21.     my @params = ();
  22.     if ( defined $list ) {
  23.         unless ( ref($list) eq 'ARRAY' ) {
  24.             confess "save_param(): second argument must be an arrayref";
  25.         }
  26.         @params = @{ $list };
  27.  
  28.     } else {
  29.         @params = $self->param();
  30.  
  31.     }
  32.  
  33.     my $n = 0;
  34.     for ( @params ) {
  35.         $cgi->param(-name=>$_, -value=>$self->_get_param($_));
  36.     }
  37.     return $n;
  38. }
  39.  
  40. # end of CGI::Session::load_param
  41. 1;
  42.