view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

  "Acme::CPANAuthors::Register" => 0,
  "File::Spec" => 0,
  "IO::Handle" => 0,
  "IPC::Open3" => 0,
  "Test::More" => 0,
  "strict" => 0,
  "warnings" => 0
);


unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
  delete $WriteMakefileArgs{TEST_REQUIRES};
  delete $WriteMakefileArgs{BUILD_REQUIRES};
  $WriteMakefileArgs{PREREQ_PM} = \%FallbackPrereqs;
}

delete $WriteMakefileArgs{CONFIGURE_REQUIRES}
  unless eval { ExtUtils::MakeMaker->VERSION(6.52) };

WriteMakefile(%WriteMakefileArgs);

devscript/update-data  view on Meta::CPAN

        require Acme::CPANAuthors;
      MOD:
        for my $mod (@modules) {
            log_debug "Processing module $mod ...";
            (my $ac_mod = $mod) =~ s/^Acme::CPANAuthors:://;
            if (grep { $_ eq $ac_mod } @skiplist) {
                log_info "Skipped list $ac_mod";
                next MOD;
            }
            my @authors;
            eval { (my $mod_pm = "$mod.pm") =~ s!::!/!g; require $mod_pm; my %authors = $mod->authors; @authors = sort keys %authors };
            if ($@) {
                log_warn "Can't extract authors from list $ac_mod: $@, skipped";
                next MOD;
            }
            $all_authors{$ac_mod} = \@authors;
        }
    } # LIST_AUTHORS

    my %author_lists; # key=author, val=[list1, ...]
  COUNT: {

t/00-compile.t  view on Meta::CPAN

            $^X, @switches, '-e', "require q[$lib]"))
        if $ENV{PERL_COMPILE_TEST_DEBUG};

    my $pid = open3($stdin, '>&STDERR', $stderr, $^X, @switches, '-e', "require q[$lib]");
    binmode $stderr, ':crlf' if $^O eq 'MSWin32';
    my @_warnings = <$stderr>;
    waitpid($pid, 0);
    is($?, 0, "$lib loaded ok");

    shift @_warnings if @_warnings and $_warnings[0] =~ /^Using .*\bblib/
        and not eval { +require blib; blib->VERSION('1.01') };

    if (@_warnings)
    {
        warn @_warnings;
        push @warnings, @_warnings;
    }
}