#!/usr/bin/perl -l
+
+BEGIN {
+ use FindBin;
+
+ unshift(@INC, $FindBin::Bin . '/../modules/override'); # Use our own versions of various modules (e.g. YAML).
+ push (@INC, $FindBin::Bin . '/..'); # '.' will be removed from @INC soon.
+}
+
use strict;
#use warnings; # corelist and find throw tons of warnings
use File::Find;
'Rose::DB::Object::Metadata' => 1,
'Rose::DB::Object::Helpers' => 1,
'Rose::DB::Object::Util' => 1,
+ 'Rose::DB::Object::Constants' => 1,
},
'Rose::Object' => {
'Rose::Object::MakeMethods::Generic' => 1,
},
'Archive::Zip' => {
'Archive::Zip::Member' => 1,
- }
+ },
+ 'HTML::Parser' => {
+ 'HTML::Entities' => 1,
+ },
+ 'URI' => {
+ 'URI::Escape' => 1,
+ },
+ 'File::MimeInfo' => {
+ 'File::MimeInfo::Magic' => 1,
+ },
);
GetOptions(
'files-with-match|l' => \ my $l,
);
+chmod($FindBin::Bin . '/..');
+
find(sub {
return unless /(\.p[lm]|console)$/;
next if /SL::/;
next if /Support::Files/; # our own test support module
next if /use (warnings|strict|vars|lib|constant|utf8)/;
+ next if /^use (with|the)/;
my ($useline) = m/^use\s+(.*?)$/;
$modules{$_->{name}} ||= { status => 'optional' } for @SL::InstallationCheck::optional_modules;
$modules{$_->{name}} ||= { status => 'developer' } for @SL::InstallationCheck::developer_modules;
-# build transitive closure for documented dependancies
+# build transitive closure for documented dependencies
my $changed = 1;
while ($changed) {
$changed = 0;
=head1 EXAMPLE
# perl scipts/find-use.pl
- !missing : Perl::Tags
!missing : Template::Constants
!missing : DBI
=item required
This module is documented in C<SL:InstallationCheck> to be necessary, or is a
-dependancy of one of these. Everything alright.
+dependency of one of these. Everything alright.
=item !missing