view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
require 5.016;
WriteMakefile(
'NAME' => 'Task::Biodiverse::NoGUI',
'VERSION_FROM' => 'lib/Task/Biodiverse/NoGUI.pm', # finds $VERSION
($] ge '5.005') ? (
'AUTHOR' => 'Shawn Laffan (shawn.laffan@unsw.edu.au)',
'ABSTRACT' => 'Task for Biodiverse dependencies for non-GUI use [DEPRECATED]',
)
: (),
META_MERGE => {
Makefile.PL view on Meta::CPAN
"Spreadsheet::Read" => "0.60",
"Spreadsheet::ReadSXC" => "0",
"Spreadsheet::ParseExcel" => "0",
"Spreadsheet::ParseXLSX" => "0",
# Data::Alias does not install post 5.22
($] lt '5.024' ? ("Data::Alias" => "0") : ()),
"Getopt::Long::Descriptive" => "0",
"Sereal" => "3",
"Cpanel::JSON::XS" => 3,
"JSON::MaybeXS" => 1.003,
"JSON::PP" => 0,
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
; my $pm = 'lib/Template/Magic/Pager.pm'
; WriteMakefile
( NAME => 'Template::Magic::Pager'
, VERSION_FROM => $pm
, ( $] ge '5.005' )
? ( AUTHOR => 'Domizio Demichelis - perl.4pro.net'
, ABSTRACT_FROM => $pm
)
: ()
, PREREQ_PM => { 'Class::constr' => '1.72'
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
; my $pm = 'lib/Template/Magic.pm'
; WriteMakefile
( NAME => 'Template::Magic'
, VERSION_FROM => $pm
, ( $] ge '5.005' )
? ( AUTHOR => 'Domizio Demichelis - perl.4pro.net'
, ABSTRACT_FROM => $pm
)
: ()
, PREREQ_PM => { 'Class::constr' => 2.1
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
test => { TESTS => 't/*/*.t' },
# For older versions of Perl, we have to force installation into the Perl
# module directories since site modules did not take precedence over core
# modules.
INSTALLDIRS => $] lt '5.011' ? 'perl' : 'site',
# Additional metadata.
META_ADD => {
'meta-spec' => { version => 2 },
resources => {
view release on metacpan or search on metacpan
t/lib/Test/CucumberExtensionMetadataVerify.pm view on Meta::CPAN
croak 'pre_step called with incorrect number $step array elements'
if scalar(@$step) != 3;
croak 'pre_step called with incorrect first element type of $step array'
# 5.10 reports SCALAR where the argument actually is a regexp; ignore <=5.10
if reftype $step->[0] ne 'REGEXP' and $] ge '5.012';
croak 'pre_step called with incorrect second element type of $step array'
if reftype $step->[1] ne 'HASH';
croak 'pre_step called with incorrect meta data content in $step array'
view release on metacpan or search on metacpan
lib/Test/Mocha/Mock.pm view on Meta::CPAN
use Test::Mocha::MethodCall;
use Test::Mocha::MethodStub;
use Test::Mocha::Util ();
use Types::Standard ();
use if $] lt '5.025', 'UNIVERSAL::ref';
our $AUTOLOAD;
# Lookup table of classes for which mock isa() should return false
my %NOT_ISA =
view release on metacpan or search on metacpan
lib/Test/ModuleVersion.pm view on Meta::CPAN
|| $request->{headers}{'transfer-encoding'};
$request->{cb} = $args->{content};
}
else {
my $content = $args->{content};
if ( $] ge '5.008' ) {
utf8::downgrade($content, 1)
or die(qq/Wide character in request message body\n/);
}
$request->{headers}{'content-length'} = length $content
unless $request->{headers}{'content-length'}
lib/Test/ModuleVersion.pm view on Meta::CPAN
$escapes{' '}="+";
my $unsafe_char = qr/[^A-Za-z0-9\-\._~]/;
sub _uri_escape {
my ($self, $str) = @_;
if ( $] ge '5.008' ) {
utf8::encode($str);
}
else {
$str = pack("U*", unpack("C*", $str)) # UTF-8 encode a byte string
if ( length $str == do { use bytes; length $str } );
lib/Test/ModuleVersion.pm view on Meta::CPAN
sub write {
@_ == 2 || die(q/Usage: $handle->write(buf)/ . "\n");
my ($self, $buf) = @_;
if ( $] ge '5.008' ) {
utf8::downgrade($buf, 1)
or die(qq/Wide character in write()\n/);
}
my $len = length $buf;
lib/Test/ModuleVersion.pm view on Meta::CPAN
my $data = $request->{cb}->();
defined $data && length $data
or last;
if ( $] ge '5.008' ) {
utf8::downgrade($data, 1)
or die(qq/Wide character in write_content()\n/);
}
$len += $self->write($data);
lib/Test/ModuleVersion.pm view on Meta::CPAN
my $data = $request->{cb}->();
defined $data && length $data
or last;
if ( $] ge '5.008' ) {
utf8::downgrade($data, 1)
or die(qq/Wide character in write_chunked_body()\n/);
}
$len += length $data;
view release on metacpan or search on metacpan
t/modules/Hub.t view on Meta::CPAN
$do_send->();
exit 0;
}
}
if (CAN_THREAD && $] ge '5.010') {
require threads;
my $thr = threads->new(sub { $do_send->() });
$thr->join;
$hub->cull();
$do_check->('Threads');
view release on metacpan or search on metacpan
lib/Test/TempDir/Tiny.pm view on Meta::CPAN
END {
# only clean up in original process, not children
if ( $$ == $ORIGINAL_PID ) {
# our clean up must run after Test::More sets $? in its END block
if ( $] lt "5.008000" ) {
*Test::TempDir::Tiny::_CLEANER::DESTROY = \&_cleanup;
*blob = bless( {}, 'Test::TempDir::Tiny::_CLEANER' );
}
else {
require B;
view release on metacpan or search on metacpan
t/tlib/AssertTest.pm view on Meta::CPAN
my $actual = Test::Unit::Assert::is_numeric($str) ? 't' : 'f';
$self->fail("For string '$str', expect $expect but got $actual")
unless $expect eq $actual;
}
if ($] gt '5.029001' && $] lt '5.031004') {
# https://github.com/Perl/perl5/issues/17062
# skipping test, broken around v5.30 because of bug in perl
} else {
my $actual = Test::Unit::Assert::is_numeric('0xF00') ? 't' : 'f';
$self->fail("For string '0xF00', expect f but got $actual")
view release on metacpan or search on metacpan
t/HashBase.t view on Meta::CPAN
local $SIG{__WARN__} = sub { };
*main::Const::Test::FOO = sub { 0 };
}
ok(!$pkg->FOO, "overrode const sub");
{
local $TODO = "known to fail on $]" if $] le "5.006002";
is($pkg->do_it, 'const', "worked as expected, const was constant");
}
BEGIN {
$INC{'Object/HashBase/Test/HBase/Wrapped.pm'} = __FILE__;
view release on metacpan or search on metacpan
t/HashBase.t view on Meta::CPAN
local $SIG{__WARN__} = sub { };
*main::Const::Test::FOO = sub { 0 };
}
ok(!$pkg->FOO, "overrode const sub");
{
local $TODO = "known to fail on $]" if $] le "5.006002";
is($pkg->do_it, 'const', "worked as expected, const was constant");
}
BEGIN {
$INC{'Object/HashBase/Test/HBase/Wrapped.pm'} = __FILE__;
view release on metacpan or search on metacpan
inc/Test2/Plugin/INC_Jail.pm view on Meta::CPAN
if ( $test_class eq $pkg ) {
foreach my $dir ( @test_inc ) {
my $fh;
open $fh, '<', "$dir/$_[1]"
and return $] ge '5.020' ? ( \'', $fh ) : $fh;
}
croak "Can't locate $_[1] in \@INC";
}
# The reason we have to iterate if the package is our
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 => 'Extract delimited text sequences from strings',
) : (),
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 => 'Provide fetchrow_hashref() for CSV 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 => 'Extract delimited text sequences from strings',
) : (),
clean =>
view release on metacpan or search on metacpan
lib/Text/Sprintf/Zenkaku.pm view on Meta::CPAN
our @EXPORT_OK = qw(sprintf);
our $cp932 = Encode::find_encoding("cp932");
our $conversions = qr/\A[cduoxefgXEGbBpnaA]\Z/;
$conversions = qr/\A[cduoxefgXEGbBpn]\Z/ if $] lt 5.022000;
$conversions = qr/\A[cduoxefgXEGbpn]\Z/ if $] lt 5.010000;
sub calc_width {
my ($w, $s) = @_;
my $ofs;
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 => 'Render tables in manifold styles',
) : (),
clean =>
view release on metacpan or search on metacpan
t/00_smoke.t view on Meta::CPAN
use Test::More tests=>2; # remember to keep in sync with done_testing
BEGIN {
diag "This is Perl $] at $^X on $^O";
BAIL_OUT("Perl 5.8.1 is required") if $] lt '5.008001';
}
use FindBin ();
use lib $FindBin::Bin;
use Tie_Handle_Base_Testlib;
view release on metacpan or search on metacpan
t/00-basics.t view on Meta::CPAN
$notvivi{foo} = 'default0';
$notvivi{bar} = "my data";
$notvivi{baz} = "default1";
SKIP: {
skip "scalar() mysteriously broken on Ye Olde Perle", 1,
unless($] gt 5.008002);
is(scalar(%{$vivi}), scalar(%notvivi), "scalar() works, as if anyone's likely to ever bother");
}
%{$vivi} = ();
is_deeply([keys %{$vivi}], [], "can clear the hash");
view release on metacpan or search on metacpan
lib/Tie/Subset/Hash.pm view on Meta::CPAN
sub SCALAR {
my ($self) = @_;
# I'm not sure why the following counts as two statements in the coverage tool
# uncoverable branch true
# uncoverable statement count:2
return scalar %{$self->{keys}} if $] lt '5.026';
my %keys = map {$_=>1} grep {exists $self->{hash}{$_}} keys %{$self->{keys}};
return scalar keys %keys;
}
sub UNTIE {
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
},
'PL_FILES' => {},
'PREREQ_PM' => {
'Tie::File' => '0.97',
},
($] ge '5.005') ?
(
'AUTHOR' => 'Blair Sutton (bsdz@cpan.org)',
'ABSTRACT' => 'Tie iCal files to Perl hashes',
)
: (),
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 => 'Stevan Little (stevan@iinteractive.com)',
ABSTRACT => 'An Object Oriented Binary Tree for Perl',
) : (),
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 => 'Render a cladogram using Imager or Image::Magick',
) : (),
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 => 'Persist multiple trees in a single db table, preserving child order',
) : (),
clean =>
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# ----------------------
my(%params) =
(
($] ge '5.005') ?
(
AUTHOR => 'Rob Kinyin <rkinyon@cpan.org>',
ABSTRACT => 'A transparent persistence layer for Tree and its children',
) : (),
clean =>
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# ----------------
my(%params) =
(
($] ge '5.005') ?
(
AUTHOR => 'Stevan Little <stevan@cpan.org>',
ABSTRACT => 'A factory object for dispensing Visitor objects',
) : (),
clean =>
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# ----------------
my(%params) =
(
($] ge '5.005') ?
(
AUTHOR => 'Stevan Little <stevan@cpan.org>',
ABSTRACT => 'A simple tree object',
) : (),
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 => 'Rob Kinyin (rkinyon@cpan.org)',
ABSTRACT => 'Persist multiple trees in a single db table, preserving child order',
) : (),
clean =>
view release on metacpan or search on metacpan
lib/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,
);
}