view release on metacpan or  search on metacpan

ThrustModuleBuild.pm  view on Meta::CPAN

      require LWP::UserAgent;

      my $ua = new LWP::UserAgent;
      my $res = $ua->get($thrust_zipfile_url, ':content_file' => "$thrust_archive.partial");

      if (!$res->is_success) {
        die "Failed to download $thrust_zipfile_url : " . $res->status_line;
      }
    }

    rename("$thrust_archive.partial", $thrust_archive) || die "unable to rename $thrust_archive.partial to $thrust_archive ($!)";
  }
}



sub extract_zip_file {
  my $self = shift;

  system("mkdir -p blib/lib/auto/share/dist/Alien-Thrust/"); ## FIXME: portability