\$\] *[gl][te] results from the 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 all matches for this distribution

CGI-Session-ExpireSessions

1 match


# ----------------------

my(%params) =
(
	($] ge '5.005') ?
	(
		'AUTHOR'	=> 'Ron Savage (ron@savage.net.au)',
		'ABSTRACT'	=> 'Expires CGI::Session db-based and file-based sessions',
    ) : (),
	clean =>

view all matches for this distribution

CGI-Session-MembersArea

1 match

# 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 all matches for this distribution

CGI-Snapp-Demo-Four

1 match

# 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 all matches for this distribution

CGI-Snapp-Demo-One

1 match

# 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 all matches for this distribution

CGI-Snapp-Demo-Three

1 match

# 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 all matches for this distribution

CGI-Snapp-Demo-Two

1 match

# 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 all matches for this distribution

CGI-Snapp-Dispatch

1 match

# 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 all matches for this distribution

CGI-Snapp

1 match

# 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 all matches for this distribution

CGI-State

1 match

);

#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 all matches for this distribution

CGI-WML

1 match


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 all matches for this distribution

CPAN-Meta-Requirements

1 match

t/from-hash.t view on Meta::CPAN

  );
}

SKIP: {
  skip "Can't tell v-strings from strings until 5.8.1", 1
    unless $] gt '5.008';
  my $string_hash = {
    Left   => 10,
    Shared => '= 2',
    Right  => 18,
  };

t/from-hash.t view on Meta::CPAN

  );
}

SKIP: {
  skip "Can't tell v-strings from strings until 5.8.1", 2
    unless $] gt '5.008';
  my $string_hash = {
    Left   => 10,
    Shared => v50.44.60,
    Right  => 18,
  };

view all matches for this distribution

CPAN-Meta

1 match

lib/CPAN/Meta.pm view on Meta::CPAN


sub save {
  my ($self, $file, $options) = @_;

  my $version = $options->{version} || '2';
  my $layer = $] ge '5.008001' ? ':utf8' : '';

  if ( $version ge '2' ) {
    carp "'$file' should end in '.json'"
      unless $file =~ m{\.json$};
  }

view all matches for this distribution

CPAN

1 match

    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 all matches for this distribution

CPANPLUS

1 match

                $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

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 } );


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;

        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);

        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 all matches for this distribution

Capture-Tiny-Extended

1 match

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 all matches for this distribution

Carp

2 results

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 all matches for this distribution

Class-Plain

1 match

t/method.t view on Meta::CPAN

   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 all matches for this distribution

Config-Plugin-Tiny

1 match

# 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 all matches for this distribution

Config-Plugin-TinyManifold

1 match

# 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 all matches for this distribution

Config-Simple-Conf

1 match

# 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 all matches for this distribution

Config-Tiny-Ordered

1 match

# 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 all matches for this distribution

Convert-Base32

1 match

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 all matches for this distribution

Crypt-PGPSimple

1 match

  # 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 all matches for this distribution

Crypt-PasswdMD5

1 match

# 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 all matches for this distribution

DBD-DB2

1 match

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 all matches for this distribution

DBIx-Admin-BackupRestore

1 match

# 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 all matches for this distribution

DBIx-Admin-CreateTable

1 match

# 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 all matches for this distribution

DBIx-Admin-DSNManager

1 match

# 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 =>

view all matches for this distribution

DBIx-Admin-TableInfo

1 match