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 => 'English names of nationalities',
) : (),
clean =>
view release on metacpan or search on metacpan
builder/MyBuilder.pm view on Meta::CPAN
sub new {
my ($self, %args) = @_;
# SEE ALSO: https://metacpan.org/pod/release/RENEEB/perl-5.27.9/pod/perldelta.pod#New-read-only-predefined-variable-${^SAFE_LOCALES}
if ($] ge '5.027009' && !${^SAFE_LOCALES}) {
die "This module is unsafe if the perl dosen't support safe locales.\n";
}
return $self->SUPER::new(%args);
}
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 => 'A plugin for Log::Handler using Log::Hander::Output::DBI',
) : (),
clean =>
view release on metacpan or search on metacpan
lib/MCE/Hobo.pm view on Meta::CPAN
my @args = @_; @_ = (); # To avoid (Scalars leaked: N) messages
my ( $killed, $pid );
{
local $SIG{TERM} = local $SIG{INT} = sub { $killed = $_[0] }
if ( !$_is_MSWin32 && $] ge '5.010001' );
local $SIG{TTIN}, local $SIG{TTOU}, local $SIG{WINCH}
if ( !$_is_MSWin32 );
$pid = fork();
view release on metacpan or search on metacpan
$_has_threads = $INC{'threads.pm'} ? 1 : 0;
$_tid = $_has_threads ? threads->tid() : 0;
$_oid = "$$.$_tid";
if ( $] ge '5.008008' && ! $INC{'PDL.pm'} ) {
eval 'use Sereal::Encoder 3.015; use Sereal::Decoder 3.015;';
if ( ! $@ ) {
my $_encoder_ver = int( Sereal::Encoder->VERSION() );
my $_decoder_ver = int( Sereal::Decoder->VERSION() );
if ( $_encoder_ver - $_decoder_ver == 0 ) {
{
my $_wid = $_args[1];
my $_seed = abs($self->{_seed} - ($_wid * 100000)) % 2147483560;
CORE::srand($_seed) if (!$self->{use_threads} || $] ge '5.020000'); # drand48
Math::Prime::Util::srand($_seed) if $INC{'Math/Prime/Util.pm'};
# [etj] identified a race condition in PDL running threads
# https://perlmonks.org/?node_id=11159841
if (!$self->{use_threads}) {
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
LWP::UserAgent => 0,
HTML::LinkExtor => 0,
URI::URL => 0,
Test::More => 0
}, # e.g., Module::Name => 1.1
($] ge '5.005') ?
(
'AUTHOR' => 'Alain BARBET (alian@cpan.org)',
'ABSTRACT' => 'Provide routine to transform a HTML page '.
'in a MIME-Lite mail') : ()
);
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' => 'MVS::JESFTP',
'VERSION_FROM' => 'JESFTP.pm', # finds $VERSION
($] ge '5.005') ? (
'AUTHOR' => 'Mike Owens (mike.owens@state.nm.us)',
'ABSTRACT' => 'Submit JCL jobstreams to MVS via FTP',
) : (),
);
view release on metacpan or search on metacpan
lib/Macro/Simple.pm view on Meta::CPAN
our $VERSION = '0.003';
use Carp;
use constant DO_MACRO => (
$] ge 5.014000 and
require Parse::Keyword and
require PPI and
require Sub::Boolean
);
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 => 'A JSON parser with a choice of grammars',
) : (),
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.
my(%params) =
(
($] ge '5.005') ?
(
AUTHOR => 'Ron Savage (ron@savage.net.au)',
ABSTRACT => 'A collection of scripts using Marpa::R2',
) : (),
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.
my(%params) =
(
($] ge '5.005') ?
(
AUTHOR => 'Ron Savage (ron@savage.net.au)',
ABSTRACT => 'Deprecated. Use under the name MarpaX::Languages::Dash',
) : (),
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.
my(%params) =
(
($] ge '5.005') ?
(
AUTHOR => 'Ron Savage (ron@savage.net.au)',
ABSTRACT => 'A Marpa-based parser for the DASH language',
) : (),
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.
my(%params) =
(
($] ge '5.005') ?
(
AUTHOR => 'Ron Savage (ron@savage.net.au)',
ABSTRACT => 'A Lua parser',
) : (),
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.
my(%params) =
(
($] ge '5.005') ?
(
AUTHOR => 'Ron Savage (ron@savage.net.au)',
ABSTRACT => 'Parse the templates used in pack() and unpack()',
) : (),
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.
my(%params) =
(
($] ge '5.005') ?
(
AUTHOR => 'Ron Savage (ron@savage.net.au)',
ABSTRACT => 'An SVG parser',
) : (),
clean =>
view release on metacpan or search on metacpan
t/assignPVl.t view on Meta::CPAN
}
assignPVl($d128, ' -0.162.235');
# Allow for known brokenness of 5.21.x (for x < 9) builds of perl.
if($] lt '5.021009' && $] ge '5.021001') {set_nnuml(8)}
if("$d128" eq '-162e-3' && nnumflagl() == 8) {print "ok 72\n"}
else {
warn "\nExpected -162e-3\nGot $d128\n";
warn "nnumflagl expected 8, got ", nnumflagl(), "\n";
view release on metacpan or search on metacpan
t/assignPV.t view on Meta::CPAN
}
assignPV($d64, ' -0.162.235');
# Allow for known brokenness of 5.21.x (for x < 9) builds of perl.
if($] lt '5.021009' && $] ge '5.021001') {set_nnum(10)}
if("$d64" eq '-162e-3' && nnumflag() == 10) {print "ok 72\n"}
else {
warn "\nExpected -162e-3\nGot $d64\n";
warn "nnumflag expected 10, got ", nnumflag(), "\n";
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use ExtUtils::MakeMaker;
WriteMakefile(
($] ge '5.006001') ?
(
AUTHOR => 'Luke Palmer (fibonaci@babylonia.flatirons.org)',
ABSTRACT => 'Query a database in predicate calculus form',
) : (),
dist => { COMPRESS => 'gzip', SUFFIX => 'gz' },
view release on metacpan or search on metacpan
lib/Metabase/Fact/String.pm view on Meta::CPAN
}
sub content_as_bytes {
my ($self) = @_;
my $bytes = $self->content;
utf8::encode($bytes) if $] ge '5.008'; # converts in-place
return $bytes;
}
sub content_from_bytes {
my ( $class, $bytes ) = @_;
utf8::decode($bytes) if $] ge '5.008'; # converts in-place
return $bytes;
}
1;
view release on metacpan or search on metacpan
lib/Mic/Assembler.pm view on Meta::CPAN
if ( ! $spec->{implementation}{methods}{ $meta->{property} }
&& $meta->{property}
&& $in_interface->{ $meta->{property} } ) {
confess "'property' can only be used from Perl 5.16 onwards"
if $] lt '5.016';
$spec->{implementation}{methods}{ $meta->{property} } = sub : lvalue {
my ($self) = @_;
return $self->[ $spec->{implementation}{slot_offset}{$name} ];
};
view release on metacpan or search on metacpan
t/11-charset.t view on Meta::CPAN
}
};
subtest charset_invlist => sub {
# Perl added vertical-tab to \s in 5.12
my @space_ascii= ( 9,( $] lt '5.012'? (11,12):() ),14, 32,33 );
my @tests= (
[ 'A-Z', 0x7F,
[ 65,91 ]
],
[ 'A-Z', undef,
t/11-charset.t view on Meta::CPAN
[ 65,91, 97,123 ]
],
[ '\w', 0x7F,
[ 48,58, 65,91, 95,96, 97,123 ]
],
($] ge '5.026'? ( # the definition of \w and \s varies over perl versions
[ '\w', 0x200,
[ 48,58, 65,91, 95,96, 97,123, 170,171, 181,182, 186,187, 192,215, 216,247, 248,0x201 ],
],
[ '\s', 0x7F,
[ @space_ascii ],
],
[ '\s', undef,
[ @space_ascii, 133,134, 160,161, 5760,5761,
($] lt '5.012'? (6158,6159) : ()),
8192,8203, 8232,8234, 8239,8240, 8287,8288, 12288,12289 ],
],
):()),
[ '\p{Block: Katakana}', undef,
[ 0x30A0, 0x3100 ],
],
[ '^[:digit:]', 0x7F,
[ 0,0x30, 0x3A,0x80 ],
],
($] ge '5.012'? ( # \p{digit} wasn't available until 5.12
[ '[:alpha:]\P{digit}', 0x7F,
[ 0,0x30, 0x3A,0x80 ],
],
):()),
[ '\p{alpha}\P{alpha}', undef,
t/11-charset.t view on Meta::CPAN
is( [ $charset->find_member("G") ], [ undef, 6 ], 'G would insert at position 6' );
};
subtest lazy_attributes => sub {
skip_all "\\P{digit} not supported on 5.10"
if $] lt '5.012';
my $charset= charset('[:alpha:]\P{digit}');
ok( !$charset->find_member('0'), '"0" not in the set of alpha and non-digit' );
is( scalar $charset->find_member('a'), 87, 'member "a" found at 87' );
ok( defined $charset->{member_invlist} && defined $charset->{_invlist_index}, 'used invlist' );
ok( !defined $charset->{members}, 'did not use members[]' );
view release on metacpan or search on metacpan
inc/MBVersion.pm view on Meta::CPAN
my $value = shift;
# may be a v-string
if ( length($value) >= 3 && $value !~ /[._]/
&& _is_non_alphanumeric($value)) {
my $tvalue;
if ( $] ge 5.008_001 ) {
$tvalue = _find_magic_vstring($value);
$value = $tvalue if length $tvalue;
}
elsif ( $] ge 5.006_000 ) {
$tvalue = sprintf("v%vd",$value);
if ( $tvalue =~ /^v\d+(\.\d+){2,}$/ ) {
# must be a v-string
$value = $tvalue;
}
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 => 'Manage machine-readable Changes/CHANGES/Changelog.ini files',
) : (),
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.
my(%params) =
(
($] ge '5.005') ?
(
AUTHOR => 'Ron Savage (ron@savage.net.au)',
ABSTRACT => 'Scripts to cross-check Build.PL/Makefile.PL with Module::CoreList, etc',
) : (),
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.
my(%params) =
(
($] ge '5.005') ?
(
AUTHOR => 'Ron Savage (ron@savage.net.au)',
ABSTRACT => 'A very convenient wrapper around Mojolicious::Validator',
) : (),
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.
my(%params) =
(
($] ge '5.005') ?
(
AUTHOR => 'Ron Savage (ron@savage.net.au)',
ABSTRACT => 'Ensure CSS and JS links in web pages point to real files',
) : (),
clean =>
view release on metacpan or search on metacpan
lib/MongoDB/_Constants.pm view on Meta::CPAN
MIN_SERVER_VERSION => "2.4.0",
MIN_WIRE_VERSION => 0,
RESCAN_SRV_FREQUENCY_SEC => $ENV{TEST_MONGO_RESCAN_SRV_FREQUENCY_SEC} || 60,
NO_JOURNAL_RE => qr/^journaling not enabled/,
NO_REPLICATION_RE => qr/^no replication has been enabled/,
P_INT32 => $] lt '5.010' ? 'l' : 'l<',
SMALLEST_MAX_STALENESS_SEC => 90,
WITH_ASSERTS => $ENV{PERL_MONGO_WITH_ASSERTS},
# Transaction state tracking
TXN_NONE => 'none',
TXN_STARTING => 'starting',
view release on metacpan or search on metacpan
lib/MooX/Press.pm view on Meta::CPAN
use Module::Runtime qw(use_module);
use namespace::autoclean;
sub make_absolute_package_name {
my $p = shift;
$] lt '5.018' ? "main::$p" : "::$p";
}
if ( $] lt '5.010' ) {
require UNIVERSAL::DOES;
}
# Options not to carry up into subclasses;
# mostly because subclasses inherit behaviour anyway.
view release on metacpan or search on metacpan
lib/MooseX/Extended/Core.pm view on Meta::CPAN
{
my $call_level = 1 + $opt_for{_call_level};
my ( undef, $filename, $line ) = caller($call_level);
Carp::carp("$attr_type '$name' is read-only and has no init_arg or default, defined at $filename line $line\n")
if $] ge '5.028'
and warnings::enabled_at_level( 'MooseX::Extended::naked_fields', $call_level );
}
delete $opt_for{_call_level};
_debug( "Setting $attr_type, '$orig_name'", \%opt_for );
view release on metacpan or search on metacpan
lib/Mutex/Channel.pm view on Meta::CPAN
use Mutex::Util;
use Scalar::Util 'looks_like_number';
use Time::HiRes 'alarm';
my $is_MSWin32 = ($^O eq 'MSWin32') ? 1 : 0;
my $use_pipe = ($^O !~ /mswin|mingw|msys|cygwin/i && $] gt '5.010000');
my $tid = $INC{'threads.pm'} ? threads->tid : 0;
sub CLONE {
$tid = threads->tid if $INC{'threads.pm'};
}