view release on metacpan or  search on metacpan

lib/Froody/Request/CGI.pm  view on Meta::CPAN

      my $filename = $cgi->tmpFileName($upload);
      my $client_filename = "".$cgi->param($_);
      my $type = ( $cgi->uploadInfo($upload) || {} )->{'Content-Type'};
      $vars{$_} = Froody::Upload
          ->new->fh($upload)
               ->filename($filename)
               ->client_filename($client_filename)
               ->mime_type($type);

    } else {
      # split multi-values params into a listref
      my @vals = split("\0",$vars{$_});
      $vars{$_} = \@vals if (@vals > 1);
      
      # decopde params from unicode
      $vars{$_} = Encode::decode_utf8( $vars{$_}, 1 );
    }
  }

  # read cookies into the request as well.
  for ($cgi->cookie()) {