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 / SourceTables.pm < prev    next >
Encoding:
Perl POD Document  |  2001-03-15  |  401 b   |  17 lines
  1. package Apache::SourceTables;
  2.  
  3. use Apache::StructureTable ();
  4. use Apache::FunctionTable ();
  5.  
  6. #build hash versions of the tables
  7. %Apache::StructureTable =
  8.   map { $_->{type}, $_->{elts} } @$Apache::StructureTable;
  9.  
  10. %Apache::FunctionTable =
  11.   map { $_->{name}, {elts => $_->{elts},
  12.                      return_type => $_->{return_type} } }
  13.           @$Apache::FunctionTable;
  14.  
  15. 1;
  16. __END__
  17.