view release on metacpan or search on metacpan
t/00-load.t view on Meta::CPAN
#!/usr/bin/env perl
use Test::More tests => 4;
BEGIN {
if ($] ge '5.026') {
use lib '.';
}
use_ok('Net::IPAddress::Util');
use_ok('Net::IPAddress::Util::Range');
use_ok('Net::IPAddress::Util::Collection');
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
'VERSION_FROM' => 'lib/Net/IRR.pm',
'PREREQ_PM' => {
Test::More => 0,
IO::Socket::INET => 0,
},
(($] ge '5.005') ?
( 'AUTHOR' => 'Todd Caine <todd.caine@gmail.com>',
'ABSTRACT' => 'Perl interface to the Internet Route Registry daemon',
) : (),
),
);
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
'Unicode::String' => "2.06",
'LWP::UserAgent' => 0,
'HTTP::Request' => 0,
'HTTP::Response' => 0},
dist => {'COMPRESS' => 'gzip', 'SUFFIX' => '.gz'},
($] ge '5.005') ? (
'AUTHOR' => 'Simplewire, Inc. (support@simplewire.com)',
'ABSTRACT' => 'Perl module that can send wireless messages like SMS (Short Message Service) and Smart Messages (logos, ringtones, etc.).',
) : (),
);
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
WriteMakefile(
'NAME' => 'Net::Telnet::Cisco',
'VERSION_FROM' => 'lib/Net/Telnet/Cisco.pm', # finds $VERSION
'PREREQ_PM' => { Net::Telnet => 3.02,
Test::More => 0 }, # e.g., Module::Name => 1.1
($] ge '5.005') ? (
'AUTHOR' => 'Joshua Keroes (joshua@cpan.org)',
'ABSTRACT_FROM' => 'lib/Net/Telnet/Cisco.pm' ) : (),
);
view release on metacpan or search on metacpan
lib/Net/Telnet.pm view on Meta::CPAN
last;
}');
## Code template used to build pattern match conditional.
## Values between array elements must be supplied later.
if ($] ge '5.006') { # perl5.6.0+ has performance alternative to $` and $&
@match_cond =
('if ($s->{buf} =~ ', ') {
$prematch = substr($s->{buf}, 0, $-[0]);
$match = substr($s->{buf}, $-[0], $+[0] - $-[0]);
substr($s->{buf}, 0, length($prematch) + length($match)) = "";
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# the contents of the Makefile that is written.
WriteMakefile(
'NAME' => 'Net::Whois::Proxy',
'VERSION_FROM' => 'lib/Net/Whois/Proxy.pm', # finds $VERSION
'dist' => { COMPRESS => "gzip", SUFFIX=>"gz" },
($] ge '5.005')
? (
'AUTHOR' => 'Colin Faber <cfaber@fpsn.net>',
'ABSTRACT' => 'Recursive whois library',
)
: (),
view release on metacpan or search on metacpan
lib/Object/HashBase/Test.pm view on Meta::CPAN
local $SIG{__WARN__} = sub { };
*Object::HashBase::Test::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/01method.t view on Meta::CPAN
'anon method' );
}
# nested anon method (RT132321)
SKIP: {
skip "This causes SEGV on perl 5.16 (RT132321)", 1 if $] lt "5.018";
class RT132321 {
field $_genvalue;
BUILD {
$_genvalue = method { 123 };
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
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
an element is a 'blocky' element or an 'inline' element.
0.52 2016-11-06 Released-By: PERLANCAR
- Use $] >= ... instead of $] ge ... to avoid test failures on
FreeBSD on 5.20.x perls [suggested by Slaven Rezic, RT#118647].
0.51 2016-11-06 Released-By: PERLANCAR
view release on metacpan or search on metacpan
lib/PAR/Packer.pm view on Meta::CPAN
$self->_name2moddata($name, \@modules, \@data);
}
}
if ($opt->{u}) {
if ($] lt '5.031006') {
push @modules, "utf8_heavy.pl";
}
else {
$self->_warn("'-u' is not needed for Perl >= 5.31.6");
}
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# the contents of the Makefile that is written.
WriteMakefile(
'NAME' => 'PDF::Extract',
'VERSION_FROM' => 'Extract.pm', # finds $VERSION
'PREREQ_PM' => { }, # e.g., Module::Name => 1.1
($] ge '5.005') ? (
'AUTHOR' => 'Noel Sharrock <noel@lgmedia.com.au>',
'ABSTRACT_FROM' => 'Extract.pm', # retrieve abstract from module
) : (),
);
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# the contents of the Makefile that is written.
WriteMakefile(
'NAME' => 'PDF::Xtract',
'VERSION_FROM' => 'Xtract.pm', # finds $VERSION
'PREREQ_PM' => { }, # e.g., Module::Name => 1.1
($] ge '5.005') ? (
'AUTHOR' => 'Sunil S <sunils_AT_hpcl_DOT_co_DOT_in>',
'ABSTRACT_FROM' => 'Xtract.pm', # retrieve abstract from module
) : (),
);
view release on metacpan or search on metacpan
lib/PPIx/QuoteLike/Constant.pm view on Meta::CPAN
use constant LOCATION_LOGICAL_FILE => 4;
## VERBATIM END
use constant MINIMUM_PERL => '5.000';
use constant SUFFICIENT_UTF8_SUPPORT_FOR_WEIRD_DELIMITERS => $] ge '5.008003';
# Match the name of a variable. The user of this needs to anchor it
# right after the sigil. The line noise is [[:punct:]] as documented in
# perlrecharclass, less anything that needs to be excluded (currently
# only '@' and '*').
view release on metacpan or search on metacpan
lib/PPIx/Regexp/Constant.pm view on Meta::CPAN
use constant RE_CAPTURE_NAME => ' [_[:alpha:]] \w* ';
use constant STRUCTURE_UNKNOWN => 'PPIx::Regexp::Structure::Unknown';
use constant SUFFICIENT_UTF8_SUPPORT_FOR_WEIRD_DELIMITERS => $] ge '5.008003';
use constant TOKEN_LITERAL => 'PPIx::Regexp::Token::Literal';
use constant TOKEN_UNKNOWN => 'PPIx::Regexp::Token::Unknown';
use constant VARIABLE_LENGTH_LOOK_BEHIND_INTRODUCED => '5.029009';
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 => 'Parse _any_ context-free grammar',
) : (),
clean => { FILES => 'blib/* Makefile Parse-Earley-*' },
view release on metacpan or search on metacpan
lib/Path/Iterator/Rule.pm view on Meta::CPAN
our $VERSION = '1.015';
# Register warnings category
use warnings::register;
use if $] ge '5.010000', 're', 'regexp_pattern';
# Dependencies
use Carp ();
use File::Basename ();
use File::Spec ();
lib/Path/Iterator/Rule.pm view on Meta::CPAN
return qr/$new_flags$pattern/;
}
sub _split_re {
my $value = shift;
if ( $] ge 5.010 ) {
return re::regexp_pattern($value);
}
else {
$value =~ s/^\(\?\^?//;
$value =~ s/\)$//;
view release on metacpan or search on metacpan
share/utils/cpanm view on Meta::CPAN
)+)(.*)
$/xs or return ($file,undef,undef);if ($dist =~ /-undef\z/ and!length$version){$dist =~ s/-undef\z//}$version =~ s/-withoutworldwriteables$//;if ($version =~ /^(-[Vv].*)-(\d.*)/){$dist .= $1;$version=$2}if ($version =~ /(.+_.*)-(\d.*)/){$dist .= ...
CPAN_DISTNAMEINFO
$fatpacked{"CPAN/Meta.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'CPAN_META';
use 5.006;use strict;use warnings;package CPAN::Meta;our$VERSION='2.150005';use Carp qw(carp croak);use CPAN::Meta::Feature;use CPAN::Meta::Prereqs;use CPAN::Meta::Converter;use CPAN::Meta::Validator;use Parse::CPAN::Meta 1.4414 ();BEGIN {*_dclone=...
CPAN_META
$fatpacked{"CPAN/Meta/Check.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'CPAN_META_CHECK';
package CPAN::Meta::Check;$CPAN::Meta::Check::VERSION='0.018';use strict;use warnings;use base 'Exporter';our@EXPORT=qw//;our@EXPORT_OK=qw/check_requirements requirements_for verify_dependencies/;our%EXPORT_TAGS=(all=>[@EXPORT,@EXPORT_OK ]);use CPA...
CPAN_META_CHECK
share/utils/cpanm view on Meta::CPAN
$fatpacked{"File/pushd.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'FILE_PUSHD';
use strict;use warnings;package File::pushd;our$VERSION='1.009';our@EXPORT=qw(pushd tempd);our@ISA=qw(Exporter);use Exporter;use Carp;use Cwd qw(getcwd abs_path);use File::Path qw(rmtree);use File::Temp qw();use File::Spec;use overload q{""}=>sub {...
FILE_PUSHD
$fatpacked{"HTTP/Tiny.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'HTTP_TINY';
package HTTP::Tiny;use strict;use warnings;our$VERSION='0.056';use Carp ();my@attributes;BEGIN {@attributes=qw(cookie_jar default_headers http_proxy https_proxy keep_alive local_address max_redirect max_size proxy no_proxy timeout SSL_options verif...
sub $sub_name {
my (\$self, \$url, \$args) = \@_;
\@_ == 2 || (\@_ == 3 && ref \$args eq 'HASH')
or Carp::croak(q/Usage: \$http->$sub_name(URL, [HASHREF])/ . "\n");
return \$self->request('$req_method', \$url, \$args || {});
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 => 'First-class, concise classes in Perl 5',
) : (),
clean => { FILES => 'blib/* Makefile Perl6-Classes-*' },
view release on metacpan or search on metacpan
lib/Perlito5X/Test2/API.pm view on Meta::CPAN
INIT { eval 'END { test2_set_is_end() }; 1' or die $@ }
}
BEGIN {
no warnings 'once';
if($] ge '5.014' || $ENV{T2_CHECK_DEPTH} || $Test2::API::DO_DEPTH_CHECK) {
*DO_DEPTH_CHECK = sub() { 1 };
}
else {
*DO_DEPTH_CHECK = sub() { 0 };
}
view release on metacpan or search on metacpan
)+)(.*)
$/xs or return ($file,undef,undef);if ($dist =~ /-undef\z/ and!length$version){$dist =~ s/-undef\z//}$version =~ s/-withoutworldwriteables$//;if ($version =~ /^(-[Vv].*)-(\d.*)/){$dist .= $1;$version=$2}if ($version =~ /(.+_.*)-(\d.*)/){$dist .= ...
CPAN_DISTNAMEINFO
$fatpacked{"CPAN/Meta.pm"} = <<'CPAN_META';
use 5.006;use strict;use warnings;package CPAN::Meta;our$VERSION='2.132510';use Carp qw(carp croak);use CPAN::Meta::Feature;use CPAN::Meta::Prereqs;use CPAN::Meta::Converter;use CPAN::Meta::Validator;use Parse::CPAN::Meta 1.4403 ();BEGIN {*_dclone=...
CPAN_META
$fatpacked{"CPAN/Meta/Check.pm"} = <<'CPAN_META_CHECK';
package CPAN::Meta::Check;{$CPAN::Meta::Check::VERSION='0.007'}use strict;use warnings;use Exporter 5.57 'import';our@EXPORT=qw//;our@EXPORT_OK=qw/check_requirements requirements_for verify_dependencies/;our%EXPORT_TAGS=(all=>[@EXPORT,@EXPORT_OK ])...
CPAN_META_CHECK
$fatpacked{"File/pushd.pm"} = <<'FILE_PUSHD';
use strict;use warnings;package File::pushd;our$VERSION='1.005';our@EXPORT=qw(pushd tempd);our@ISA=qw(Exporter);use Exporter;use Carp;use Cwd qw(getcwd abs_path);use File::Path qw(rmtree);use File::Temp qw();use File::Spec;use overload q{""}=>sub {...
FILE_PUSHD
$fatpacked{"HTTP/Tiny.pm"} = <<'HTTP_TINY';
package HTTP::Tiny;use strict;use warnings;our$VERSION='0.034';use Carp ();my@attributes;BEGIN {@attributes=qw(cookie_jar default_headers local_address max_redirect max_size proxy no_proxy timeout SSL_options verify_SSL);no strict 'refs';for my$acc...
sub $sub_name {
my (\$self, \$url, \$args) = \@_;
\@_ == 2 || (\@_ == 3 && ref \$args eq 'HASH')
or Carp::croak(q/Usage: \$http->$sub_name(URL, [HASHREF])/ . "\n");
return \$self->request('$req_method', \$url, \$args || {});
package charstar;use overload ('""'=>\&thischar,'0+'=>\&thischar,'++'=>\&increment,'--'=>\&decrement,'+'=>\&plus,'-'=>\&minus,'*'=>\&multiply,'cmp'=>\&cmp,'<=>'=>\&spaceship,'bool'=>\&thischar,'='=>\&clone,);sub new {my ($self,$string)=@_;my$class=...
package
warnings;
sub enabled {return $^W;}
1;
'}my$VERSION_MAX=0x7FFFFFFF;use constant TRUE=>1;use constant FALSE=>0;sub isDIGIT {my ($char)=shift->thischar();return ($char =~ /\d/)}sub isALPHA {my ($char)=shift->thischar();return ($char =~ /[a-zA-Z]/)}sub isSPACE {my ($char)=shift->thisch...
VERSION_VPP
s/^ //mg for values %fatpacked;
unshift @INC, sub {
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
doc/Pod-2-DocBook.pdf view on Meta::CPAN
endobj
100 0 obj
<< /Length 2921 /Filter [ /ASCII85Decode /FlateDecode ]
>>
stream
Gatm=D/\/g')nJ0@4\WRMQ:;]ZM]k[Ju!7pgKr;$)Xd]RQNKk'[&$5-[A&nPrG]OML?-Dq.T3i</Gt4nL`?n[%qgXhX6%1]D)Cb&hKZ9[*/k-W"+N"ZT0MfI"jY!#)b5h&E]<df;4ZV*i\#^8(^?-!GSH(lNob$aI/Qn`>)?7fSY\?UdZ6*E5D/(pp2#:uB1p?7Rl$n8ASZBAS$[%Gid/C&:]mkQ+FJ$C2;i+JZ>I^@"MRV^Co0)WJsTU`...
endstream
endobj
101 0 obj
<< /Type /Page
/Parent 1 0 R
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 => 'Sean M. Burke C<sburke@cpan.org>',
ABSTRACT => 'Minimal web server for local Perl documentation',
) : (),
clean =>
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# the contents of the Makefile that is written.
WriteMakefile(
'NAME' => 'Proc::Fork::Control',
'VERSION_FROM' => 'lib/Proc/Fork/Control.pm', # finds $VERSION
'dist' => { COMPRESS => "gzip", SUFFIX=>"gz" },
($] ge '5.10')
? (
'AUTHOR' => 'Colin Faber <cfaber@fpsn.net>',
'ABSTRACT' => 'A management front end to fork()',
)
: (),
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
'List::Util' => 0,
'Scalar::Util' => 0,
},
($TT_INSTDIR ? (macro => {'TT_INSTDIR' => $TT_INSTDIR}) : ()),
($no_scripts ? () : ('EXE_FILES' => [ glob("bin/[a-z]*") ]) ),
($] ge '5.005')
? (
'AUTHOR' => 'Sam Vilain <samv@cpan.org>',
'ABSTRACT_FROM' => $pm,
)
: (),
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
DEFINE => ( ($profile) ? '-pg ' : '' )." $PLATFORM $debug $debug_malloc $dbms_debug $dbms_debug_malloc $flat_store_debug -D_NOT_CORE $DB $COMPAT185 -DSTATIC_BUFF -DSTATIC_CS_BUFF -DSTATIC_SC_BUFF $RDFSTORE_OPTIONS",
LDFROM => q[RDFStore$(OBJ_EXT) rdfstore_log$(OBJ_EXT) rdfstore_compress$(OBJ_EXT) rdfstore_flat_store$(OBJ_EXT) rdfstore_iterator$(OBJ_EXT) rdfstore_serializer$(OBJ_EXT) rdfstore_kernel$(OBJ_EXT) rdfstore_ap_sha1$(OBJ_EXT) rdfstore_digest$...
OBJECT => q[RDFStore$(OBJ_EXT) rdfstore_log$(OBJ_EXT) rdfstore_compress$(OBJ_EXT) rdfstore_flat_store$(OBJ_EXT) rdfstore_iterator$(OBJ_EXT) rdfstore_serializer$(OBJ_EXT) rdfstore_kernel$(OBJ_EXT) rdfstore_ap_sha1$(OBJ_EXT) rdfstore_digest$...
'clean' => { FILES => "y.tab.o lex.yy.o *.db" },
EXE_FILES => [ "utils/rdf.pl", "utils/rdfquery.pl", "utils/rdfdump.pl" ],
($] ge '5.005') ? (
'AUTHOR' => 'Alberto Reggiori <areggiori@webweaving.org>, Dirk-Willem van Gulik <dirkx@webweaving.org>',
'ABSTRACT' => 'Perl/C RDF storage and API',
) : ()
);
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 a Perl regexp 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(
'NAME' => 'Relations',
'VERSION_FROM' => 'Relations.pm',
($] ge '5.005') ?
(
'AUTHOR' => 'George A. Fitch III (aka Gaffer), gaf3@gaf3.com',
'ABSTRACT' => 'Functions to Use with Databases and Queries',
) : (),
'PREREQ_PM' =>