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
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
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
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
view release on metacpan or search on metacpan
t/00_diag.t view on Meta::CPAN
use Test2::V0 -no_srand => 1;
use Alien::pkgconf;
use Data::Dumper qw( Dumper );
diag '';
diag '';
diag '';
view release on metacpan or search on metacpan
inc/My/Build/Base.pm view on Meta::CPAN
use My::Build::Utility qw(awx_arch_file awx_touch);
use Alien::wxWidgets::Utility qw(awx_sort_config awx_grep_config);
use File::Path ();
use File::Basename ();
use Fatal qw(open close unlink);
use Data::Dumper;
use File::Glob qw(bsd_glob);
use Carp;
use lib '.';
# Ensure deterministic output
$Data::Dumper::Sortkeys = 1;
# use the system version of a module if present; in theory this could lead to
# compatibility problems (if the latest version of one of the dependencies,
# installed in @INC is incompatible with the bundled version of a module)
sub _load_bundled_modules {
inc/My/Build/Base.pm view on Meta::CPAN
my $directory = File::Basename::dirname( $file );
my %config = $self->_init_config;
my $base = $self->awx_key;
my $body = Data::Dumper->Dump( [ \%config ] );
$body =~ s/rEpLaCe/$base/g;
File::Path::mkpath( $directory ) or die "mkpath '$directory': $!"
unless -d $directory;
open my $fh, '> ' . File::Spec->catfile( $directory, $base . '.pm' );
view release on metacpan or search on metacpan
lib/Aliyun.pm view on Meta::CPAN
use Aliyun::AuthV2;
use Aliyun::Request;
use Aliyun::Method::FcSmsNumSend;
use Aliyun::Method::FcIotQrycard;
use Data::Dumper qw/Dumper/;
my $auth = Aliyun::AuthV2->new();
$auth->set_appkey('ä½ è‡ªå·±çš„key');
$auth->set_secretkey('ä½ è‡ªå·±çš„ç§˜é’¥');
view release on metacpan or search on metacpan
lib/App/AllKnowingDNS/Config.pm view on Meta::CPAN
package App::AllKnowingDNS::Config;
use Mouse;
use App::AllKnowingDNS::Zone;
use App::AllKnowingDNS::Util;
use Data::Dumper;
=head1 NAME
App::AllKnowingDNS::Config - configuration object
view release on metacpan or search on metacpan
inc/Inline/C.pm view on Meta::CPAN
package Inline::C;
our $VERSION = '0.67';
use Inline 0.56;
use Config;
use Data::Dumper;
use Carp;
use Cwd qw(cwd abs_path);
use File::Spec;
use Fcntl ':flock';
inc/Inline/C.pm view on Meta::CPAN
print MF <<END;
use ExtUtils::MakeMaker;
my %options = %\{
END
local $Data::Dumper::Terse = 1;
local $Data::Dumper::Indent = 1;
print MF Data::Dumper::Dumper(\ %options);
print MF <<END;
\};
WriteMakefile(\%options);
view release on metacpan or search on metacpan
inc/Inline/C.pm view on Meta::CPAN
package Inline::C;
our $VERSION = '0.68';
use Inline 0.56;
use Config;
use Data::Dumper;
use Carp;
use Cwd qw(cwd abs_path);
use File::Spec;
use Fcntl ':flock';
inc/Inline/C.pm view on Meta::CPAN
print MF <<END;
use ExtUtils::MakeMaker;
my %options = %\{
END
local $Data::Dumper::Terse = 1;
local $Data::Dumper::Indent = 1;
print MF Data::Dumper::Dumper(\ %options);
print MF <<END;
\};
WriteMakefile(\%options);
view release on metacpan or search on metacpan
inc/Inline/C.pm view on Meta::CPAN
package Inline::C;
our $VERSION = '0.68';
use Inline 0.56;
use Config;
use Data::Dumper;
use Carp;
use Cwd qw(cwd abs_path);
use File::Spec;
use Fcntl ':flock';
inc/Inline/C.pm view on Meta::CPAN
print MF <<END;
use ExtUtils::MakeMaker;
my %options = %\{
END
local $Data::Dumper::Terse = 1;
local $Data::Dumper::Indent = 1;
print MF Data::Dumper::Dumper(\ %options);
print MF <<END;
\};
WriteMakefile(\%options);
view release on metacpan or search on metacpan
lib/CPAN/Uploader.pm view on Meta::CPAN
if not (ref $self) and not $arg;
$self = $self->new($arg) if $arg;
if ($arg->{dry_run}) {
require Data::Dumper;
$self->log("By request, cowardly refusing to do anything at all.");
$self->log(
"The following arguments would have been used to upload: \n"
. '$self: ' . Data::Dumper::Dumper($self)
. '$file: ' . Data::Dumper::Dumper($file)
);
} else {
$self->_upload($file);
}
}
view release on metacpan or search on metacpan
},
"test" : {
"requires" : {
"Crypt::OpenSSL::Guess" : "0.11",
"Crypt::OpenSSL::PKCS10" : "0",
"Data::Dumper" : "0",
"Digest::SHA" : "0",
"File::Spec::Functions" : "0",
"Test::More" : "0"
}
}
view release on metacpan or search on metacpan
lib/Crypt/RSA/Key/Private.pm view on Meta::CPAN
## it under the same terms as Perl itself.
use vars qw($AUTOLOAD $VERSION);
use base 'Crypt::RSA::Errorhandler';
use Tie::EncryptedHash;
use Data::Dumper;
use Math::BigInt try => 'GMP, Pari';
use Math::Prime::Util qw/is_prime/;
use Carp;
$Crypt::RSA::Key::Private::VERSION = '1.99';
lib/Crypt/RSA/Key/Private.pm view on Meta::CPAN
C<Filename> into the object. If C<Password> is provided, the
method automatically calls reveal() to decrypt the key.
=item B<serialize()>
Creates a Data::Dumper(3) serialization of the private key and
returns the string representation.
=item B<deserialize()>
Accepts a serialized key under the C<String> parameter and
view release on metacpan or search on metacpan
inc/Inline/C.pm view on Meta::CPAN
package Inline::C;
our $VERSION = '0.71';
use Inline 0.56;
use Config;
use Data::Dumper;
use Carp;
use Cwd qw(cwd abs_path);
use File::Spec;
use constant IS_WIN32 => $^O eq 'MSWin32';
use if !IS_WIN32, Fcntl => ':flock';
inc/Inline/C.pm view on Meta::CPAN
print MF <<END;
use ExtUtils::MakeMaker;
my %options = %\{
END
local $Data::Dumper::Terse = 1;
local $Data::Dumper::Indent = 1;
print MF Data::Dumper::Dumper(\ %options);
print MF <<END;
\};
WriteMakefile(\%options);
view release on metacpan or search on metacpan
inc/Pegex/Compiler.pm view on Meta::CPAN
return JSON::XS->new->utf8->canonical->pretty->encode($self->tree);
}
sub to_perl {
my $self = shift;
require Data::Dumper;
no warnings 'once';
$Data::Dumper::Terse = 1;
$Data::Dumper::Indent = 1;
$Data::Dumper::Sortkeys = 1;
my $perl = Data::Dumper::Dumper($self->tree);
$perl =~ s/\?\^:/?-xism:/g;
$perl =~ s!(\.rgx.*?qr/)\(\?-xism:(.*)\)(?=/)!$1$2!g;
die "to_perl failed with non compatible regex in:\n$perl"
if $perl =~ /\?\^/;
return $perl;
view release on metacpan or search on metacpan
inc/Inline/C.pm view on Meta::CPAN
package Inline::C;
our $VERSION = '0.71';
use Inline 0.56;
use Config;
use Data::Dumper;
use Carp;
use Cwd qw(cwd abs_path);
use File::Spec;
use constant IS_WIN32 => $^O eq 'MSWin32';
use if !IS_WIN32, Fcntl => ':flock';
inc/Inline/C.pm view on Meta::CPAN
print MF <<END;
use ExtUtils::MakeMaker;
my %options = %\{
END
local $Data::Dumper::Terse = 1;
local $Data::Dumper::Indent = 1;
print MF Data::Dumper::Dumper(\ %options);
print MF <<END;
\};
WriteMakefile(\%options);