NAME Perl Modules

VERSION

version 0.001

use ExtUtils::Installed;

sub _extutils {

my $c = shift;

my $inst = ExtUtils::Installed->new();

my @modules = $inst->modules();

my $out;

my $mods; 
my $serial = '0';
$mods .= qq{};
for (@modules) {
    #
    chomp;
    #
    my $module_version = $inst->version("$_");
    #
    my $module_files = $inst->files("$_");
    #
    my $mod_dirs = $inst->directories("$_");
    #
    my $mod_packlist = $inst->packlist("$_"); # shows hash error 

    $serial++ if $_;

    $mods .= qq{<tr> 
        <td>$serial</td> 
        <td> <a href="/perl/_modules/_dirs/$_" title="$_">$_</a> </td> 
        <td>$module_version</td> 
        <td>$module_files</td> 
        <td> $mod_dirs </td> 
    </tr>
    };
}
$mods .= qq{};

return $mods;

} # end

Show Dirs in a module

Show Doc for a module