},
'Archive::Zip' => {
'Archive::Zip::Member' => 1,
- }
+ },
+ 'HTML::Parser' => {
+ 'HTML::Entities' => 1,
+ },
+ 'URI' => {
+ 'URI::Escape' => 1,
+ },
+ 'File::MimeInfo' => {
+ 'File::MimeInfo::Magic' => 1,
+ },
);
GetOptions(
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+(.*?)$/;
=head1 EXAMPLE
# perl scipts/find-use.pl
- !missing : Perl::Tags
!missing : Template::Constants
!missing : DBI