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
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/Type/Tiny/XS.pm view on Meta::CPAN
Map Tuple Enum AnyOf AllOf
/
);
$names{Item} = $names{Any};
if ( $] lt '5.010000' ) {
require MRO::Compat;
*Type::Tiny::XS::Util::get_linear_isa = \&mro::get_linear_isa;
my $overloaded = sub {
require overload;
lib/Type/Tiny/XS.pm view on Meta::CPAN
if ( $type =~ /^ArrayRef\[(.+)\]$/ ) {
my $child = get_coderef_for( $1 ) or return;
$made = _parameterize_ArrayRef_for( $child );
}
elsif ( $] ge '5.010000' and $type =~ /^ArrayLike\[(.+)\]$/ ) {
my $child = get_coderef_for( $1 ) or return;
$made = _parameterize_ArrayLike_for( $child );
}
elsif ( $type =~ /^HashRef\[(.+)\]$/ ) {
my $child = get_coderef_for( $1 ) or return;
$made = _parameterize_HashRef_for( $child );
}
elsif ( $] ge '5.010000' and $type =~ /^HashLike\[(.+)\]$/ ) {
my $child = get_coderef_for( $1 ) or return;
$made = _parameterize_HashLike_for( $child );
}
elsif ( $type =~ /^Map\[(.+),(.+)\]$/ ) {
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,
);
}
view release on metacpan or search on metacpan
our $prefix = "UNF_";
our $structname = "${prefix}complist";
# Starting in v5.20, the tables in lib/unicore are built using the platform's
# native character set for code points 0-255.
*pack_U = ($] ge 5.020)
? sub { return pack('W*', @_).pack('U*'); } # The empty pack returns
# an empty UTF-8 string,
# so the effect is to
# force the return into
# being UTF-8.