An ill advised and ill fated attempt to automate testing things for @INC including "."

test.pl

@@ -0,0 +1,56 @@
+#!/usr/bin/env perl
+use 5.22.0;
+
+package Module;
+use Moose;
+
+has 'name' => (is => 'ro');
+has 'version' => (is => 'ro');
+
+has 'depends' => (
+    default => sub {my $self=shift; get_deps($self->name)},
+    is => 'ro',
+    isa => 'ArrayRef[Module]',
+    lazy => 1,
+);
+
+our %cache;
+
+sub new_module {
+    my $class = shift;
+    my $module = shift;
+    chomp $module;
+    my ($name, $version) = split (/[\-~]/, $module);
+
+    return $cache{$name} if exists $cache{$name};
+
+    $cache{$name} = Module->new(name => $name);
+}
+
+sub get_deps {
+    my $module = shift;
+
+    return [] if $module eq 'perl';
+
+    open(my $ph, "-|", qw/cpanm --quiet --showdeps/, $module);
+
+    return [map {Module->new_module($_)} <$ph>];
+}
+
+sub print_deps {
+    my ($self, $level, $v) = @_;
+
+    for my $dep ($self->depends->@*) {
+        my $name = $dep->name;
+        print ((" " x $level), $name, "\n");
+        $dep->print_deps($level+1, [@$v, $name]) unless ($name ~~ @$v);
+    }
+}
+
+use strict;
+use autodie;
+use warnings;
+use Data::Dumper;
+
+my $foo = Module->new_module('Moose');
+$foo->print_deps(0, []);