view release on metacpan or search on metacpan
t/00-report-prereqs.t view on Meta::CPAN
$static_prereqs
);
# Add dynamic prereqs to the included modules list (if we can)
my ($source) = grep { -f } 'MYMETA.json', 'MYMETA.yml';
my $cpan_meta_error;
if ( $source && $HAS_CPAN_META
&& (my $meta = eval { CPAN::Meta->load_file($source) } )
) {
$full_prereqs = _merge_prereqs($full_prereqs, $meta->prereqs);
}
else {
$cpan_meta_error = $@; # capture error from CPAN::Meta->load_file($source)
$source = 'static metadata';
}
my @full_reports;
my @dep_errors;
my $req_hash = $HAS_CPAN_META ? $full_prereqs->as_string_hash : $full_prereqs;
# Add static includes into a fake section
for my $mod (@include) {
$req_hash->{other}{modules}{$mod} = 0;
t/00-report-prereqs.t view on Meta::CPAN
$have = "undef" unless defined $have;
push @reports, [$mod, $want, $have];
if ( $DO_VERIFY_PREREQS && $HAS_CPAN_META && $type eq 'requires' ) {
if ( $have !~ /\A$lax_version_re\z/ ) {
push @dep_errors, "$mod version '$have' cannot be parsed ($req_string)";
}
elsif ( ! $full_prereqs->requirements_for( $phase, $type )->accepts_module( $mod => $have ) ) {
push @dep_errors, "$mod version '$have' is not in required range '$want'";
}
}
}
else {
push @reports, [$mod, $want, "missing"];
if ( $DO_VERIFY_PREREQS && $type eq 'requires' ) {
push @dep_errors, "$mod is not installed ($req_string)";
}
}
}
if ( @reports ) {
t/00-report-prereqs.t view on Meta::CPAN
if ( @full_reports ) {
diag "\nVersions for all modules listed in $source (including optional ones):\n\n", @full_reports;
}
if ( $cpan_meta_error || @dep_errors ) {
diag "\n*** WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING ***\n";
}
if ( $cpan_meta_error ) {
my ($orig_source) = grep { -f } 'MYMETA.json', 'MYMETA.yml';
diag "\nCPAN::Meta->load_file('$orig_source') failed with: $cpan_meta_error\n";
}
if ( @dep_errors ) {
diag join("\n",
"\nThe following REQUIRED prerequisites were not satisfied:\n",
@dep_errors,
"\n"
);
}
pass('Reported prereqs');
view all matches for this distribution
view release on metacpan or search on metacpan
t/00-report-prereqs.t view on Meta::CPAN
$static_prereqs
);
# Add dynamic prereqs to the included modules list (if we can)
my ($source) = grep { -f } 'MYMETA.json', 'MYMETA.yml';
my $cpan_meta_error;
if ( $source && $HAS_CPAN_META
&& (my $meta = eval { CPAN::Meta->load_file($source) } )
) {
$full_prereqs = _merge_prereqs($full_prereqs, $meta->prereqs);
}
else {
$cpan_meta_error = $@; # capture error from CPAN::Meta->load_file($source)
$source = 'static metadata';
}
my @full_reports;
my @dep_errors;
my $req_hash = $HAS_CPAN_META ? $full_prereqs->as_string_hash : $full_prereqs;
# Add static includes into a fake section
for my $mod (@include) {
$req_hash->{other}{modules}{$mod} = 0;
t/00-report-prereqs.t view on Meta::CPAN
$have = "undef" unless defined $have;
push @reports, [$mod, $want, $have];
if ( $DO_VERIFY_PREREQS && $HAS_CPAN_META && $type eq 'requires' ) {
if ( $have !~ /\A$lax_version_re\z/ ) {
push @dep_errors, "$mod version '$have' cannot be parsed ($req_string)";
}
elsif ( ! $full_prereqs->requirements_for( $phase, $type )->accepts_module( $mod => $have ) ) {
push @dep_errors, "$mod version '$have' is not in required range '$want'";
}
}
}
else {
push @reports, [$mod, $want, "missing"];
if ( $DO_VERIFY_PREREQS && $type eq 'requires' ) {
push @dep_errors, "$mod is not installed ($req_string)";
}
}
}
if ( @reports ) {
t/00-report-prereqs.t view on Meta::CPAN
if ( @full_reports ) {
diag "\nVersions for all modules listed in $source (including optional ones):\n\n", @full_reports;
}
if ( $cpan_meta_error || @dep_errors ) {
diag "\n*** WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING ***\n";
}
if ( $cpan_meta_error ) {
my ($orig_source) = grep { -f } 'MYMETA.json', 'MYMETA.yml';
diag "\nCPAN::Meta->load_file('$orig_source') failed with: $cpan_meta_error\n";
}
if ( @dep_errors ) {
diag join("\n",
"\nThe following REQUIRED prerequisites were not satisfied:\n",
@dep_errors,
"\n"
);
}
pass('Reported prereqs');
view all matches for this distribution
view release on metacpan or search on metacpan
inc/My/Builder.pm view on Meta::CPAN
if (lc($unpack) eq 'y') {
$self->clean_dir($srcdir);
my $archive = catfile($download, File::Fetch->new(uri => $bp->{url})->file);
print "Extracting sources...\n";
my $ae = Archive::Extract->new( archive => $archive );
die "###ERROR###: cannot extract $bp ", $ae->error unless $ae->extract(to => $build_src);
$self->apply_patch($build_src, $_) foreach (@{$bp->{patches}});
}
return 1;
}
view all matches for this distribution
view release on metacpan or search on metacpan
t/00-report-prereqs.t view on Meta::CPAN
$static_prereqs
);
# Add dynamic prereqs to the included modules list (if we can)
my ($source) = grep { -f } 'MYMETA.json', 'MYMETA.yml';
my $cpan_meta_error;
if ( $source && $HAS_CPAN_META
&& (my $meta = eval { CPAN::Meta->load_file($source) } )
) {
$full_prereqs = _merge_prereqs($full_prereqs, $meta->prereqs);
}
else {
$cpan_meta_error = $@; # capture error from CPAN::Meta->load_file($source)
$source = 'static metadata';
}
my @full_reports;
my @dep_errors;
my $req_hash = $HAS_CPAN_META ? $full_prereqs->as_string_hash : $full_prereqs;
# Add static includes into a fake section
for my $mod (@include) {
$req_hash->{other}{modules}{$mod} = 0;
t/00-report-prereqs.t view on Meta::CPAN
$have = "undef" unless defined $have;
push @reports, [$mod, $want, $have];
if ( $DO_VERIFY_PREREQS && $HAS_CPAN_META && $type eq 'requires' ) {
if ( $have !~ /\A$lax_version_re\z/ ) {
push @dep_errors, "$mod version '$have' cannot be parsed ($req_string)";
}
elsif ( ! $full_prereqs->requirements_for( $phase, $type )->accepts_module( $mod => $have ) ) {
push @dep_errors, "$mod version '$have' is not in required range '$want'";
}
}
}
else {
push @reports, [$mod, $want, "missing"];
if ( $DO_VERIFY_PREREQS && $type eq 'requires' ) {
push @dep_errors, "$mod is not installed ($req_string)";
}
}
}
if ( @reports ) {
t/00-report-prereqs.t view on Meta::CPAN
if ( @full_reports ) {
diag "\nVersions for all modules listed in $source (including optional ones):\n\n", @full_reports;
}
if ( $cpan_meta_error || @dep_errors ) {
diag "\n*** WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING ***\n";
}
if ( $cpan_meta_error ) {
my ($orig_source) = grep { -f } 'MYMETA.json', 'MYMETA.yml';
diag "\nCPAN::Meta->load_file('$orig_source') failed with: $cpan_meta_error\n";
}
if ( @dep_errors ) {
diag join("\n",
"\nThe following REQUIRED prerequisites were not satisfied:\n",
@dep_errors,
"\n"
);
}
pass('Reported prereqs');
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Alien/Build/Git.pm view on Meta::CPAN
See the synopsis above and the modules in the SEE ALSO section below. To decide
which you need.
Also please carefully consider NOT using one of these modules. If you can,
using http or ftp to download your target project will probably require fewer
and less error-prone dependencies.
=head1 SEE ALSO
=over 4
view all matches for this distribution
view release on metacpan or search on metacpan
t/alien_build_mb.t view on Meta::CPAN
is($download->slurp, 'testdata', 'fake tar faile has content');
};
subtest 'build' => sub {
my($out, $error) = capture_merged {
eval { $abmb->ACTION_alien_build };
$@;
};
is($error, '', 'build did not error ') || do {
diag Dumper($abmb->alien_build);
return;
};
my $build = $abmb->alien_build(1);
view all matches for this distribution
view release on metacpan or search on metacpan
# I just want a test that checks that the modules
# will compile okay. I won't be trying to use them.
my($mod) = @_;
my $ctx = context();
eval qq{ require $mod };
my $error = $@;
my $ok = !$error;
$ctx->ok($ok, "require $mod");
$ctx->diag("error: $error") if $error ne '';
$ctx->release;
}
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Alien/Build/Plugin/Build/Premake5.pm view on Meta::CPAN
=over 4
=item B<fatal>
Treat warnings from project scripts as errors.
=item B<insecure>
Forfeit SSH certification checks.
view all matches for this distribution
view release on metacpan or search on metacpan
# I just want a test that checks that the modules
# will compile okay. I won't be trying to use them.
my($mod) = @_;
my $ctx = context();
eval qq{ require $mod };
my $error = $@;
my $ok = !$error;
$ctx->ok($ok, "require $mod");
$ctx->diag("error: $error") if $error ne '';
$ctx->release;
}
view all matches for this distribution
view release on metacpan or search on metacpan
# I just want a test that checks that the modules
# will compile okay. I won't be trying to use them.
my($mod) = @_;
my $ctx = context();
eval qq{ require $mod };
my $error = $@;
my $ok = !$error;
$ctx->ok($ok, "require $mod");
$ctx->diag("error: $error") if $error ne '';
$ctx->release;
}
view all matches for this distribution
view release on metacpan or search on metacpan
# I just want a test that checks that the modules
# will compile okay. I won't be trying to use them.
my($mod) = @_;
my $ctx = context();
eval qq{ require $mod };
my $error = $@;
my $ok = !$error;
$ctx->ok($ok, "require $mod");
$ctx->diag("error: $error") if $error ne '';
$ctx->release;
}
view all matches for this distribution
view release on metacpan or search on metacpan
# I just want a test that checks that the modules
# will compile okay. I won't be trying to use them.
my($mod) = @_;
my $ctx = context();
eval qq{ require $mod };
my $error = $@;
my $ok = !$error;
$ctx->ok($ok, "require $mod");
$ctx->diag("error: $error") if $error ne '';
$ctx->release;
}
view all matches for this distribution
view release on metacpan or search on metacpan
# I just want a test that checks that the modules
# will compile okay. I won't be trying to use them.
my($mod) = @_;
my $ctx = context();
eval qq{ require $mod };
my $error = $@;
my $ok = !$error;
$ctx->ok($ok, "require $mod");
$ctx->diag("error: $error") if $error ne '';
$ctx->release;
}
view all matches for this distribution
view release on metacpan or search on metacpan
# I just want a test that checks that the modules
# will compile okay. I won't be trying to use them.
my($mod) = @_;
my $ctx = context();
eval qq{ require $mod };
my $error = $@;
my $ok = !$error;
$ctx->ok($ok, "require $mod");
$ctx->diag("error: $error") if $error ne '';
$ctx->release;
}
view all matches for this distribution
view release on metacpan or search on metacpan
# I just want a test that checks that the modules
# will compile okay. I won't be trying to use them.
my($mod) = @_;
my $ctx = context();
eval qq{ require $mod };
my $error = $@;
my $ok = !$error;
$ctx->ok($ok, "require $mod");
$ctx->diag("error: $error") if $error ne '';
$ctx->release;
}
view all matches for this distribution
view release on metacpan or search on metacpan
# I just want a test that checks that the modules
# will compile okay. I won't be trying to use them.
my($mod) = @_;
my $ctx = context();
eval qq{ require $mod };
my $error = $@;
my $ok = !$error;
$ctx->ok($ok, "require $mod");
$ctx->diag("error: $error") if $error ne '';
$ctx->release;
}
view all matches for this distribution
view release on metacpan or search on metacpan
# I just want a test that checks that the modules
# will compile okay. I won't be trying to use them.
my($mod) = @_;
my $ctx = context();
eval qq{ require $mod };
my $error = $@;
my $ok = !$error;
$ctx->ok($ok, "require $mod");
$ctx->diag("error: $error") if $error ne '';
$ctx->release;
}
view all matches for this distribution
view release on metacpan or search on metacpan
# I just want a test that checks that the modules
# will compile okay. I won't be trying to use them.
my($mod) = @_;
my $ctx = context();
eval qq{ require $mod };
my $error = $@;
my $ok = !$error;
$ctx->ok($ok, "require $mod");
$ctx->diag("error: $error") if $error ne '';
$ctx->release;
}
view all matches for this distribution
view release on metacpan or search on metacpan
inc/probebad.pl view on Meta::CPAN
# probebad.pl: this is intended to be run by Makefile.PL to find FAIL reports
# that commonly come from cpantesters, but are in fact the result of badly
# configured environments. Usually I try to contact the testers in quesion,
# but sometimes they are either unable or unwilling to respond, and I don't
# want to waste my time re-diagnosing the same errors.
{ # /tmp check
my $dir = eval { tempdir( CLEANUP => 1 ) };
if($@)
{
inc/probebad.pl view on Meta::CPAN
versioncheck => 0,
prototypes => 0,
);
};
if(my $error = $@)
{
print "Configuration unsupported\n";
print "You appear to have a C compiler, but I am unable to process a\n";
print "trivial XS file, errored with:\n";
print "$error\n";
exit;
}
if($pxs->report_error_count != 0)
{
print "Configuration unsupported\n";
print "You appear to have a C compiler, but there were errors processing\n";
print "a trivial XS file.\n";
exit;
}
my($cc_out, $obj, $cc_exception) = capture_merged(
inc/probebad.pl view on Meta::CPAN
);
if(! $obj)
{
print "Configuration unsupported\n";
print "You appear to have a C compiler, but there were errors processing\n";
print "the C file generated from a trivial XS file.\n";
if($cc_exception)
{
print "Exception:\n";
print "$cc_exception\n";
view all matches for this distribution