cvs commit: modperl-2.0/lib/ModPerl WrapXS.pm

[stas]

stas        2004/02/13 14:33:01

  Modified:    lib/ModPerl WrapXS.pm
  Log:
  avail_modules() function to give a list of all known mp2 modules
  
  Revision  Changes    Path
  1.68      +10 -0     modperl-2.0/lib/ModPerl/WrapXS.pm
  
  Index: WrapXS.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/ModPerl/WrapXS.pm,v
  retrieving revision 1.67
  retrieving revision 1.68
  diff -u -u -r1.67 -r1.68
  --- WrapXS.pm 13 Feb 2004 22:32:23 -0000      1.67
  +++ WrapXS.pm 13 Feb 2004 22:33:01 -0000      1.68
  @@ -786,6 +786,16 @@
       return keys %$methods;
   }
   
  +sub avail_modules {
  +    my %modules = ();
  +    for my $method (keys %$methods) {
  +        for my $item ( @{ $methods->{$method} }) {
  +            $modules{$item->[MODULE]}++;
  +        }
  +    }
  +    return keys %modules;
  +}
  +
   sub preload_all_modules {
       _get_modules() unless $modules;
       eval "require $_" for keys %$modules;