view release on metacpan or search on metacpan
managesieve-test-account.sample view on Meta::CPAN
host = localhost
port = 2000
#user = name
#password = pwd
# next setting allows explicit STARTTLS test
#tls = require | yes/auto | no
# use next setting to skip TLS test at all
#tls = skip
#debug = 1
view release on metacpan or search on metacpan
$result;
}
# Check whether the Nessus Server is alive
my $cfg = require ".status";
my($host, $port) = ($cfg->{'nessus_host'}, $cfg->{'nessus_port'});
my $sock = IO::Socket::INET->new('PeerAddr' => $host,
'PeerPort' => $port,
'Proto' => 'tcp');
if (!$sock) {
view release on metacpan or search on metacpan
lib/Net/OAuth2Server/Request.pm view on Meta::CPAN
my $loaded;
sub from_psgi {
my ( $class, $env ) = ( shift, @_ );
my $body;
$body = do { $loaded ||= require Plack::Request; Plack::Request->new( $env )->content }
if ( $env->{'CONTENT_TYPE'} || '' ) =~ $ct_rx
and grep $env->{'REQUEST_METHOD'} eq $_, $class->request_body_methods;
$class->from(
$env->{'REQUEST_METHOD'},
$env->{'QUERY_STRING'},
view release on metacpan or search on metacpan
lib/Net/PublicSuffixList.pm view on Meta::CPAN
=cut
sub fetch_list_from_net ( $self ) {
return if $self->{no_net};
state $rc = require Mojo::UserAgent;
state $ua = Mojo::UserAgent->new;
my $path = catfile( $self->{cache_dir}, $self->default_local_file );
my $local_last_modified = (stat $path)[9];
my $headers = {};
view release on metacpan or search on metacpan
asn1/ber_tlv_length.c view on Meta::CPAN
required_size++;
else
break;
}
if(size <= required_size)
return required_size + 1;
*buf++ = (uint8_t)(0x80 | required_size); /* Length of the encoding */
/*
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
But, it's more interesting than that. You can load it with C<require>
and call C<arguments> to get the data structure it passes to
C<WriteMakefile>:
my $package = require '/path/to/Makefile.PL';
my $arguments = $package->arguments;
Note that C<require>-ing a file makes an entry in C<%INC> for exactly
that name. If you try to C<require> another file with the same name,
even from a different path, C<require> thinks it has already loaded
view release on metacpan or search on metacpan
remove = Type::Library
remove = Type::Utils
[Prereqs]
-phase = develop
-relationship = requires
Test::Vars = 0.015
[EnsurePrereqsInstalled]
:version = 0.003
type = requires
type = recommends
[GitHub::Meta]
repo = git://github.com/robrwo/Net-Statsd-Lite.git
view release on metacpan or search on metacpan
[RecommendedPrereqs]
[AutoPrereqs]
[EnsurePrereqsInstalled]
:version = 0.003
type = requires
type = recommends
[GitHub::Meta]
repo = git://github.com/robrwo/Net-Statsd-Tiny.git
view release on metacpan or search on metacpan
; version_rel_day = 12
; version_rel_hour = 20
; version_rel_time_zone = Pacific/Auckland
; auto_prereqs_skip = File::Find
-phase = develop
-relationship = requires
Dist::Zilla::Plugin::Author::KENTNL::CONTRIBUTING = 0.001003
Dist::Zilla::Plugin::Author::KENTNL::RecommendFixes = 0.004002
Dist::Zilla::Plugin::Author::KENTNL::TravisCI = 0.001002
Dist::Zilla::Plugin::Authority = 1.006
Dist::Zilla::Plugin::AutoPrereqs = 0
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
But, it's more interesting than that. You can load it with C<require>
and call C<arguments> to get the data structure it passes to
C<WriteMakefile>:
my $package = require '/path/to/Makefile.PL';
my $arguments = $package->arguments;
Note that C<require>-ing a file makes an entry in C<%INC> for exactly
that name. If you try to C<require> another file with the same name,
even from a different path, C<require> thinks it has already loaded
view release on metacpan or search on metacpan
FFI::CheckLib = 0.28
FFI::Platypus::Type::PtrObject = 0.02
[DynamicPrereqs / Alien]
-condition = do { require './lib/NewFangle/Lib.pm'; !NewFangle::Lib->lib }
-body = requires('Alien::libnewrelic', '0.06')
[PruneFiles]
filename = newrelic_sdk.log
[Author::Plicease::Thanks]
view release on metacpan or search on metacpan
src/http/modules/perl/ngx_http_perl_module.c view on Meta::CPAN
if (requires == NGX_CONF_UNSET_PTR) {
return NGX_OK;
}
script = requires->elts;
for (i = 0; i < requires->nelts; i++) {
require_pv((char *) script[i].data);
if (SvTRUE(ERRSV)) {
view release on metacpan or search on metacpan
eg/redis.js view on Meta::CPAN
var http = require ('http'),
redis = require ('redis');
var redisClient = redis.createClient ();
var srv = http.createServer (function (req, res) {
view release on metacpan or search on metacpan
[Prereqs]
Class::DBI = 0
[Prereqs / TR]
-type = requires
-phase = test
DBD::SQLite = 0
[Deprecated]
view release on metacpan or search on metacpan
t/lib/OI18nTest/CDBI.pm view on Meta::CPAN
package OI18nTest::CDBI;
use strict;
use warnings;
use base qw(Class::DBI::mysql);
my $cfg = require("dbi_connect.pl");
my $db = $ENV{DBI_DBNAME} || $cfg->{db};
my $table = $ENV{DBI_TABLE} || $cfg->{table};
my $user = $ENV{DBI_USER} || $cfg->{user};
my $password = $ENV{DBI_PASS} || $cfg->{password};
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
But, it's more interesting than that. You can load it with C<require>
and call C<arguments> to get the data structure it passes to
C<WriteMakefile>:
my $package = require '/path/to/Makefile.PL';
my $arguments = $package->arguments;
Note that C<require>-ing a file makes an entry in C<%INC> for exactly
that name. If you try to C<require> another file with the same name,
even from a different path, C<require> thinks it has already loaded
view release on metacpan or search on metacpan
t/Common.pm view on Meta::CPAN
sub method_fail_msg { return "because $_[0] can't $_[1]" }
sub TC { return 1 + TN() }
sub test_constructor {
my ($class, @args) = @_;
my $pass = require_ok( $class );
my $o;
SKIP: {
skip load_fail_msg($class), TC() - 1 unless $pass;
$o = test_new($class,@args);
}
view release on metacpan or search on metacpan
hax/make_argcheck_ops.c.inc view on Meta::CPAN
#endif
#define make_argcheck_ops(required, optional, slurpy, subname) S_make_argcheck_ops(aTHX_ required, optional, slurpy, subname)
static OP *S_make_argcheck_ops(pTHX_ int required, int optional, char slurpy, SV *subname)
{
int params = required + optional;
#ifdef HAVE_OP_ARGCHECK
UNOP_AUX_item *aux = make_argcheck_aux(params, optional, slurpy);
return op_prepend_elem(OP_LINESEQ, newSTATEOP(0, NULL, NULL),
hax/make_argcheck_ops.c.inc view on Meta::CPAN
OP *ret = NULL;
if(required > 0) {
SV *message = newSVpvf("Too few arguments for subroutine '%" SVf "'", subname);
/* @_ >= required or die ... */
OP *checkop =
newSTATEOP(0, NULL,
newLOGOP(OP_OR, 0,
newBINOP(OP_GE, 0,
/* scalar @_ */
view release on metacpan or search on metacpan
[Prereqs / DevelopRequires]
Perl::Critic = 1.156
[EnsurePrereqsInstalled]
:version = 0.003
type = requires
type = recommends
[GitHub::Meta]
repo = git://github.com/robrwo/Object-Signature-Portable.git
view release on metacpan or search on metacpan
t/jira/jira.json view on Meta::CPAN
}
},
"/rest/api/3/issue/{issueIdOrKey}/attachments": {
"post": {
"deprecated": false,
"description": "Adds one or more attachments to an issue. Attachments are posted as multipart/form-data ([RFC 1867](https://www.ietf.org/rfc/rfc1867.txt)).\n\nNote that:\n\n * The request must have a `X-Atlassian-Token: no-check` header, if ...
"operationId": "addAttachment",
"parameters": [
{
"description": "The ID or key of the issue that attachments are added to.",
"in": "path",
view release on metacpan or search on metacpan
template/show_label view on Meta::CPAN
[%- req = '' -%]
[% IF is_required -%]
[%- IF NOT required_display -%]
[%- required_display = OI.theme_properties.required -%]
[%- END -%]
[%- req = required_display -%]
[% END %]
[% pre_label %]<b>[% label %]</b>[% req %][% post_label %]
view release on metacpan or search on metacpan
lib/PAGI/Cookbook.pod view on Meta::CPAN
use warnings;
use Test2::V0;
use PAGI::Test::Client;
# Load your app
my $app = require './app.pl';
my $client = PAGI::Test::Client->new(app => $app);
subtest 'GET /' => sub {
my $res = $client->get('/');
is $res->status, 200, 'status is 200';
view release on metacpan or search on metacpan
lib/PAUSEx/Log.pm view on Meta::CPAN
this function will automatically pick up.
=cut
sub fetch_log ( $class, $user = $ENV{CPAN_USER}, $pass = $ENV{CPAN_PASS} ) {
state $rc = require Mojo::UserAgent;
state $ua = Mojo::UserAgent->new;
state $url_template = 'https://%s:%s@pause.perl.org/pause/authenquery?ACTION=tail_logfile&pause99_tail_logfile_1=5000&pause99_tail_logfile_sub=Tail+characters';
state $url = sprintf $url_template, $user, $pass;
my $tx = $ua->get( $url );
view release on metacpan or search on metacpan
lib/PDF/Builder/NamedDestination.pm view on Meta::CPAN
my ($location, @arglist, $ptr);
my %arg_counts = (
# key = location given by user
# [0] = required number of arguments, [1] = name for PDF
'xyz' => [3, 'XYZ' ], # s/b array ref
'fit' => [0, 'Fit' ], # 1 (scalar) ignored
'fith' => [1, 'FitH' ], # s/b scalar
'fitv' => [1, 'FitV' ], # s/b scalar
'fitr' => [4, 'FitR' ], # s/b array ref
lib/PDF/Builder/NamedDestination.pm view on Meta::CPAN
# nothing passed in?
if (!@args) { return @args; }
my %arg_counts = (
# key = location given by user
# value = required number of arguments
'xyz' => 3,
'fit' => 0,
'fith' => 1,
'fitv' => 1,
'fitr' => 4,
view release on metacpan or search on metacpan
matio-1.5.0/getopt/getopt_long.c view on Meta::CPAN
return (BADCH);
#else
return (BADARG);
#endif
}
if (long_options[match].has_arg == required_argument ||
long_options[match].has_arg == optional_argument) {
if (has_equal)
optarg = has_equal;
else if (long_options[match].has_arg ==
required_argument) {
matio-1.5.0/getopt/getopt_long.c view on Meta::CPAN
* optional argument doesn't use next nargv
*/
optarg = nargv[optind++];
}
}
if ((long_options[match].has_arg == required_argument)
&& (optarg == NULL)) {
/*
* Missing argument; leading ':' indicates no error
* should be generated.
*/
view release on metacpan or search on metacpan
-phase = runtime
-relationship = recommends
[Prereqs / TestRequires]
-phase = test
-relationship = requires
[Prereqs / AuthorDeps]
-phase = develop
-relationship = requires
[Test::Compile]
[ModuleBuild]
view release on metacpan or search on metacpan
Term::Encoding = 0
Term::UI = 0
[Prereqs / TestRequires]
-phase = test
-relationship = requires
Test::Most = 0
[Prereqs / AuthorDeps]
-phase = develop
-relationship = requires
IO::Socket::IP = 0
Module::Spy = 0
Test::MockModule = 0
Test::PostgreSQL = 0
Test::MockObject = 0
view release on metacpan or search on metacpan
-phase = develop
-relationship = recommends
[Prereqs / TestRequires]
-phase = test
-relationship = requires
Test::Most = 0
[Prereqs / AuthorDeps]
-phase = develop
-relationship = requires
Treex::Core = 0
[Test::Compile]
[ModuleBuild]
view release on metacpan or search on metacpan
footer = | close FH;
footer = |}
[DynamicPrereqs]
-condition = prompt_default_no('Do you want to enable optional TLS support ( requires POE::Component::SSLify )')
-body = requires('POE::Component::SSLify','0.10')
[Prereqs / ConfigureRequires]
ExtUtils::MakeMaker = 0
[Prereqs / BuildRequires]
view release on metacpan or search on metacpan
[@BINGOS]
[DynamicPrereqs]
-condition = prompt_default_no('Do you want encryption ( requires Mcrypt )')
-body = requires( 'Mcrypt' => '2.5.7.0' );
[Prereqs / TestRequires]
Test::More = 0.47
[Prereqs]