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 / Table.pm < prev    next >
Encoding:
Perl POD Document  |  2003-05-05  |  885 b   |  49 lines
  1.  
  2. package Apache::ASP::CGI::Table;
  3.  
  4. use Carp qw(confess);
  5.  
  6. =pod
  7.  
  8. =head1 NAME
  9.  
  10.   Apache::ASP::CGI::Table
  11.  
  12. =head1 DESCRIPTION
  13.  
  14. Layer for compatibility with Apache::Table objects 
  15. while running in CGI or command line / test mode.
  16.  
  17. =cut
  18.  
  19. sub new {
  20.     my $class = shift;
  21.     bless {}, $class;
  22. }
  23.  
  24. sub set { 
  25.     my($self, $key, $value) = @_;
  26.     defined($key) || confess("no key to set value $value");
  27.     $self->{$key} = $value;
  28. }
  29.  
  30. sub get { shift()->{shift()}; }
  31. sub unset { delete shift()->{shift()} };
  32. sub clear { %{shift()} = (); };
  33. sub add {
  34.     my($self, $name, $value) = @_;
  35.  
  36.     my $old_value = $self->{$name};
  37.     if(ref $old_value) {
  38.     push(@$old_value, $value);
  39.     } elsif(defined $old_value) {
  40.     $self->{$name} = [$old_value, $value];
  41.     } else {
  42.     $self->{$name} = $value;
  43.     }
  44. }
  45.  
  46. sub merge { die("merge not implemented"); }
  47.  
  48. 1;
  49.