Here's a simple way to get DSLIP_STATUS:
#!/usr/bin/perl -l
use strict;
use warnings;
use CPAN;
use Data::Dumper::Concise;
my $d = shift @ARGV;
my(@mods) = qw(CGI MooseX::Declare);
my (@matches) = grep(($_ eq $d), @mods);
if (@matches) {
foreach $d (CPAN::Shell->expand("Module", $d)) {
print Dumper( $d->dslip_status );
}
}
Give the script a name and run it one module at a time.
CGI comes back as registered with a hashref, but MooseX::Declare simply returns {}.
Update: condensed version
#!/usr/bin/perl -l
use strict;
use warnings;
use CPAN;
use Data::Dumper::Concise;
my $d = shift @ARGV;
foreach $d (CPAN::Shell->expand("Module", $d)) {
print Dumper( $d->dslip_status );
}