I was able to identify all remaining offenders with this script/snippet:
#!/usr/bin/perl
use strict;
use warnings;
use Path::Class qw( file dir );
my $fHash = {};
dir( $ARGV[0] )->recurse(
preorder => 1,
depthfirst => 1,
callback => sub {
my $File = shift;
if (-f $File) {
my $count = 0;
for my $line(split(/\r?\n/,$File->slurp)) {
$count++ if ($line =~ /^package\s+/);
}
print "$File\n" if ($count > 1);
}
}
);
Running on the lib/ dir produced this list of files with more than one package declaration:
I was able to identify all remaining offenders with this script/snippet:
Running on the
lib/
dir produced this list of files with more than onepackage
declaration: