view release on metacpan or  search on metacpan

lib/CPAN/Testers/ParseReport.pm  view on Meta::CPAN

948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
    $diag .= " $want\[$have]";
}
printf STDERR " %-4s %8s%s\n", $extract{"meta:ok"}, $id, $diag unless $Opt{quiet};
if ($Opt{raw}) {
    $report =~ s/\s+\z//;
    print STDERR $report, "\n================\n" unless $Opt{quiet};
}
if ($Opt{interactive}) {
    eval { require IO::Prompt; 1; } or
        die "Option '--interactive' requires IO::Prompt installed";
    local @ARGV;
    local $ARGV;
    my $ans = IO::Prompt::prompt
        (
         -p => "View $id? [onechar: ynq] ",
         -d => "y",
         -u => qr/[ynq]/,
         -onechar,
        );
    print STDERR "\n" unless $Opt{quiet};
    if ($ans eq "y") {