Role-Tiny

 view release on metacpan or  search on metacpan

xt/dependents.t  view on Meta::CPAN

    if ($v || $line =~ /^Running / || $line =~ / --( NOT)? OK$/) {
      diag $line;
    }
  }
  close $out;
  waitpid $pid, 0;
  my $status = $?;
  return wantarray ? ($output, $status) : $output;
}

my $prefs = do {
  my $xt = sub {
    my ($dist, $extra) = @_;
    my $config = {
      %$extra,
      match => {
        distribution => $dist,
        env => { MOO_XT => 1 },
      },
      test => {
        args => [ 'TEST_FILES=t/*.t xt/*.t' ],

xt/dependents.t  view on Meta::CPAN

my @extra_libs = do {
  my @libs = `"$^X" -le"print for \@INC"`;
  chomp @libs;
  my %libs; @libs{@libs} = ();
  map { Cwd::abs_path($_) } grep { !exists $libs{$_} } @INC;
};

my $cpan_home = "$temp_home/.cpan";
mkdir $cpan_home;
mkdir "$cpan_home/CPAN";
my $prefs_dir = "$cpan_home/prefs";
mkdir $prefs_dir;

my $patch_dir = Cwd::realpath(File::Basename::dirname(__FILE__) . '/dependents');

delete $ENV{HARNESS_PERL_SWITCHES};
delete $ENV{AUTHOR_TESTING};
delete $ENV{EXTENDED_TESTING};
delete $ENV{RELEASE_TESTING};
$ENV{NONINTERACTIVE_TESTING}  = 1;
$ENV{PERL_MM_USE_DEFAULT}     = 1;
$ENV{HOME}                    = $temp_home;

xt/dependents.t  view on Meta::CPAN

    local $Data::Dumper::Sortkeys = 1;
    local $Data::Dumper::Indent = 1;
    Data::Dumper->Dump([{
      allow_installing_module_downgrades  => 'yes',
      allow_installing_outdated_dists     => 'yes',
      auto_commit                         => 0,
      build_requires_install_policy       => 'yes',
      connect_to_internet_ok              => 1,
      cpan_home                           => $cpan_home,
      inhibit_startup_message             => 1,
      prefs_dir                           => $prefs_dir,
      patches_dir                         => $patch_dir,
      prerequisites_policy                => 'follow',
      recommends_policy                   => 0,
      suggests_policy                     => 0,
      urllist                             => [ 'http://cpan.metacpan.org/' ],
      use_sqlite                          => 0,
    }], ['$CPAN::Config']);
  };
  print { $fh } $config . "1;\n__END__\n";
  close $fh;

xt/dependents.t  view on Meta::CPAN

  local $CPAN::Config;
  require $config_file;

  my $yaml = $CPAN::Config->{yaml_module};
  if ($yaml) {
    (my $mod = "$yaml.pm") =~ s{::}{/}g;
    eval { require $mod }
      or undef $yaml;
  }

  for my $dist (keys %$prefs) {
    my $prefs = $prefs->{$dist};

    if ($yaml) {
      open my $fh, '>', "$prefs_dir/$dist.yml";
      print { $fh } $yaml->can('Dump')->(@$prefs);
      close $fh;
    }

    local $Data::Dumper::Sortkeys = 1;
    local $Data::Dumper::Indent = 1;
    open my $fh, '>', "$prefs_dir/$dist.dd";
    print { $fh } Data::Dumper::Dumper(@$prefs);
    close $fh;
  }
}

my $ext = qr{\.(?:t(?:ar\.)?(?:bz2|xz|gz)|tar|zip)};
for my $dist (@dists) {
  my $name = $dist;
  $name =~ s{$ext$}{}
    if $name =~ m{/};