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::Abstract',
'VERSION_FROM' => 'Abstract.pm',
($] ge '5.005') ?
(
'AUTHOR' => 'George A. Fitch III (aka Gaffer), gaf3@gaf3.com',
'ABSTRACT' => 'DBI/DBD::mysql module to ease development',
) : (),
'PREREQ_PM' =>
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::Display',
'VERSION_FROM' => 'Display.pm',
($] ge '5.005') ?
(
'AUTHOR' => 'George A. Fitch III (aka Gaffer), gaf3@gaf3.com',
'ABSTRACT' => 'DBI/DBD::mysql query graphing module',
) : (),
'PREREQ_PM' =>
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::Family',
'VERSION_FROM' => 'Family.pm',
($] ge '5.005') ?
(
'AUTHOR' => 'George A. Fitch III (aka Gaffer), gaf3@gaf3.com',
'ABSTRACT' => 'DBI/DBD::mysql relational query engine object.',
) : (),
'PREREQ_PM' =>
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::Query',
'VERSION_FROM' => 'Query.pm',
($] ge '5.005') ?
(
'AUTHOR' => 'George A. Fitch III (aka Gaffer), gaf3@gaf3.com',
'ABSTRACT' => 'Object for creating SQL queries',
) : (),
'PREREQ_PM' =>
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 => 'Generate a set of Rose::DB::Object- and Rose::HTML::Form-based classes',
) : (),
clean =>
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
dist => {
COMPRESS => "gzip -9f",
SUFFIX => "gz",
POSTOP => 'mv $(DISTNAME)-$(VERSION).tar.gz ../'
},
($] ge '5.005')
? (
'AUTHOR' => 'Daniel Yacob (Yacob@RCN.Com)',
'ABSTRACT' => 'URI Redirection and Forwarding for SOAP-Lite.',
)
: (),
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"} = '#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.012';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
$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
lib/SQL/Abstract/More.pm view on Meta::CPAN
# syntax for assembling all elements
my $syntax = $self->{join_syntax}{$join_spec->{operator}};
my ($sql, @bind);
{ no if $] ge '5.022000', warnings => 'redundant';
# because sprintf instructions may _intentionally_ omit %.. parameters
if ($join_spec->{using}) {
not $join_spec->{condition}
or puke "join specification has both {condition} and {using} fields";
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 => 'Address SVG images using cells of $n1 x $n2 pixels',
) : (),
clean =>
view release on metacpan or search on metacpan
lib/SVG/TT/Graph/TimeSeries.pm view on Meta::CPAN
my $self = shift;
# Need to set the timezone in order for x-axis labels to be
# formatted correctly by strftime:
$ENV{'TZ'} = $self->{config}->{timescale_time_zone};
POSIX::tzset() if ($] lt '5.008009');
# run through the data and calculate maximum and minimum values
my ($max_key_size,$max_time,$min_time,$max_value,$min_value,$max_x_label_length,$x_label);
foreach my $dataset (@{$self->{data}}) {
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
,'Tie::Persistent' => 0.901
,'User' => 1.05
,'XML::XPath' => 0.0
},
($] ge '5.005') ? (
'AUTHOR' => 'Glenn Wood http://search.cpan.org/search?mode=author&query=GLENNWOOD',
'ABSTRACT' => 'Scrape data from web search engines',
) : (),
);
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
'demo/circa_annuaire' ],
'clean' => { FILES => "*~ lib/Search/Circa/*~ lib/Search/*~ ".
"demo/circa_admin demo/circa_search demo/circa_annuaire ".
"lib/CircaConf.pm demo/cgi-bin/*.cgi demo/*~ demo/cgi-bin/*~".
".m .t"},
($] ge '5.005') ?
(
'AUTHOR' => 'Alain BARBET (alian@alianwebserver.com)',
'ABSTRACT' => 'Circa - a Search Engine/Indexer running with Mysql'
)
: ());
view release on metacpan or search on metacpan
lib/Search/Dict.pm view on Meta::CPAN
require Exporter;
my $fc_available;
BEGIN {
$fc_available = '5.015008';
if ( $] ge $fc_available ) {
require feature;
'feature'->import('fc'); # string avoids warning on old Perls <sigh>
}
}
lib/Search/Dict.pm view on Meta::CPAN
$size = do { seek($fh,0,2); my $s = tell($fh); seek($fh,0,0); $s }
unless defined $size;
$blksize ||= 8192;
$key =~ s/[^\w\s]//g if $dict;
if ( $fold ) {
$key = $] ge $fc_available ? fc($key) : lc($key);
}
# find the right block
my($min, $max) = (0, int($size / $blksize));
my $mid;
while ($max - $min > 1) {
lib/Search/Dict.pm view on Meta::CPAN
$_ = <$fh>;
$_ = $xfrm->($_) if defined $xfrm;
chomp;
s/[^\w\s]//g if $dict;
if ( $fold ) {
$_ = $] ge $fc_available ? fc($_) : lc($_);
}
if (defined($_) && $comp->($_, $key) < 0) {
$min = $mid;
}
else {
lib/Search/Dict.pm view on Meta::CPAN
or last;
$_ = $xfrm->($_) if defined $xfrm;
chomp;
s/[^\w\s]//g if $dict;
if ( $fold ) {
$_ = $] ge $fc_available ? fc($_) : lc($_);
}
last if $comp->($_, $key) >= 0;
}
seek($fh,$min,0);
$min;
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' => 'Build indexes for a set of search keys; Search using BerkeleyDB',
) : (),
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' => 'Build indexes for a set of search keys',
) : (),
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' => 'Arrays as objects with lots of handy methods',
) : (),
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 Set of Discrete Finite Automata',
) : (),
clean =>
view release on metacpan or search on metacpan
benchmark.pl view on Meta::CPAN
use strict;
use warnings;
use Benchmark qw/cmpthese timethese/;
use Sort::HashKeys;
use constant HASH_SLICE => $] ge "5.020";
my (@perl, @expr, @slce, @xs, %hash, %hash1, %hash2, %hash3, %hash4);
my @chars = ("A".."Z", "a".."z", "0".."9");
for (1..1000) {
view release on metacpan or search on metacpan
lib/Statistics/Distribution/Generator.pm view on Meta::CPAN
package Statistics::Distribution::Generator;
use 5.010;
BEGIN {
if ($] lt '5.012') {
use strict;
use warnings;
}
}
view release on metacpan or search on metacpan
$x = join '', map {chr $_} (0..1023);
is($x, ${thaw freeze \$x});
# Char in the range 127-255 (probably) in utf8. This just won't work for
# EBCDIC for early Perls.
$x = ($] lt 5.007_003) ? chr(175) : chr(utf8::unicode_to_native(175))
. chr (256);
chop $x;
is($x, ${thaw freeze \$x});
# Storable needs to cope if a frozen string happens to be internal utf8
view release on metacpan or search on metacpan
# configuration, but not in a very similar configuration.
$max_depth = int(0.6 * $max_depth);
$max_depth_hash = int(0.6 * $max_depth_hash);
my $stack_reserve = $^O eq "MSWin32" ? 32 : 16;
if ($] ge "5.016" && !($^O eq "cygwin" && $ptrsize == 8)) {
$max_depth -= $stack_reserve;
$max_depth_hash -= $stack_reserve;
}
else {
# within the exception we need another stack depth to recursively
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 a string into a directory name',
) : (),
clean =>
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
"version" => 0.050002,
};
my %dynamic_config;
do {
if ($] lt 5.010000) {
$meta->{prereqs}{runtime}{requires}{'MRO::Compat'} = 0;
}
if ($] lt 5.014000) {
$meta->{prereqs}{runtime}{requires}{'Devel::GlobalDestruction'} = 0;
}
};
view release on metacpan or search on metacpan
lib/Sub/Multi/Tiny/Util.pm view on Meta::CPAN
sub {
EOT
# XXX DEBUG: Some extra output to try to debug failures on earlier Perls.
$code .= _line_mark_string <<'EOT';
if( $] lt '5.018' || $VERBOSE > 1) {
require Data::Dumper;
require Test::More;
Test::More::diag(sprintf("Positional copier invocation %d:\n%s",
++$Sub::Multi::Tiny::Util::_positional_copier_invocation_number,
Data::Dumper->Dump([\@_],['copier_args'])));
lib/Sub/Multi/Tiny/Util.pm view on Meta::CPAN
" $_" } @vars;
$code .= _line_mark_string <<'EOT';
) = @_;
if( $] lt '5.018' || $VERBOSE > 1) {
Test::More::diag(sprintf("After positional copier invocation %d:",
$Sub::Multi::Tiny::Util::_positional_copier_invocation_number));
Test::More::diag(join "\n", map {
sprintf("%s = %s", $_, eval($_))
} @vars);
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
PREOP => 'bin/dist' },
'EXE_FILES' => [ map {"bin/$_"} @programs_to_install ],
'PREREQ_PM' => {
'XML::DOM' => 0, # requires XML::DOM (any version)
},
($] ge '5.005') ? (
'AUTHOR' => 'Brendan Quinn (brendan@clueful.com.au)',
'ABSTRACT' => 'A parser for the NITF textual news markup language.',
) : (),
);
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
PREOP => 'bin/dist' },
'EXE_FILES' => [ map {"bin/$_"} @programs_to_install ],
'PREREQ_PM' => {
'XML::DOM' => 0, # requires XML::DOM (any version)
},
($] ge '5.005') ? (
'AUTHOR' => 'Brendan Quinn (brendan@clueful.com.au)',
'ABSTRACT' => 'A parser for the NewsML news distribution markup language.',
) : (),
);
view release on metacpan or search on metacpan
inc/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
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
# the contents of the Makefile that is written.
WriteMakefile(
'NAME' => 'Task::Biodiverse',
'VERSION_FROM' => 'lib/Task/Biodiverse.pm', # finds $VERSION
($] ge '5.005') ? (
'AUTHOR' => 'Shawn Laffan (shawn.laffan@unsw.edu.au)',
'ABSTRACT' => 'Task for Biodiverse dependencies [DEPRECATED]',
) : (),
META_MERGE => {
'meta-spec' => { version => 2 },
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