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
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
inc/bundle/Module/Load/Conditional.pm view on Meta::CPAN
}
}
=back
=head2 @list = requires( MODULE );
C<requires> can tell you what other modules a particular module
requires. This is particularly useful when you're intending to write
a module for public release and are listing its prerequisites.
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
libsass/posix/getopt.c view on Meta::CPAN
optopt = long_options[match].val;
else
optopt = 0;
return (BADARG);
}
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) {
libsass/posix/getopt.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
copyright_holder = Bryan McKelvey
[EnsurePrereqsInstalled]
:version = 0.003
build_phase = release
type = requires
type = recommends
[Git::GatherDir]
exclude_filename = Makefile.PL
exclude_filename = LICENSE
view release on metacpan or search on metacpan
lib/Carrot/Modularity/Package/Loader.pm view on Meta::CPAN
{
no strict 'refs';
*{$pkg_name.'::PERL_FILE_LOADED'} =
\&Carrot::Meta::Greenhouse::PERL_FILE_LOADED;
}
$rv = require($pkg_file);
# maintain entries in a compatible way
$MODULES_LOADED{$relative_file} = delete($MODULES_LOADED{$pkg_file});
return(IS_TRUE);
} or do {
view release on metacpan or search on metacpan
t/lib/MyTest.pm view on Meta::CPAN
use JSON;
use base 'Exporter';
our @EXPORT = qw(test_json GET POST encode_json);
my $app = require MyApp;
sub POST {
my ($target, %args) = @_;
return HTTP::Request::Common::POST($target, %args, "Content-Type" => "application/json");
}
view release on metacpan or search on metacpan
[RecommendedPrereqs]
[AutoPrereqs]
[EnsurePrereqsInstalled]
:version = 0.003
type = requires
type = recommends
[Prereqs]
Catalyst = 5.90018
[Prereqs / TestRequires]
-phase = test
-relationship = requires
Plack::Middleware::MethodOverride = 0
[GitHub::Meta]
repo = git://github.com/robrwo/Catalyst-Plugin-DetachIfNotModified.git
view release on metacpan or search on metacpan
[RecommendedPrereqs]
[AutoPrereqs]
[EnsurePrereqsInstalled]
:version = 0.003
type = requires
type = recommends
[Prereqs / BuildRequires ]
-phase = build
-relationship = requires
ExtUtils::MakeMaker = 7.22
Module::Metadata = 1.000015
[Prereqs / Runtime]
-relationship = requires
Catalyst = 5
; This is required by Catalyst, but some test environments don't have it and fail
[Prereqs / TestRequires]
-phase = test
-relationship = requires
Plack::Middleware::MethodOverride = 0
[Prereqs / TestRecommends]
-phase = test
-relationship = recommends
view release on metacpan or search on metacpan
[RecommendedPrereqs]
[AutoPrereqs]
[EnsurePrereqsInstalled]
:version = 0.003
type = requires
type = recommends
[Prereqs]
Catalyst = 5.90123
Plack::Middleware::Statsd = v0.6.0
[InstallGuide]
[Prereqs / TestRequires ]
-phase = test
-relationship = requires
Net::Statsd::Tiny = v0.3.0
Plack::Middleware::MethodOverride = 0
; authordep Pod::Weaver::Plugin::AppendPrepend
; authordep Pod::Weaver::Section::Contributors
view release on metacpan or search on metacpan
t/aggregate/psgi_file.t view on Meta::CPAN
ok $? == 0, '.psgi compiles'
or diag $output;
# NOTE - YOU *CANNOT* do something like:
#my $psgi_ref = require $path;
# otherwise this test passes!
# I don't exactly know why that is yet, however, to be safe for future, that
# is why this test writes out its own .psgi file in a temp directory - so that that
# path has never been require'd before, and will never be require'd again..
view release on metacpan or search on metacpan
remove = Catalyst::Controller
[EnsurePrereqsInstalled]
:version = 0.003
type = requires
type = recommends
[GitHub::Meta]
repo = git@github.com:robrwo/Catalyst-TraitFor-Request-Methods-.git
[Prereqs]
Catalyst = 5.90090
[Prereqs / TestRequires ]
-phase = test
-relationship = requires
Plack::Middleware::MethodOverride = 0
; authordep Pod::Weaver::Plugin::AppendPrepend
; authordep Pod::Weaver::Section::Contributors
; authordep Pod::Weaver::Section::SourceGitHub
view release on metacpan or search on metacpan
lib/Catalyst/View/EmbeddedPerl/PerRequest.pm view on Meta::CPAN
required($required)
Returns a C<required> attribute string. Example usage:
<input type="text" <%= required($required) %> />
=head2 href
href(@href_parts)
view release on metacpan or search on metacpan
[Prereqs]
Catalyst = 0 ; This is not picked up by AutoPrereqs
[Prereqs / BuildRequires ]
-phase = build
-relationship = requires
ExtUtils::MakeMaker = 7.22
Module::Metadata = 1.000015
[EnsurePrereqsInstalled]
:version = 0.003
type = requires
type = recommends
; authordep Test::Warnings
; authordep Pod::Weaver::Plugin::AppendPrepend
view release on metacpan or search on metacpan
examples/catjson.lua view on Meta::CPAN
#!/usr/bin/env lua
-- requires dkjson http://chiselapp.com/user/dhkolf/repository/dkjson/home
local json = require ("dkjson")
for line in io.lines() do
local obj, pos, err = json.decode(line, 1, nil)
print(json.encode(obj))
end
view release on metacpan or search on metacpan
lib/Catmandu/Store/Solr/CQL.pm view on Meta::CPAN
#change term using callbacks
if (ref $op && $op->{cb}) {
my ($pkg, $sub) = @{$op->{cb}};
$self->log->debug(
"term '$term' changed to ${pkg}->${sub}");
$term = require_package($pkg)->$sub($term);
}
elsif ($q_mapping->{cb}) {
my ($pkg, $sub) = @{$q_mapping->{cb}};
$self->log->debug(
"term '$term' changed to ${pkg}->${sub}");
$term = require_package($pkg)->$sub($term);
}
}
}
view release on metacpan or search on metacpan
lib/Catmandu/Store/ElasticSearch/CQL.pm view on Meta::CPAN
if ($filter eq 'lowercase') {$term = lc $term;}
}
}
if (ref $op && $op->{cb}) {
my ($pkg, $sub) = @{$op->{cb}};
$term = require_package($pkg)->$sub($term);
}
elsif ($mapping->{cb}) {
my ($pkg, $sub) = @{$mapping->{cb}};
$term = require_package($pkg)->$sub($term);
}
$nested = $mapping->{nested};
}
view release on metacpan or search on metacpan
lib/Catmandu/Store/MongoDB/CQL.pm view on Meta::CPAN
}
#change term using callbacks
if (ref $op && $op->{cb}) {
my ($pkg, $sub) = @{$op->{cb}};
$term = require_package($pkg)->$sub($term);
}
elsif ($q_mapping->{cb}) {
my ($pkg, $sub) = @{$q_mapping->{cb}};
$term = require_package($pkg)->$sub($term);
}
}
#field search
my $unmasked
view release on metacpan or search on metacpan
lib/Catmandu/Store/OpenSearch/CQL.pm view on Meta::CPAN
if ($filter eq 'lowercase') {$term = lc $term;}
}
}
if (ref $op && $op->{cb}) {
my ($pkg, $sub) = @{$op->{cb}};
$term = require_package($pkg)->$sub($term);
}
elsif ($mapping->{cb}) {
my ($pkg, $sub) = @{$mapping->{cb}};
$term = require_package($pkg)->$sub($term);
}
$nested = $mapping->{nested};
}
view release on metacpan or search on metacpan
lib/Catmandu/Cmd/run.pm view on Meta::CPAN
sub command {
my ($self, $opts, $args) = @_;
if (defined $opts->{i} || !defined $args->[0]) {
my $pkg = require_package('Catmandu::Interactive');
my $app = Catmandu::Interactive->new();
$app->run();
}
else {
my $fix_file = $args->[0];
view release on metacpan or search on metacpan
;version_rel_month = 12
;version_rel_day = 11
;version_rel_hour = 19
;version_rel_time_zone = Pacific/Auckland
-phase = develop
-relationship = requires
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
Dist::Zilla::Plugin::BumpVersionAfterRelease = 0
view release on metacpan or search on metacpan
t/001_parse/lamba_function.res view on Meta::CPAN
{
"Type": "AWS::Lambda::Function",
"Properties": {
"Code": {
"ZipFile": {"Fn::Join": ["\n", [
"var aws = require('aws-sdk');",
"var config = new aws.ConfigService();",
"var ec2 = new aws.EC2();",
"exports.handler = function(event, context) {",
" compliance = evaluateCompliance(event, function(compliance, event) {",
view release on metacpan or search on metacpan
share/render.cjs view on Meta::CPAN
#!/usr/bin/env node
'use strict';
const { createCanvas } = require('canvas');
const echarts = require('echarts');
const { writeFile } = require('node:fs');
const { parseArgs } = require('node:util');
const args = parseArgs({
options: {
format: {
type: "string",
view release on metacpan or search on metacpan
share/plotly.js/plotly.min.js view on Meta::CPAN
* The buffer module from node.js, for the browser.
*
* @author Feross Aboukhadijeh <https://feross.org>
* @license MIT
*/
"use strict";var e=t("base64-js"),n=t("ieee754");r.Buffer=a,r.SlowBuffer=function(t){+t!=t&&(t=0);return a.alloc(+t)},r.INSPECT_MAX_BYTES=50;function i(t){if(t>2147483647)throw new RangeError('The value "'+t+'" is invalid for option "size"');var e=ne...
/*!
* Determine if an object is a Buffer
*
* @author Feross Aboukhadijeh <https://feross.org>
* @license MIT
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
# Load Farm Configuration
sub loadconfig {
my ($fname) = @_;
if ($farms && @$farms) {return($farms);}
eval {
$farms = require($fname);
};
if ($@) {die("No Farms Cached or config file found: $!\n");}
return($farms);
}
view release on metacpan or search on metacpan
# $Id: basics.t,v 1.9 2009-02-10 15:08:12 cantrelld Exp $
use strict;
use warnings;
my $dbfile = require 't/sqlite_create_db.pl';
END { unlink $dbfile; }
use Test::More tests => 20;
use File::Temp;
use File::Spec;
view release on metacpan or search on metacpan
remove = warnings
remove = base
[EnsurePrereqsInstalled]
:version = 0.003
type = requires
type = recommends
[GitHub::Meta]
repo = git://github.com/robrwo/Class-Method-Cache-FastMmap.git
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 @_ */