view release on metacpan or search on metacpan
lib/Util/H2O.pm view on Meta::CPAN
BEGIN {
# lock_ref_keys wasn't available until Hash::Util 0.06 / Perl v5.8.9
# (note the following will probably also fail on the Perl v5.9 dev releases)
# uncoverable branch false
# uncoverable condition false
if ( $] ge '5.008009' ) {
require Hash::Util;
Hash::Util->import(qw/ lock_ref_keys lock_hashref /) }
else {
*lock_ref_keys = *lock_hashref = sub {
carp "this Perl is too old to lock the hash"; # uncoverable statement
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
WriteMakefile
(
($] ge '5.005') ?
(
AUTHOR => 'Ron Savage <ron@savage.net.au>',
ABSTRACT => 'Clean up Typo3-based web site files',
) : (),
clean =>
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
'NAME' => 'WebSphere::Payment',
'VERSION_FROM' => 'Payment.pm',
'PREREQ_PM' => { 'HTTP::Headers' => '', 'HTTP::Request' => '',
'LWP::UserAgent' => '' },
'dist' => { 'COMPRESS' => 'gzip -9f', 'SUFFIX' => 'gz', },
($] ge '5.005')
? (
'AUTHOR' => 'Luis Moreno <luis@cantv.net>',
'ABSTRACT' => 'Simple Perl API interface to IBM Payment Manager 2.2',
)
: (),
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
WriteMakefile(
'NAME' => 'Win32::API::OutputDebugString',
'VERSION_FROM' => 'OutputDebugString.pm', # finds $VERSION
($] ge '5.005')?
(
'AUTHOR' => 'Alessandro Forghieri (alf@orion.it)',
'ABSTRACT' => 'OutputDebugString Win32 API support',
) : (),
'PREREQ_PM' => {}, # e.g., Module::Name => 1.1
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
package MY; #subs below use SUPER::, subs above use main:: vars
sub post_constants {
#if Call.c changes API.obj must be rebuilt
return (!$is_msvc_compiler && $] lt '5.014' ? "AS\t= as\n" : '').
'benchmark :: pure_all
$(FULLPERLRUN) "-MExtUtils::Command::MM" "-e" "test_harness(\'$(TEST_VERBOSE)\', \'$(INST_LIB)\', \'$(INST_ARCHLIB)\')" t/benchmark.t
$(OBJECT) : Call.c
Makefile.PL view on Meta::CPAN
$dlib =~ s/(^OPTIMIZE = .+)$/$1 ${\main::no_stackprotector()}/m;
my @defs; #On Cygwin (and Win32 Perl one day) all the important defines are
#not on the command line but in config.h so -V needs to be used to read them out
#save time by not loading or running Config::Perl::V on newer Perls
if($] lt '5.014') {
require Config::Perl::V;
$optionshash = Config::Perl::V::myconfig()->{build}{options};
foreach(keys %$optionshash) {
push @defs, $_ if $optionshash->{$_};
}
view release on metacpan or search on metacpan
SKIP: {
# TODO: spot why this does NOT dies correctly in 5.10
# even if the test of the module dies..
skip if $] lt '5.014';
# job dies with an incorrect crontab
dies_ok { $bkp->job(cron=>'one 0 0 25',src=>'x:\\',name=>'test') } 'job method expected to die with an invalid crontab';
}
view release on metacpan or search on metacpan
lib/Win32/CommandLine.pm view on Meta::CPAN
my @g_star = $should_glob ? File::Globstar::globstar( $p, $glob_flags ) : ($base);
# File::Globstar doesn't maintain bsd_glob sorting; sort here
# * use case folding over case conversion, when available; (Unicode::CaseFold::fc() or Unicode::Collate->sort() are alternatives)
# * ref: https://www.perlmonks.org/?node_id=1228944 @@ https://archive.is/4tqfK , https://www.webcitation.org/75hjb1t3m , https://goo.gl/JUQsL3
# * ref: http://www.howtobuildsoftware.com/index.php/how-do/cht/perl-version-dependent-fallback-code @@ https://archive.is/HdQt4 , https://goo.gl/gv5Kik
if ( $] ge '5.016' ) {
## no critic ( ProhibitAmpersandSigils )
@g_star = sort { ( &CORE::fc($a) ) cmp ( &CORE::fc($b) ) } @g_star;
}
else { @g_star = sort { ( lc $a ) cmp ( lc $b ) } @g_star; }
## ToDO: consider POSIX compatible collation (base on LC_COLLATE) ... `@g_star = sort { POSIX::strcoll($a, $b) } @g_star;`
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# the contents of the Makefile that is written.
WriteMakefile(
'NAME' => 'Win32::FileOp',
'PREREQ_PM' => {'Win32::API' => 0, 'Data::Lazy' => '0.5', 'Win32::AbsPath' => '1.0'},
'VERSION_FROM' => 'FileOp.pm', # finds $VERSION
($] ge '5.005')
? (
'AUTHOR' => 'Jan Krynicky (Jenda@Krynicky.cz),Mike (blazer@mail.nevalink.ru),Bill Luebkert (dbe@wgn.net)',
'ABSTRACT' => 'Operations on files, copy/move/delete/recycle with fancy dialogs, Open and SaveAs dialogs, INI files editing, maping drives and a few others',
)
: ()
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
},
PREREQ_PM => {
'Win32::GUI' => '1.05',
'XML::Twig' => '3.14',
},
($] ge '5.005') ?
(
'AUTHOR' => 'Blair Sutton (bsdz@cpan.org)',
'ABSTRACT' => 'Build Win32::GUIs using XML',
)
: (),
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
'VERSION_FROM' => 'DB.pm',
'PREREQ_PM' => {
'Win32::API' => 0,
},
'NORECURS' => 1,
($] ge '5.005') ? (
'AUTHOR' => 'PMarek (pmarek@cpan.org)',
'ABSTRACT' => 'Interface for MSI files',
) : (),
);
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
WriteMakefile(
'NAME' => 'Win32::SystemInfo',
'VERSION_FROM' => 'SystemInfo.pm', # finds $VERSION
($] ge '5.8.0') ? (
'AUTHOR' => 'Chad Johnston (cjohnston@megatome.com)',
'ABSTRACT' => 'Memory and Processor information on Win32 systems',
) : (),
'PREREQ_PM' => {'Win32::API' => 0.60,
'Win32::TieRegistry' => 0.23}, # e.g., Module::Name => 1.1
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
WriteMakefile(
'NAME' => 'X11::GUITest',
($] ge '5.005') ? (
'AUTHOR' => 'Dennis K. Paulsen <ctrondlp@cpan.org>',
'ABSTRACT' => 'Collection of functions for X11 GUI testing/interaction.',
) : (),
'VERSION_FROM' => 'GUITest.pm', # Finds $VERSION
($] lt '5.008') ? (
'INST_MAN3DIR' => './blib/man3',
'MAN3EXT' => '3pm'
) : (),
'MAN3PODS' => {'GUITest.pm' => '$(INST_MAN3DIR)/X11::GUITest.$(MAN3EXT)'},
'LIBS' => GetLibs(), # e.g., '-lm'
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
'cf/837_004010X096.cf' => '$(INST_LIBDIR)/Parser/cf/837_004010X096.cf',
'cf/837_004010X097.cf' => '$(INST_LIBDIR)/Parser/cf/837_004010X097.cf',
'cf/837_004010X098.cf' => '$(INST_LIBDIR)/Parser/cf/837_004010X098.cf',
'cf/997.cf' => '$(INST_LIBDIR)/Parser/cf/997.cf',
},
( $] ge '5.005' )
? (
'AUTHOR' => 'Prasad Balan (prasad@cpan.org)',
'ABSTRACT' => 'Perl module for parsing X12 transaction files',
)
: (),
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
my(%params) =
(
($] ge '5.005') ?
(
AUTHOR => 'Ron Savage (ron@savage.net.au)',
ABSTRACT => 'Parse X.500 DNs',
) : (),
clean =>
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
WriteMakefile(
'NAME' => 'XML::BMEcat',
'VERSION_FROM' => 'BMEcat.pm', # finds $VERSION
($] ge '5.005') ? (
'AUTHOR' => 'Frank-P. Reich (fpreich@cpan.org)',
'ABSTRACT' => 'Perl extension for generating BMEcat-XML'
) : (),
);
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
my(%params) =
(
($] ge '5.005') ?
(
AUTHOR => 'Ron Savage (ron@savage.net.au)',
ABSTRACT => 'Convert XML::Tiny output into a Tree',
) : (),
clean =>
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
WriteMakefile
(
($] ge '5.005') ?
(
'AUTHOR' => 'Ron Savage (ron@savage.net.au)',
'ABSTRACT' => 'A module to install the MS Windows mail server XMail',
) : (),
clean =>
view release on metacpan or search on metacpan
sub DESTROY { }
if (defined &DynaLoader::boot_DynaLoader) {
#next 2 lines are special matched in Makefile.PL, update that if changed
delete local $DynaLoader::{'VERSION'} if $] lt '5.009005';
delete local $DynaLoader::{'XS_VERSION'} if $] lt '5.009005';
require XSLoader;
XSLoader::load(__PACKAGE__, $VERSION);
tie %Config, 'Config';
} else {
no warnings 'redefine';
view release on metacpan or search on metacpan
use IO::Handle ();
use Module::Runtime qw( use_module );
use Zydeco::Lite qw( true false );
BEGIN {
*PERL_IS_MODERN = ( $] ge '5.014' ) ? \&true : \&false;
}
my $STRICT = 0;
$ENV{$_} && ++$STRICT && last for qw(
EXTENDED_TESTING
my @modules =
grep { my $name = $_->[0]; $name !~ /feature|Try/ } $class->modules;
push @modules, [ 'Try::Tiny', '0.30' ];
if ( $] ge '5.010' ) {
push @modules, [ 'feature', '0', qw( say ) ];
}
else {
push @modules, [ 'Perl6::Say', '0.06' ];
push @modules, [ 'UNIVERSAL::DOES', '0.001' ];
view release on metacpan or search on metacpan
local/lib/perl5/Eval/TypeTiny.pm view on Meta::CPAN
#<<<
# uncoverable subroutine
sub ALIAS_IMPLEMENTATION () {
$implementation ||= _pick_alternative(
if => ( $] ge '5.022' ) => IMPLEMENTATION_NATIVE,
needs => 'Devel::LexAlias' => IMPLEMENTATION_DEVEL_LEXALIAS,
needs => 'PadWalker' => IMPLEMENTATION_PADWALKER,
if => !!1 => IMPLEMENTATION_TIE,
);
}
view release on metacpan or search on metacpan
t/50complextypes.t view on Meta::CPAN
use warnings;
use Test::More;
use Test::Fatal;
BEGIN {
if ($] lt '5.016') {
plan(skip_all => 'known limitation in Perl 5.14');
exit();
}
}
view release on metacpan or search on metacpan
lib/builtins/compat.pm view on Meta::CPAN
!!0;
}
BEGIN {
# uncoverable statement
*LEGACY_PERL = ( $] lt '5.036' ) ? \&_true : \&_false;
};
our %EXPORT_TAGS = (
'5.36' => [ qw<
true false is_bool
view release on metacpan or search on metacpan
inc/Inline/CPP.pm view on Meta::CPAN
my ($o, $value) = @_;
$value =~ s/^::|::$//g;
# Perl 5.12 indroduced \p{XID_Start} and \p{XID_Continue}. Prior to that
# we should downgrade gracefully.
my $ident = $] ge '5.0120'
? qr{[\p{XID_Start}_][\p{XID_Continue}_]*}
: qr{[\p{Alpha}_][\p{Alpha}\p{Digit}_]*};
croak "$value is an invalid package name."
unless length $value == 0
view release on metacpan or search on metacpan
eval { require Mouse::Util; } unless HAS_XS();
*HAS_MOUSE = eval { Mouse::Util::MOUSE_XS() and 'Mouse::Util'->can('generate_isa_predicate_for') }
? sub(){!!1}
: sub(){!!0};
*HAS_NATIVE = ( $] ge '5.032' )
? sub(){!!1}
: sub(){!!0};
*perlstring = eval { require B; 'B'->can('perlstring') }
|| sub { sprintf '"%s"', quotemeta($_[0]) };
view release on metacpan or search on metacpan
t/01_basic.t view on Meta::CPAN
use VMod;
is(version->parse($VMod::VERSION), version->parse(1.0), 'version ok');
my $dfh = *{VMod::DATA};
ok(fileno($dfh), 'handle ok');
ok($dfh->can('seek'), 'can seek') if $] ge '5.020';
ok(seek($dfh, 0, 0), 'seek successful');
local $/ = undef;
my $data = <$dfh>;
$data =~ s/^.*\n__DATA__\r?\n/\n/s;
view release on metacpan or search on metacpan
t/additional_tests/spar_unix.test view on Meta::CPAN
# which it was originally conceived.)
# FreeBSD 4.10 and Darwin 5.5 allow truncating a write protected file :-(
die if open my $fh, '>', 'd.spar';
$] ge '5.01' and
# Can we chmod on this fs?
((stat 'd.spar')[2] & 0777) == 0444 and
chmod 0650, 'd.spar' and
# chmod fails with success on Samba.
((stat 'd.spar')[2] & 0777) == 0650;
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
"version" => 0.002,
};
my %dynamic_config;
do {
if ( $] lt '5.010' ) {
$meta->{prereqs}{runtime}{requires}{'MRO::Compat'} = '0';
}
# Probably a lot of the following is cargo cult.
# My XS-fu is not strong.
view release on metacpan or search on metacpan
lib/match/simple.pm view on Meta::CPAN
if ( my $match = $obj->can( 'MATCH' ) ) {
return $match;
}
if ( $] lt '5.010' ) { require MRO::Compat; }
else { require mro; }
my @mro = @{ mro::get_linear_isa( ref $obj ) };
for my $class ( @mro ) {
my $name = "$class\::(~~";
view release on metacpan or search on metacpan
t/parent-pmc.t view on Meta::CPAN
plan skip_all => ".pmc are only available with 5.6 and later" if $] < 5.006;
# Skip this test if perl is compiled with PERL_DISABLE_PMC
#
my $pmc = 1;
if (Config->can('non_bincompat_options')) { # $] ge '5.014'
$pmc = 0
if grep { $_ eq 'PERL_DISABLE_PMC' } Config::non_bincompat_options();
} elsif (eval {
require Config::Perl::V;
Config::Perl::V->VERSION('0.10');
view release on metacpan or search on metacpan
cpan/CPAN-Meta/lib/CPAN/Meta.pm view on Meta::CPAN
sub save {
my ($self, $file, $options) = @_;
my $version = $options->{version} || '2';
my $layer = $] ge '5.008001' ? ':utf8' : '';
if ( $version ge '2' ) {
carp "'$file' should end in '.json'"
unless $file =~ m{\.json$};
}