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 SQL into a JavaScript database',
) : (),
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' => 'Convert SQL to 2 linked HTML popup menus',
) : (),
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 => 'Convert db data to HTML popup menu or radio group',
) : (),
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' => 'Save a hash into a database table',
) : (),
clean =>
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
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 a database table into a hash',
) : (),
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 => 'Play with Tree and Tree::Persist a la DBIx::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.
my(%params) =
(
($] ge '5.005') ?
(
AUTHOR => 'B Jepson <bjepston@jepstone.net>',
ABSTRACT => 'Generate a tree from a self-referential database table',
) : (),
clean =>
view release on metacpan or search on metacpan
lib/Dancer2/Plugin/OpenAPI.pm view on Meta::CPAN
has main_api_module => (
is => 'ro',
lazy => 1,
from_config => 1,
default => sub {
return if $] lt '5.036000';
$Dancer2::Plugin::OpenAPI::FIRST_LOADED //= caller;
},
);
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# the contents of the Makefile that is written.
WriteMakefile(
'NAME' => 'Data::Deep',
'VERSION_FROM' => 'lib/Data/Deep.pm', # finds $VERSION
'LICENSE' => 'perl',
($] ge '5.004') ? (
'AUTHOR' => 'Matthieu Damerose (damo@cpan.org)',
'ABSTRACT' => 'Manipulation of Deep perl structure',
) : (),
);
view release on metacpan or search on metacpan
lib/Data/Domain.pm view on Meta::CPAN
my @msgs_call_args = ($name, $msg_id, @args);
shift @msgs_call_args if $USE_OLD_MSG_API; # because older versions did not pass the $name arg
# perl v5.22 and above warns if there are too many @args for sprintf.
# The line below prevents that warning
no if $] ge '5.022000', warnings => 'redundant';
# if there is a user-defined message, return it
if (defined $msgs) {
for (ref $msgs) {
/^CODE/ and return $msgs->(@msgs_call_args); # user function
view release on metacpan or search on metacpan
sub Dump {
return &Dumpxs
unless $Data::Dumper::Useperl || (ref($_[0]) && $_[0]->{useperl})
# Use pure perl version on earlier releases on EBCDIC platforms
|| (! $IS_ASCII && $] lt 5.021_010);
return &Dumpperl;
}
#
# dump the refs in the current dumper object.
view release on metacpan or search on metacpan
12.875
=cut
# Perl 5.10 introduced the ">" and "<" modifiers for pack which can be used to
# force a specific endianness.
if( $] lt '5.010' ) {
my $str = join('', unpack("H*", pack 'L' => 0x12345678));
if('78563412' eq $str) { # little endian, so reverse byteorder
*hexstr754_from_double = sub { return uc unpack('H*' => reverse pack 'd' => shift); };
*binstr754_from_double = sub { return uc unpack('B*' => reverse pack 'd' => shift); };
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' => 'Data::Lazy',
'VERSION_FROM' => 'Lazy.pm', # finds $VERSION
($] ge '5.005')
? (
'AUTHOR' => 'Jan Krynicky (Jenda@Krynicky.cz)',
'ABSTRACT' => 'Provides "lazy" scalars, arrays and 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.
WriteMakefile
(
($] ge '5.005') ?
(
'AUTHOR' => 'Ron Savage (ron@savage.net.au)',
'ABSTRACT' => 'Parse output of /lex a e/ command for the iSDC PABX',
) : (),
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' => 'Move thru data a page, or just an item, at a time',
) : (),
clean =>
view release on metacpan or search on metacpan
lib/Data/Printer/Filter/SCALAR.pm view on Meta::CPAN
use strict;
use warnings;
use Data::Printer::Filter;
use Scalar::Util;
use constant HAS_BOOLEAN => $] ge '5.036000';
filter 'SCALAR' => \&parse;
filter 'LVALUE' => sub {
my ($scalar_ref, $ddp) = @_;
my $string = parse($scalar_ref, $ddp);
view release on metacpan or search on metacpan
lib/Data/Roundtrip.pm view on Meta::CPAN
my $high = shift || "";
if ($high eq "iso8859") { # Doesn't escape the Latin1 printables
if ($Data_Dumper_IS_ASCII) {
s/([\200-\240])/'\\'.sprintf('%o',ord($1))/eg;
}
elsif ($] ge 5.007_003) {
my $high_control = utf8::unicode_to_native(0x9F);
s/$high_control/sprintf('\\%o',ord($1))/eg;
}
} elsif ($high eq "utf8") {
# Some discussion of what to do here is in
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 => 'Persistent session data management',
) : (),
clean =>
view release on metacpan or search on metacpan
lib/Data/UUID/MT.pm view on Meta::CPAN
sub CLONE { defined($_) && $_->reseed for @objects }
# HoH: $builders{$Config{uvsize}}{$version}
my %builders = (
'8' => {
'1' => ($] ge 5.010 ? '_build_64bit_v1' : '_build_64bit_v1_old' ),
'4' => ($] ge 5.010 ? '_build_64bit_v4' : '_build_64bit_v4_old' ),
'4s' => ($] ge 5.010 ? '_build_64bit_v4s' : '_build_64bit_v4s_old'),
},
'4' => {
'1' => '_build_32bit_v1',
'4' => '_build_32bit_v4',
'4s' => '_build_32bit_v4s',
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# the contents of the Makefile that is written.
WriteMakefile(
'NAME' => 'Date::Holidays::NZ',
'VERSION_FROM' => 'NZ.pm', # finds $VERSION
PREREQ_PM => { Date::Manip => 0 },
($] ge '5.005')
? (
'AUTHOR' => 'Sam Vilain (samv@cpan.org)',
'ABSTRACT' => 'Determine New Zealand public holidays'
)
: (),
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' => 'Convert MS Access dates into YYYYMMDD',
) : (),
clean =>
view release on metacpan or search on metacpan
) and @ARGV <= ( $opt{y} ? 1 : 2 ) or pod2usage( { -verbose => 0 } );
my $on_date;
if ( $opt{events} ) {
if ( $opt{accented} ) {
$] lt '5.008'
and die "-accented requires at least Perl 5.8\n";
$on_date = __PACKAGE__->can( '__on_date_accented' );
eval q<binmode STDOUT, ':encoding(utf-8)'>;
} else {
$on_date = __PACKAGE__->can( '__on_date' );
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
'DEFINE' => '-DSQLNETV2 -DSYSV -D$OS -DOS_UNIX',
'INC' => "$DM_INCLUDE $CPP_INCS",
'CCFLAGS' => $CCFLAGS,
# This makes 'make ppd' happy
($] ge '5.005')
? (
'AUTHOR' => 'M. Scott Roth (scott@dm-book.com)',
'ABSTRACT_FROM' => 'Documentum.pm',
)
: (),
view release on metacpan or search on metacpan
t/DebugStatementsTest.t view on Meta::CPAN
td '$hash', $r_spell, $d_spell;
td '$nestedhash', $r_spell, $d_spell;
td '$list[10]', $r_spell, $d_spell;
td '$hash{ten}', $r_spell, $d_spell;
my $warning = qr(WARNING:.*was given a reference to a variable instead of a single-quoted string);
if ( $] lt '5.018' ) {
#tsub 'd', '$scalar', $warning, 'scalar warning';
tdd { d( \$scalar ) } $warning, 'scalar warning'; # 5.18
}
#td '\$scalar', $warning, 'warning';
my $undefinedvar;
t/DebugStatementsTest.t view on Meta::CPAN
tdd { d('$listref->[$i]') } qr($header${vr}'?$listref->[$i]'?), '$listref->[$i]';
my $ref = 'flintstones';
tdd { d('$nestedhashref->{$ref}') } $rnf, '$nestedhashref->{flintstones}';
tdd { d('$Data::Dumper::Terse') } "$header \$Data::Dumper::Terse = 1\n", 'package variable';
my $allopt = 'bcenstz';
if ( $] lt '5.018' ) {
tdd { d('$scalar', $allopt) } qr($header At line undef:\s+[\$\@\%]\S+\s+=\s+'myvalue'\s+at\s+\S+), '$scalar with all options';
my $rlest = qr($header\s+At line undef:.*\d+.*\s+${lsort}\s+at\s+\S+);
my $rhest = qr($header\s+At line undef:.*\d+.*\s+${h}\s+at\s+\S+);
tdd { d('@list', $allopt) } $rlest, '@list with all options';
tdd { d('%hash', $allopt) } $rhest, '%hash with all options';
t/DebugStatementsTest.t view on Meta::CPAN
tdd { LS($0) } qr($header$rd), "File ls($0)";
$d = 1;
tdd { ls("filename_does_not_exist") } qr(does not exist), 'ls(filename_does_not_exist)';
tdd { ls('$filename') } qr(did not understand file name), "ls('\$filename') error";
tdd { ls($0) } qr($header$rd), "File ls($0)";
if ( $] lt '5.018' ) {
tdd { ls('.') } qr($header$rd), "Directory ls(.)";
tdd { ls("$0 $0") } qr($header$rd.*\n$header$rd), "ls($0 $0)";
tdd { ls("$0 .") } qr($header$rd.*\n$header$rd), "ls($0 .)";
##tdd { ls($filename), 2 } '', 'ls() with too high a debug level';
}
view release on metacpan or search on metacpan
lib/Devel/Command/DBSub/DB_5_8_6.pm view on Meta::CPAN
package Devel::Command::DBSub::DB_5_8_6;
sub import {
# Includes 5.8.6, 5.8.7 and 5.8.8.
# Also includes 5.9.2, 5.9.3 and 5.9.4.
if( $] gt "5.008005" or
( $] gt "5.009001" and
$] lt "5.009005"
)
) {
return \&DB::alt_586_DB;
}
else {
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
WriteMakefile(
'NAME' => 'Devel::Diagram',
'VERSION_FROM' => "lib/Devel/Diagram.pm",
'PREREQ_PM' => {
},
($] ge '5.005') ? (
'AUTHOR' => 'Glenn Wood http://search.cpan.org/search?mode=author&query=GLENNWOOD',
'ABSTRACT' => 'Discover the classes of an arbitrary suite of Perl modules',
) : (),
);
view release on metacpan or search on metacpan
t/testutil.pl view on Meta::CPAN
# Fatalize warnings, so that we don't introduce new warnings. But on early
# perls the burden of avoiding warnings becomes too large, and someone still
# trying to use such outmoded versions should be willing to accept warnings in
# our test suite.
$SIG{__WARN__} = sub { die "Fatalized: $_[0]" } if $] ge "5.6.0";
# This defines ASCII/UTF-8 vs EBCDIC/UTF-EBCDIC
$::IS_ASCII = ord 'A' == 65;
$TODO = 0;
view release on metacpan or search on metacpan
t/002-fixtures.t view on Meta::CPAN
$report_fname
and unlink $report_fname;
}
for my $file (glob "$FIXTURES/*.pl") {
next if $file eq "$FIXTURES/cover-05.pl" && $] lt '5.018000';
test_fixture($file);
}
done_testing;
view release on metacpan or search on metacpan
my $orig = $tzil->slurp_file('source/lib/DZT/Sample.pm');
my $next_re = _regex_for_version( q['], next_version($version) );
$next_re = qr/$next_re$/m;
local $TODO = 'qr/...$/m is broken before 5.10' if $] lt '5.010000';
if (!$c->{all_matching} || $version eq '0.001') {
like( $orig, $next_re, "version line updated in single-quoted source file" );
}
else {
unlike( $orig, $next_re, "version line not updated in source file - did not match release version");
like( $orig, qr/1;\s+# last line/,
"last line correct in single-quoted source file" );
$orig = $tzil->slurp_file('source/lib/DZT/DQuote.pm');
local $TODO = 'qr/...$/m is broken before 5.10' if $] lt '5.010000';
if (!$c->{all_matching} || $version eq '0.001') {
like( $orig, $next_re, "version line updated from double-quotes to single-quotes in source file");
}
else {
unlike( $orig, $next_re, "version line not updated in source file - did not match release version");
like( $orig, qr/1;\s+# last line/, "last line correct in revised source file" );
$orig = $tzil->slurp_file('source/lib/DZT/Mismatched.pm');
local $TODO = 'qr/...$/m is broken before 5.10' if $] lt '5.010000';
if ($c->{all_matching} && $version ne '0.003' && $version ne '0.004') {
unlike( $orig, $next_re, "version line not updated in source file - did not match release version");
}
else {