find_cuckoo.pl

#!perl
use v5.14;
use strict;

use Module::Extract::Namespaces;

LINE: while( <> ) {
  chomp;
	my @namespaces = Module::Extract::Namespaces->from_file($_); 
	if( @namespaces == 1 ) {
		my $file = $namespaces[0] =~ s/::/\//g;
		$file .= '.pm';
		next LINE if /\Q$file\E\Z/;
		}
	
	my $said = 0;
	my %Seen;	
	foreach my $n ( @namespaces ) {
		my $file = $n =~ s/::/\//rg;
		$file .= '.pm';
		next if /\Q$file\E\Z/;
		next if $Seen{$n}++;
		say unless $said++;
		print "\t$n\n";
		}
	print "\n" if $said;

	}