home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / perl / vars.al < prev    next >
Encoding:
Text File  |  2003-04-30  |  838 b   |  29 lines
  1. # NOTE: Derived from blib\lib\Config\Simple.pm.
  2. # Changes made here will be lost when autosplit is run again.
  3. # See AutoSplit.pm.
  4. package Config::Simple;
  5.  
  6. #line 1318 "blib\lib\Config\Simple.pm (autosplit into blib\lib\auto\Config\Simple\vars.al)"
  7. # returns all the keys as a hash or hashref
  8. sub vars {
  9.   my $self = shift;
  10.  
  11.   my $syntax = $self->{_SYNTAX} or die "'_SYNTAX' is not defined";
  12.   my %vars = ();
  13.   if ( $syntax eq 'ini' ) {
  14.     while ( my ($block, $values) = each %{$self->{_DATA}} ) {
  15.       while ( my ($k, $v) = each %{$values} ) {
  16.         $vars{"$block.$k"} = defined($v->[1]) ? $v : $v->[0];
  17.       }
  18.     }
  19.   } else {
  20.     while ( my ($k, $v) = each %{$self->{_DATA}} ) {
  21.       $vars{$k} = $v->[1] ? $v : $v->[0];
  22.     }
  23.   }
  24.   return wantarray ? %vars : \%vars;
  25. }
  26.  
  27. # end of Config::Simple::vars
  28. 1;
  29.