1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
# examples/rev_deps-recursive.pl
use strict;
use warnings;
use Term::ANSIColor;
use MetaCPAN::Client;
$|=1;
my $dist = shift || 'Hijk';
my $mcpan = MetaCPAN::Client->new;
print "\n\n", colored( "* $dist", 'green' ), "\n";
dig( $dist, 0 );
sub dig {
my $dist = shift;
my $level = shift;
my $res = $mcpan->reverse_dependencies($dist);
while ( my $item = $res->next ) {
if ( $level ) {
printf "%s%s\n",
colored( '....' x $level, 'yellow' ),
$item->distribution;
} else {
printf "\n>> %s\n",
colored( $item->distribution, 'blue' );
}
dig( $item->distribution, $level + 1 );
}
}
|
