File: rev_deps.pl

package info (click to toggle)
libmetacpan-client-perl 2.029000-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 548 kB
  • sloc: perl: 2,540; makefile: 8
file content (26 lines) | stat: -rw-r--r-- 404 bytes parent folder | download | duplicates (3) 
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
 

# examples/rev_deps.pl

use strict;
use warnings;
use Data::Printer;
use MetaCPAN::Client;

my $module = shift || 'Hijk';

my $deps =
    MetaCPAN::Client->new->rev_deps($module);

my @output;

while ( my $rel = $deps->next ) {
    push @output => {
        name   => $rel->name,
        author => $rel->author,
    };
}

print "\n";
my $title = "Reverse dependencies for 'Hijk':";
p $title;
p @output;