view release on metacpan or search on metacpan
|| $request->{headers}{'transfer-encoding'};
$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
view release on metacpan or search on metacpan
lib/Exporter/Almighty.pm view on Meta::CPAN
use parent qw( Exporter::Tiny );
my @builtins;
BEGIN { @builtins = qw( is_bool created_as_string created_as_number ) };
use if $] lt '5.036000', 'builtins::compat' => @builtins;
use if $] ge '5.036000', 'builtin' => @builtins;
no if $] ge '5.036000', 'warnings' => qw( experimental::builtin );
use B qw( perlstring );
use Carp qw( croak );
use Eval::TypeTiny qw( eval_closure set_subname );
use Exporter::Tiny qw( mkopt );
view release on metacpan or search on metacpan
lib/Exporter/Tiny.pm view on Meta::CPAN
our $AUTHORITY = 'cpan:TOBYINK';
our $VERSION = '1.006002';
our @EXPORT_OK = qw< mkopt mkopt_hash _croak _carp >;
BEGIN {
*_HAS_NATIVE_LEXICAL_SUB = ( $] ge '5.037002' )
? sub () { !!1 }
: sub () { !!0 };
*_HAS_MODULE_LEXICAL_SUB = ( $] ge '5.011002' and eval('require Lexical::Sub') )
? sub () { !!1 }
: sub () { !!0 };
};
sub _croak ($;@) { require Carp; my $fmt = shift; @_ = sprintf($fmt, @_); goto \&Carp::croak }
lib/Exporter/Tiny.pm view on Meta::CPAN
# Returns a coderef suitable to be used as a sub installer for lexical imports.
#
sub _exporter_lexical_installer {
_HAS_NATIVE_LEXICAL_SUB and return sub {
my ( $sigilname, $sym ) = @{ $_[1] };
no warnings ( $] ge '5.037002' ? 'experimental::builtin' : () );
builtin::export_lexically( $sigilname, $sym );
};
_HAS_MODULE_LEXICAL_SUB and return sub {
my ( $sigilname, $sym ) = @{ $_[1] };
( $sigilname =~ /^\w/ )
view release on metacpan or search on metacpan
t/010_module_build.t view on Meta::CPAN
use strict;
use Test::More;
BEGIN {
plan skip_all => 'no Module::Build' if !eval { require Module::Build; 1 };
plan skip_all => 'no ExtUtils::CBuilder' if !eval { require ExtUtils::CBuilder; 1 };
plan skip_all => 'perl 5.8.8 and EU::CBuilder bug if CC has "++"' if $ExtUtils::CBuilder::VERSION <= 0.280230 and $] lt '5.010';
}
use lib 't/lib';
use TestUtils;
diag "Module::Build version: $Module::Build::VERSION";
view release on metacpan or search on metacpan
bundled/CPAN-Meta/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 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 => 'Check, Add and Remove BOMs',
) : (),
clean =>
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
'PREREQ_PM' => {
'Digest::CRC' => '0.16',
'Digest::MD5' => '2.39',
'Math::Random::MT' => '1.10'
},
($] ge '5.005')
? (
'AUTHOR' => 'Colin Faber <cfaber@gmail.com>',
'ABSTRACT' => 'Very large file high speed finger printing and checksuming',
)
: (),
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use ExtUtils::MakeMaker;
WriteMakefile(
'NAME' => 'File::MMagic',
'VERSION_FROM' => 'MMagic.pm',
($] ge '5.005') ?
('AUTHOR' => 'NOKUBI Takatsugu <knok@daionet.gr.jp>',
'ABSTRACT' => 'Guess file type from contents',
) : (),
);
view release on metacpan or search on metacpan
t/00_smoke.t view on Meta::CPAN
use Test::More tests=>14; # remember to keep in sync with done_testing
BEGIN {
diag "This is Perl $] at $^X on $^O";
BAIL_OUT("Perl 5.8.1 is required") if $] lt '5.008001';
}
use FindBin ();
use lib $FindBin::Bin;
use File_Replace_Testlib;
view release on metacpan or search on metacpan
t/00_smoke.t view on Meta::CPAN
use Test::More tests=>11; # remember to keep in sync with done_testing
BEGIN {
diag "This is Perl $] at $^X on $^O";
BAIL_OUT("Perl 5.8.1 is required") if $] lt '5.008001';
}
use FindBin ();
use lib $FindBin::Bin;
use File_Replace_Testlib;
view release on metacpan or search on metacpan
lib/File/Replace.pm view on Meta::CPAN
# since this is just for internal typo prevention,
# we can fake it when it's not available
# uncoverable branch false
# uncoverable condition right
# uncoverable condition false
if ($] ge '5.010' || defined &Hash::Util::lock_ref_keys)
{ Hash::Util->import('lock_ref_keys') }
else { *lock_ref_keys = sub {} } # uncoverable statement
}
# For AUTHOR, COPYRIGHT, AND LICENSE see Replace.pod
view release on metacpan or search on metacpan
script/rsybak view on Meta::CPAN
# || $request->{headers}{'transfer-encoding'};
# $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
script/rsybak view on Meta::CPAN
#$escapes{' '}="+";
#my $unsafe_char = qr/[^A-Za-z0-9\-\._~]/;
#
#sub _uri_escape {
# my ($self, $str) = @_;
# if ( $] ge '5.008' ) {
# utf8::encode($str);
# }
# else {
# $str = pack("U*", unpack("C*", $str))
# if ( length $str == do { use bytes; length $str } );
script/rsybak 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;
script/rsybak 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);
script/rsybak 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
lib/File/Symlink/Relative.pm view on Meta::CPAN
use strict;
use warnings;
# OK, the following is probably paranoia. But if Perl 7 decides to
# change this particular default I'm ready. Unless they eliminate $].
no if $] ge '5.020', feature => qw{ signatures };
use Carp;
use Exporter qw{ import };
use File::Spec;
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
'LIBS' => ["-L$lib -lsmbclient"],
'OBJECT' => 'libauthSamba.o SmbClient.o',
'CCFLAGS' => $ccfl,
'PREREQ_PM' => { Test::More => 0},
'clean' => { FILES => "*~ config.status config.log config.h config.cache .c"},
($] ge '5.005') ?
(
'AUTHOR' => 'Alain BARBET (alian@alianwebserver.com)',
'ABSTRACT' => 'Filesys::SmbClient - Interface for access Samba filesystem with libsmclient.so'
)
: ()
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
WriteMakefile
(
'NAME' => 'Filesys::SmbClientParser',
'VERSION_FROM' => 'SmbClientParser.pm', # finds $VERSION
'PREREQ_PM' => { 'Test::Simple' => 0}, # e.g., Module::Name => 1.1
($] ge '5.005') ?
(
'AUTHOR' => 'Alain BARBET (alian@cpan.org)',
'ABSTRACT' => 'Perl client to reach Samba ressources '.
'with smbclient'
) : ()
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# the contents of the Makefile that is written.
WriteMakefile(
'NAME' => 'Filesys::Virtual::Chroot',
'VERSION_FROM' => 'lib/Filesys/Virtual/Chroot.pm', # finds $VERSION
'dist' => { COMPRESS => "gzip", SUFFIX=>"gz" },
($] ge '5.10')
? (
'AUTHOR' => 'Colin Faber <cfaber@fpsn.net>',
'ABSTRACT' => 'A virtualized chroot environment for advisory functions',
)
: (),
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# the contents of the Makefile that is written.
WriteMakefile(
'NAME' => 'Filesys::ZFS',
'VERSION_FROM' => 'lib/Filesys/ZFS.pm', # finds $VERSION
'dist' => { COMPRESS => "gzip", SUFFIX=>"gz" },
($] ge '5.10')
? (
'AUTHOR' => 'Colin Faber <cfaber@fpsn.net>',
'ABSTRACT' => 'An interface to zfs and zpool ZFS tools',
)
: (),
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
'HTTP::Daemon' => 0,
'HTTP::Response' => 0,
'HTTP::Status' => 0,
'IO::Socket::IP' => 0,
'IO::Socket::SSL' => 0,
$] ge '5.010' ? ( 'PDF::API2' => 2.036 ) : (),
(
$OSNAME eq 'cygwin'
? () : ( 'Test::CheckManifest' => 0.9 )
),
'Test::More' => 0,
view release on metacpan or search on metacpan
lib/Bio/Graphics/Browser2/Action.pm view on Meta::CPAN
my $q = shift;
my $name = $q->param('name');
my $settings = $self->settings;
my $snapshots = $self->session->snapshots;
warn "[$$] get snapshot $name: $snapshots->{$name}" if DEBUG;
%{$settings} = %{dclone $snapshots->{$name}{data}};
my @selected_tracks = $self->render->visible_tracks;
my $segment_info = $self->render->segment_info_object();
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# the contents of the Makefile that is written.
WriteMakefile(
'NAME' => 'GD::Graph::XY',
'VERSION' => '0.92',
'DISTNAME' => 'GDGraph-XY',
($] ge '5.005') ?
(
'AUTHOR' => 'George A. Fitch III (aka Gaffer), gaf3@gaf3.com',
'ABSTRACT' => 'XY Graphs for GD::Graph',
) : (),
'PREREQ_PM' =>
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# the contents of the Makefile that is written.
WriteMakefile(
'NAME' => 'GD::Graph::boxplot',
'VERSION' => '1.00',
'DISTNAME' => 'GDGraph-boxplot',
($] ge '5.005') ?
(
'AUTHOR' => 'Nigel Wright (nwright@hmc.edu)',
'ABSTRACT' => 'Produces PNG box and whisker graphs',
) : (),
'PREREQ_PM' =>
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
print "Using instrument drivers: @drivers\n\n";
WriteMakefile(
'NAME' => 'GPIB',
'DIR' => [@interfaces, @drivers],
'VERSION_FROM' => 'GPIB.pm', # finds $VERSION
($] ge '5.005') ? (
'AUTHOR' => 'Jeff Mock (jeff@mock.com)',
'ABSTRACT' => 'GPIB device control',
) : (),
);
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 => 'Eugene van der Pijll (pijll@gmx.net)',
ABSTRACT => 'Perl class for interpreting dates in Gedcom files',
) : (),
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 => 'Parse GEDCOM dates in French r/German/Gregorian/Hebrew/Julian',
) : (),
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 OS-independent processor for GEDCOM data',
) : (),
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 simple-to-use interface to Getopt::Long',
) : (),
clean =>
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
}
}
my(%params) =
(
($] ge '5.005') ?
(
AUTHOR => 'Leon Brocard <acme@astray.com>',
ABSTRACT => "Interface to AT&T's GraphViz. Deprecated. See GraphViz2",
) : (),
dist =>
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 => 'Provide various analyses of Graphviz dot files',
) : (),
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 Marpa-based parser for Graphviz dot files',
) : (),
clean =>
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
'NAME' => 'Graphics::ColorNames::Mozilla',
'VERSION_FROM' => 'Mozilla.pm',
'PREREQ_PM' => {
'Graphics::ColorNames' => 0.30,
},
($] ge '5.005') ? (
'AUTHOR' => 'Steve Pomeroy <xavier@cpan.org>',
'ABSTRACT' => 'RGB values for Mozilla\'s color names',
) : (),
);