#!/usr/bin/perl -w
use strict;
use FindBin;
use lib "$FindBin::Bin/../lib";
use GraphViz;
use Module::CPANTS;

my $graph = new GraphViz;
my $cpants = Module::CPANTS->new->data;

for my $from (keys %$cpants) {
  for my $to (@{ $cpants->{ $from }->{ requires } }) {
    $graph->add_edge( $from, $to );
  }
}

#$graph->as_png("cpan.png");
print $graph->_as_debug;