view release on metacpan or  search on metacpan

t/00signature.t  view on Meta::CPAN

        $found_prereq = eval { require Digest::SHA::PurePerl; 1 };
    }
    my $exit_message = "";
    unless ($found_prereq) {
        $exit_message = "None of the supported SHA modules (Digest::SHA,Digest::SHA1,Digest::SHA::PurePerl) found";
    }
    unless ($exit_message) {
        require Config;
        require CPAN::FirstTime;
        my @programs = qw(
                             gpg
                        );
        my $p;
        my(@path) = split /$Config::Config{path_sep}/, $ENV{PATH};
        require CPAN::FirstTime;
    PRG: for $p (@programs) {
            unless (CPAN::FirstTime::find_exe($p,\@path)){
                $exit_message = "External program '$p' not found";
                last PRG;
            }
        }