#!/usr/bin/perl
use strict;
use warnings;

use File::Find;
use Data::Dumper;

use Util::Line qw(line);

my @files;
sub wanted {
  my $file = $_ =~/.pm$/ ? $File::Find::name : undef;
  push @files, $file if $file;
}

my @directories = ('/home/me/Documents/');
find(\&wanted,  @directories);

my $module_directory = $directories[0].'www/files/lib/';
my @my_modules = map { my $file = $_; $file =~ s/$module_directory(.+)\.pm/$1/; $file =~ s/\//::/g; $file; } @files;

my $modules;
for my $file (@files) {
  open my $fh, '<', $file or die "$file: $!";
  my $file_convert = $file;
     $file_convert =~ s/$module_directory(.+)\.pm/$1/;
     $file_convert =~ s/\//::/g;

  while (my $line = <$fh>) {
    chomp($line);
    if ($line =~ s/^use ((:|\w)+)(.+)/$1/) {
      push @{$modules->{$file_convert}{'uses'}{'mine'}},     $1 if  grep(/$line/, @my_modules);    # what modules the module uses
      push @{$modules->{$file_convert}{'uses'}{'not mine'}}, $1 if !grep(/$line/, @my_modules);    # what modules the module uses

      push @{$modules->{$1}{'used by'}}, $file_convert; # what modules use this module
    }
  }
}

my $in = shift;
my @ins = grep(/.*$in.*/, @my_modules);
for (sort @ins) {
  my $mod = $modules->{$_};
  line(0, $_);

  if ($mod->{'uses'}) {
    my $use = $mod->{'uses'};
    line(1, "$_ uses");

    if ($use->{'mine'}) {
      line(2, "My modules");
      line(3, $_) for sort @{$use->{'mine'}};
    }

    if ($use->{'not mine'}) {
      line(2, "Other modules");
      line(3, $_) for @{$use->{'not mine'}};
    }
  }

  if ($mod->{'used by'}) {
    line(1, "$_ used by");
    line(2, $_) for sort @{$mod->{'used by'}};
  }
  print "\n";
}