view release on metacpan or  search on metacpan

cpanflute2  view on Meta::CPAN

if (my @files = Archive::Tar->list_archive("$tmpdir/$tarball")) {
  $use_module_build = 1 if grep { /Build\.PL$/ } @files;

  if (not exists $options{noarch}) {
    $noarch = 1;
    $noarch = 0 if grep { /\.(xs|c|cc|C)$/ } @files;
  }

  my %prefixes;
  foreach (@files) {
    my @path_components = split m[/], $_;
    $prefixes{$path_components[0]}++;

    if ($path_components[-1] eq 'META.yml') {
      my $tar = new Archive::Tar;
      $tar->read("$tmpdir/$tarball", 1);
      my $contents = $tar->get_content($_);
      my $yaml = Load($contents);

      while (my ($mod, $ver) = each %{$yaml->{build_requires}}) {
	push @build_requires, [ "perl($mod)", $ver ];

cpanflute2-old  view on Meta::CPAN

if (my @files = Archive::Tar->list_archive("$tmpdir/$tarball")) {
  $use_module_build = 1 if grep { /Build\.PL$/ } @files;

  if (not exists $options{noarch}) {
    $noarch = 1;
    $noarch = 0 if grep { /\.(xs|c|cc|C)$/ } @files;
  }

  my %prefixes;
  foreach (@files) {
    my @path_components = split m[/], $_;
    $prefixes{$path_components[0]}++;

    # find docs
    if (m,^${name}-${ver}/(
          authors?|
          change(log|s)|
          credits|
          copy(ing|right)|
          licen[cs]e|
          readme|