view release on metacpan or search on metacpan
lib/Alien/Bazel/Util.pm view on Meta::CPAN
# ABSTRACT: Private utilities for Alien
use File::Which qw(which);
use Path::Tiny qw(path);
use List::Util qw(first);
use Data::Dumper qw(Dumper);
use Capture::Tiny qw(capture_stdout);
use Config;
sub _is_valid_jdk {
my ($java_home) = @_;
view release on metacpan or search on metacpan
[RemovePrereqs]
remove = strict
remove = warnings
remove = base
remove = Data::Dumper
remove = Sort::Versions
[Prereqs / ConfigureRequires]
-phase = configure
File::Which = 0
view release on metacpan or search on metacpan
remove = strict
remove = warnings
remove = base
remove = lib
remove = File::Temp
remove = Data::Dumper
[Prereqs]
Alien::Build = 0.05
Module::Build = 0.37_01
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
BEGIN {
use strict; use warnings;
my %missing = map {
eval qq{ require $_ };
$@ ? ($_=>1) : ()
} qw( Data::Dumper File::Spec FindBin strict warnings );
if(%missing)
{
print "Your Perl is missing core modules: @{[ sort keys %missing ]}\n";
print "Ideally if you are using the system Perl you can install the appropriate\n";
print "package which includes the core Perl modules. On at least some versions\n";
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
BEGIN {
use strict; use warnings;
my %missing = map {
eval qq{ require $_ };
$@ ? ($_=>1) : ()
} qw( Carp Data::Dumper File::Temp strict warnings );
if(%missing)
{
print "Your Perl is missing core modules: @{[ sort keys %missing ]}\n";
print "Ideally if you are using the system Perl you can install the appropriate\n";
print "package which includes the core Perl modules. On at least some versions\n";
view release on metacpan or search on metacpan
corpus/lib/Alien/Foo1/ConfigData.pm view on Meta::CPAN
sub write {
my $me = __FILE__;
# Can't use Module::Build::Dumper here because M::B is only a
# build-time prereq of this module
require Data::Dumper;
my $mode_orig = (stat $me)[2] & 07777;
chmod($mode_orig | 0222, $me); # Make it writeable
open(my $fh, '+<', $me) or die "Can't rewrite $me: $!";
seek($fh, 0, 0);
corpus/lib/Alien/Foo1/ConfigData.pm view on Meta::CPAN
die "Couldn't find __DATA__ token in $me" if eof($fh);
seek($fh, tell($fh), 0);
my $data = [$config, $features, $auto_features];
print($fh 'do{ my '
. Data::Dumper->new([$data],['x'])->Purity(1)->Dump()
. '$x; }' );
truncate($fh, tell($fh));
close $fh;
chmod($mode_orig, $me)
corpus/lib/Alien/Foo1/ConfigData.pm view on Meta::CPAN
return $features->{$key} if exists $features->{$key};
my $info = $auto_features->{$key} or return 0;
# Under perl 5.005, each(%$foo) isn't working correctly when $foo
# was reanimated with Data::Dumper and eval(). Not sure why, but
# copying to a new hash seems to solve it.
my %info = %$info;
require Module::Build; # XXX should get rid of this
while (my ($type, $prereqs) = each %info) {
view release on metacpan or search on metacpan
use Test::More;
use blib;
use Data::Dumper;
use_ok 'Alien::Capstone';
my $capstone = new_ok('Alien::Capstone');
note $capstone->cflags;
note $capstone->libs;
note Alien::Capstone::ConfigData->config('finished_installing');
view release on metacpan or search on metacpan
t/01-load-all.t view on Meta::CPAN
#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dumper;
use DBI;
use File::Find;
use DBD::SQLite::BundledExtensions;
use Alien::DBD::SQLite::BundledExtensions;
view release on metacpan or search on metacpan
use ExtUtils::Depends;
use Data::Dumper qw(Dumper);
use IO::All;
use File::Spec;
use ExtUtils::PkgConfig;
my %gimpcfg = ExtUtils::PkgConfig->find("gimp-2.0");
view release on metacpan or search on metacpan
}
},
"test" : {
"requires" : {
"Capture::Tiny" : "0",
"Data::Dumper" : "0",
"Test::More" : "0"
}
}
},
"provides" : {
view release on metacpan or search on metacpan
lib/Alien/HDF4.pm.PL view on Meta::CPAN
#!perl -w
use strict;
use warnings;
use Data::Dumper;
require './common.pl';
my $version = get_version();
my $config_hash = get_build();
view release on metacpan or search on metacpan
t/01-info.t view on Meta::CPAN
#!perl
use Test::More tests => 2;
use Data::Dumper;
use_ok( 'Alien::IUP' );
use_ok( 'Alien::IUP::ConfigData' );
diag "This test shows misc debug info";
view release on metacpan or search on metacpan
t/10-Alien-InteractiveBrokers.t view on Meta::CPAN
# Alien::InteractiveBrokers - tests for main module
#
# Copyright (c) 2010-2012 Jason McManus
#
use Data::Dumper;
use File::Spec::Functions qw( catdir catfile );
use Test::More tests => 12;
use strict;
use warnings;
view release on metacpan or search on metacpan
t/02_stub.t view on Meta::CPAN
our $VERSION = 0.001_000;
use Test2::V0;
use Test::Alien;
use Alien::JPCRE2;
use Data::Dumper; # DEBUG
plan(1);
# load alien
alien_ok('Alien::JPCRE2', 'Alien::JPCRE2 loads successfully and conforms to Alien::Base specifications');
view release on metacpan or search on metacpan
.claude/skills/getty-perl-core/SKILL.md view on Meta::CPAN
- **Skip pure dev-tooling noise** — skill hardlinks, editor config, internal CI refactors. A CI fix that unbreaks the build for everyone IS worth a line.
- **Never hand-edit the version line or timestamp** — `[NextRelease]` owns those.
## Forbidden
⌠`require Foo` inside a method to "speed up startup" · ⌠a Getty repo's `$VERSION` as a cpanfile requirement · ⌠`'0'` or `'>= x'` as a version argument · ⌠`default => sub {...}` for a non-trivial attribute default · ⌠4-space indent ...
## When in doubt
Grep hand-written Getty code for how the pattern is used there — the reference is an older repo with no AI commits in its history. Newer repos may show an agent's guess rather than the house rule.
view release on metacpan or search on metacpan
patch/gen.pl view on Meta::CPAN
use strict;
use warnings;
use Data::Dumper qw( Dumper );
use Path::Tiny qw( path );
my $patch_filename = shift @ARGV;
die "need filename" unless defined $patch_filename;
view release on metacpan or search on metacpan
"test" : {
"recommends" : {
"CPAN::Meta" : "2.120900"
},
"requires" : {
"Data::Dumper" : "0",
"ExtUtils::MakeMaker" : "6.52",
"File::Spec" : "0",
"Test2::V0" : "0",
"Test::Alien" : "0",
"Test::Alien::Diag" : "0",
view release on metacpan or search on metacpan
t/01-config.t view on Meta::CPAN
use strict;
use warnings;
use Test::More;
use Data::Dumper;
BEGIN { use_ok( 'Alien::NSS::ConfigData' ); }
my $type = Alien::NSS::ConfigData->config('install_type');
if ( $type eq 'system' ) {
view release on metacpan or search on metacpan
}
},
"test" : {
"requires" : {
"Capture::Tiny" : "0",
"Data::Dumper" : "0",
"English" : "0",
"Env" : "0",
"File::Spec" : "0",
"IPC::Cmd" : "0",
"Test2::V0" : "0",
view release on metacpan or search on metacpan
t/04_binary_version_test2.t view on Meta::CPAN
use Test2::V0;
use Test::Alien;
use Alien::Pluto;
use English qw(-no_match_vars); # for $OSNAME
use Data::Dumper; # DEBUG
plan(8);
# load alien
alien_ok('Alien::Pluto', 'Alien::Pluto loads successfully and conforms to Alien::Base specifications');
view release on metacpan or search on metacpan
inc/inc_Module-Build/Module/Build/Compat.pm view on Meta::CPAN
use IO::File;
use Config;
use Module::Build;
use Module::Build::ModuleInfo;
use Module::Build::Version;
use Data::Dumper;
my %convert_installdirs = (
PERL => 'core',
SITE => 'site',
VENDOR => 'vendor',
inc/inc_Module-Build/Module/Build/Compat.pm view on Meta::CPAN
if ($build->recursive_test_files) {
$MM_Args{test} = { TESTS => join q{ }, $package->_test_globs($build) };
}
local $Data::Dumper::Terse = 1;
my $args = Data::Dumper::Dumper(\%MM_Args);
$args =~ s/\{(.*)\}/($1)/s;
print $fh <<"EOF";
use ExtUtils::MakeMaker;
WriteMakefile
view release on metacpan or search on metacpan
"warnings" : "0"
}
},
"test" : {
"requires" : {
"Data::Dumper" : "0",
"Path::Tiny" : "0",
"Test2::V0" : "0",
"Test::Alien" : "0",
"Test::Alien::Diag" : "0",
"perl" : "5.006"
view release on metacpan or search on metacpan
inc/Text/Patch.pm view on Meta::CPAN
push @hunks, { %hunk }; # push last hunk
shift @hunks; # first is always empty
for my $hunk ( reverse @hunks )
{
#use Data::Dumper;
#print STDERR Dumper( $hunk );
my @pdata;
for( @{ $hunk->{ DATA } } )
{
next unless s/^([ \-\+])//;
view release on metacpan or search on metacpan
t/04_binary_version_test2.t view on Meta::CPAN
use Test2::V0;
use Test::Alien;
use Alien::Texinfo;
use English qw(-no_match_vars); # for $OSNAME
use Data::Dumper; # DEBUG
plan(5);
# load alien
alien_ok('Alien::Texinfo', 'Alien::Texinfo loads successfully and conforms to Alien::Base specifications');
view release on metacpan or search on metacpan
use Test::More;
use blib;
use Data::Dumper;
use_ok 'Alien::UnicornEngine';
my $unicorn = new_ok('Alien::UnicornEngine');
note $unicorn->cflags;
note $unicorn->libs;
note Alien::UnicornEngine::ConfigData->config('finished_installing');
view release on metacpan or search on metacpan
inc/inc_Module-Build/Module/Build/Compat.pm view on Meta::CPAN
use IO::File;
use Config;
use Module::Build;
use Module::Build::ModuleInfo;
use Module::Build::Version;
use Data::Dumper;
my %convert_installdirs = (
PERL => 'core',
SITE => 'site',
VENDOR => 'vendor',
inc/inc_Module-Build/Module/Build/Compat.pm view on Meta::CPAN
if ($build->recursive_test_files) {
$MM_Args{test} = { TESTS => join q{ }, $package->_test_globs($build) };
}
local $Data::Dumper::Terse = 1;
my $args = Data::Dumper::Dumper(\%MM_Args);
$args =~ s/\{(.*)\}/($1)/s;
print $fh <<"EOF";
use ExtUtils::MakeMaker;
WriteMakefile
view release on metacpan or search on metacpan
"configure" : {
"requires" : {
"Archive::Tar" : "0",
"CPAN::Meta" : "0",
"Capture::Tiny" : "0",
"Data::Dumper" : "0",
"Exporter" : "5.57",
"ExtUtils::Helpers" : "0.028",
"ExtUtils::Install" : "0",
"ExtUtils::InstallPaths" : "0.002",
"File::Basename" : "0",
view release on metacpan or search on metacpan
inc/My/ModuleBuild.pm view on Meta::CPAN
use Alien::Base::ModuleBuild;
use base qw( Alien::Base::ModuleBuild );
use File::chdir;
use Capture::Tiny qw( capture_merged );
use Data::Dumper;
use IPC::Cmd qw(can_run);
use English qw(-no_match_vars); # for $CHILD_ERROR & $OSNAME
use Env qw( @PATH );
sub alien_check_installed_version {
view release on metacpan or search on metacpan
.claude/skills/getty-perl-core/SKILL.md view on Meta::CPAN
- **Skip pure dev-tooling noise** — skill hardlinks, editor config, internal CI refactors. A CI fix that unbreaks the build for everyone IS worth a line.
- **Never hand-edit the version line or timestamp** — `[NextRelease]` owns those.
## Forbidden
⌠`require Foo` inside a method to "speed up startup" · ⌠a Getty repo's `$VERSION` as a cpanfile requirement · ⌠`'0'` or `'>= x'` as a version argument · ⌠`default => sub {...}` for a non-trivial attribute default · ⌠4-space indent ...
## When in doubt
Grep hand-written Getty code for how the pattern is used there — the reference is an older repo with no AI commits in its history. Newer repos may show an agent's guess rather than the house rule.
view release on metacpan or search on metacpan
EO_SNAPPY_VERSION
);
meta->after_hook( probe_system => sub {
my ($build) = @_;
use Data::Dumper;
print Dumper($build);
#$build->runtime_prop->{$flag} = '-Wl,-rpath,/usr/pkg/lib ' . $build->runtime_prop->{$flag};
});
after 'gather' => sub {
my ($build) = @_;
use Data::Dumper; CORE::say Dumper($build);
};
share {
# The tarball from the 1.1.8 release and the 1.1.8 tag produce different
# libraries -- and from some preliminary testing, the tarball version isn't