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' => 'A CGI::Session driver for ODBC',
) : (),
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' => 'A CGI::Session driver for Oracle',
) : (),
clean =>
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# ----------------------
my(%params) =
(
($] ge '5.005') ?
(
'AUTHOR' => 'Ron Savage (ron@savage.net.au)',
'ABSTRACT' => 'Expires CGI::Session db-based and file-based sessions',
) : (),
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' => 'A resource guardian based on CGI::Session',
) : (),
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 => 'A template-free demo of CGI::Snapp using Log::Handler::Plugin::DBI',
) : (),
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 => 'A template-free demo of CGI::Snapp using just 1 run mode',
) : (),
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 => 'A template-free demo of CGI::Snapp using the forward() method',
) : (),
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 => 'A template-free demo of CGI::Snapp using N run modes',
) : (),
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 => 'Dispatch requests to CGI::Snapp-based objects',
) : (),
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 almost back-compat fork of CGI::Application',
) : (),
clean =>
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
);
#Required to allow this module to build into a PPM package
#As specified at:
#http://www.activestate.com/Products/ActivePerl/docs/faq/ActivePerl-faq2.html#how_to_make_ppm_distribution
if($] ge '5.005') {
$config{AUTHOR} = 'Dan Kubb (dkubb@cpan.org)';
$config{ABSTRACT} = 'Converts CGI parameters into a multi-dimensional hash';
}
#Default Install Config
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
WriteMakefile(
'NAME' => 'CGI::WML',
'VERSION_FROM' => 'WML.pm', # finds $VERSION
'PREREQ_PM' => &check_dep(),
($] ge '5.005') ? (
'AUTHOR' => 'Angus Wood <angus@z-y-g-o.com>, Andy Murren <amurren@users.sourceforge.net>',
'ABSTRACT' => 'Subclass CGI.pm for WML output',
) : (),
);
view release on metacpan or search on metacpan
Changelog.ini view on Meta::CPAN
[V 1.17]
Date=2026-04-15T00:00:00
Comments= <<EOT
- Start work on stockpiling See also text at the start of each topic & <pre>...</pre>.
- Update Makefile.pl $] test from erroneous non-numeric ($] ge '5.005') to ($] >= 5.005).
- In this file replace all (' ' x 4) by a tab.
EOT
[V 1.16]
Date=2026-04-06T00:00:00
view release on metacpan or search on metacpan
Changelog.ini view on Meta::CPAN
[V 1.01]
Date=2026-04-06T00:00:00
Comments= <<EOT
- Add timing info to output during Import.populate_packages_table().
- Update Makefile.pl $] test from erroneous non-numeric ($] ge '5.005') to ($] >= 5.005).
- In this file replace all (' ' x 4) by a tab.
EOT
[V 1.00]
Date=2026-03-11T00:00:00
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
eval "require $interesting_module";
if (!$@) {
$prereq_pm->{$interesting_module} ||= 0;
}
}
unless (exists $prereq_pm->{"LWP::UserAgent"} && $] ge '5.006') {
# allow bootstrap with pure perl HTTP, but skip if we have LWP::UserAgent already installed
$prereq_pm->{'HTTP::Tiny'} = '0.005';
}
if ($HAVE_FILE_SPEC) {
view release on metacpan or search on metacpan
inc/bundle/HTTP/Tiny.pm view on Meta::CPAN
$request->{cb} = $args->{content};
}
}
elsif ( length $args->{content} ) {
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-type'} ||= "application/octet-stream";
$request->{headers}{'content-length'} = length $content
inc/bundle/HTTP/Tiny.pm view on Meta::CPAN
my $unsafe_char = qr/[^A-Za-z0-9\-\._~]/;
sub _uri_escape {
my ($self, $str) = @_;
return "" if !defined $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 } );
inc/bundle/HTTP/Tiny.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;
inc/bundle/HTTP/Tiny.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);
inc/bundle/HTTP/Tiny.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/lib/Cases.pm view on Meta::CPAN
#--------------------------------------------------------------------------#
my %texts = (
short => 'Hello World',
multiline => 'First line\nSecond line\n',
( $] lt "5.008" ? () : ( unicode => 'Hi! \x{263a}\n') ),
);
#--------------------------------------------------------------------------#
# fcn($perl_code_string) => execute the perl in current process or subprocess
#--------------------------------------------------------------------------#
view release on metacpan or search on metacpan
t/arg_regexp.t view on Meta::CPAN
sub lm { lmm() }
sub rx { qr/$_[0]/ }
# Use full generality on sufficiently recent versions. On early Perl
# releases, U+E9 is 0x51 on all EBCDIC code pages supported then.
my $e9 = sprintf "%02x", (($] ge 5.007_003)
? utf8::unicode_to_native(0xe9)
: ((ord("A") == 193)
? 0x51
: 0xE9));
my $xe9 = "\\x$e9";
view release on metacpan or search on metacpan
method where { sprintf "(%d,%d)", $self->{x}, $self->{y} }
}
# nested anon method (RT132321)
SKIP: {
skip "This causes SEGV on perl 5.16 (RT132321)", 1 if $] lt "5.018";
class RT132321 {
field _genvalue;
method new : common {
my $self = $class->SUPER::new(@_);
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 which uses Config::Tiny',
) : (),
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 plugin which uses Config::Tiny with 1 of N sections',
) : (),
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' => 'Config::Simple::Conf',
'VERSION_FROM' => 'lib/Config/Simple/Conf.pm', # finds $VERSION
'dist' => { COMPRESS => "gzip", SUFFIX=>"gz" },
($] ge '5.10')
? (
'AUTHOR' => 'Colin Faber <cfaber@fpsn.net>',
'ABSTRACT' => 'An advanced ini style configuration parser',
)
: (),
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 => 'Read/Write ordered .ini style files with as little code as possible',
) : (),
clean =>
view release on metacpan or search on metacpan
lib/Convert/Base32.pm view on Meta::CPAN
return pack('B*', $str);
}
if ($] lt '5.800000') {
require bytes;
*encode_base32 = \&encode_base32_pre58;
*decode_base32 = \&decode_base32_pre58;
} else {
*encode_base32 = \&encode_base32_perl58;
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' => 'Crypt::PGPSimple',
'VERSION_FROM' => 'PGPSimple.pm', # finds $VERSION
($] ge '5.005') ? (
'AUTHOR' => 'Jason Hinkle (jake67890@hotmail.com)',
'ABSTRACT' => 'Object-oriented interface to PGP',
) : (),
);
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 => 'Luis E. Munoz <luismunoz@cpan.org>',
ABSTRACT => 'Provide interoperable MD5-based crypt() functions',
) : (),
clean =>
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use DBI::DBD; # The DBI must be installed before we can build a DBD
my %opts = (
'NAME' => 'DBD::DB2',
'VERSION_FROM' => 'DB2.pm',
($] ge '5.005')
? ( 'AUTHOR' => 'DB2 Perl (db2perl@ca.ibm.com)',
'ABSTRACT' => 'Perl driver for IBM DB2 Universal Database', )
: (),
( $Config{archname} =~ /-object\b/i )
? ( 'CAPI' => 'TRUE', )
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 => 'Back-up all tables in a db to XML, and restore them',
) : (),
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 => 'Create and drop tables, primary indexes, and sequences',
) : (),
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 => 'Manage a file of DSNs, for both testing and production',
) : (),
clean =>