sub raw_fetch {
   my $class = shift;
   my $raw_cookie = get_raw_cookie(@_) or return;
   my %results;

   $raw_cookie =~ s/^\s+//;
   $raw_cookie =~ s/\s+$//;
   my(@pairs) = split(/\s*;\s*/,$raw_cookie);
   foreach (@pairs) {
     my ($key,$val) = (/^([^=]+)=?(.*)/);
     $results{$key} = $val;
   }
   return \%results unless wantarray;
   return %results;
}