use Module::CoreList;
use SL::InstallationCheck;
use Term::ANSIColor;
+use Getopt::Long;
my (%uselines, %modules, %supplied, %requires);
},
'Devel::REPL' => {
'namespace::clean' => 1,
- }
+ },
+ 'Email::MIME' => {
+ 'Email::MIME::Creator' => 1,
+ },
+ 'Test::Harness' => {
+ 'TAP::Parser' => 1,
+ 'TAP::Parser::Aggregator' => 1,
+ },
+);
+
+GetOptions(
+ 'files-with-match|l' => \ my $l,
);
find(sub {
return unless /(\.p[lm]|console)$/;
- # remember modules shipped with Lx-Office
+ # remember modules shipped with kivitendo
$supplied{modulize($File::Find::name)}++
if $File::Find::dir =~ m#modules/#;
}
}
+# have all documented modules mentioned here
+$modules{$_->{name}} ||= { status => 'required' } for @SL::InstallationCheck::required_modules;
+$modules{$_->{name}} ||= { status => 'optional' } for @SL::InstallationCheck::optional_modules;
+$modules{$_->{name}} ||= { status => 'developer' } for @SL::InstallationCheck::developer_modules;
+
# build transitive closure for documented dependancies
my $changed = 1;
while ($changed) {
}
}
-print sprintf "%8s : %s (%s)", color_text($modules{$_}->{status}), $_, join(' ', @{ $modules{$_}->{files} || [] })
- for sort {
+do {
+ print sprintf "%8s : %s", color_text($modules{$_}->{status}), $_;
+ if ($l) {
+ print " $_" for @{ $modules{$_}->{files} || [] };
+ }
+} for sort {
$modules{$a}->{status} cmp $modules{$b}->{status}
|| $a cmp $b
} keys %modules;
Distributed under the terms of the GNU General Public License v2.
=cut
-
-