view release on metacpan or search on metacpan
[@Basic]
[Prereqs / TestMoreDoneTesting]
-phase = test
-type = requires
Test::More = 0.88
[MetaConfig]
[MetaJSON]
view release on metacpan or search on metacpan
my $psgi = shift or usage();
my $method = shift or usage();
my $url = shift or usage();
my $app = require $psgi;
my $request = HTTP::Request->new($method, $url);
$request->header(%headers);
$request->dump(maxlength => 2000);
view release on metacpan or search on metacpan
examples/rotatingCube.pl view on Meta::CPAN
use Math::Trig qw/:pi tan/;
use Math::3Space qw/space vec3 perspective_projection/;
use FindBin qw/$Bin $Script/;
my $cube = require "$Bin/$Script.cube.pl";
my $wgpu = WebGPU::Direct->new;
my $width = 600;
my $height = 600;
view release on metacpan or search on metacpan
[Prereqs / TestNeeds]
-phase = test
Import::Into = 1.002003
[DynamicPrereqs]
-body = requires('JSON::XS', '4.02') if has_module('JSON::XS', '4.01') or !defined has_module('JSON::XS', '4.01');
view release on metacpan or search on metacpan
use strict;
use warnings;
use Test::More;
my $boss = require 't/prologue.pl';
is $boss->http_response, undef;
my $search = $boss->Web( q => 'sushi' );
isa_ok( $search, 'WebService::Yahoo::BOSS::Response' );
view release on metacpan or search on metacpan
share/web_page.js view on Meta::CPAN
WebPage.COMMANDS = ['currentUrl', 'find', 'nodeCall', 'documentSize'];
function WebPage(_native) {
var callback, _i, _len, _ref;
this["native"] = _native;
this["native"] || (this["native"] = require('webpage').create());
this._source = "";
this._errors = [];
this._networkTraffic = {};
this.frames = [];
this.sub_pages = {};
view release on metacpan or search on metacpan
EnumPrinters.xs view on Meta::CPAN
}
XSRETURN(items);
}
else {
if (required > buffer_size) {
buffer_size = required;
continue;
}
XSRETURN(0);
}
}
EnumPrinters.xs view on Meta::CPAN
XPUSHs(sv);
}
}
else {
if (required > buffer_size) {
buffer_size = required;
continue;
}
}
break;
}
view release on metacpan or search on metacpan
BOOL TryMapAndLoad (PCSTR name, PCSTR path, PLOADED_IMAGE loadedImage, int requiredMachineType)
{
BOOL success = MapAndLoad (name, path, loadedImage, FALSE, TRUE);
if (!success && GetLastError () == ERROR_FILE_NOT_FOUND)
success = MapAndLoad (name, path, loadedImage, TRUE, TRUE);
if (success && requiredMachineType != -1 && (int)loadedImage->FileHeader->FileHeader.Machine != requiredMachineType)
{
UnMapAndLoad (loadedImage);
return FALSE;
}
return success;
view release on metacpan or search on metacpan
eg/ProcessInfo.pl view on Meta::CPAN
usage: perl ProcInfo.pl [options] [pid ...]
where the allowed options are:
-b = brief (PIDs only - uses ListPids, not GetProcInfo)
-c = elapsed times in clunks (100-nanosecond intervals)
-d = formatted dates where applicable
-e = require an <Enter> to exit
-l = slow (lethargic)
-mx = report on machine x (valid only with variant WMI)
-nx = report on process name x (case-insensitive)
-p = pulist output
-rn = number of repeats to do
view release on metacpan or search on metacpan
cpp/overload.cpp view on Meta::CPAN
if( required != -1 )
{
if( allow_more && argc < required )
{ PUSHMARK(MARK); return false; }
if( !allow_more && argc != required )
{ PUSHMARK(MARK); return false; }
}
else if( argc < int(prototype.count) )
{ PUSHMARK(MARK); return false; }
view release on metacpan or search on metacpan
Bootstrap.PL view on Meta::CPAN
mkdir $DATA, 0777 unless -d $DATA;
XML::Edifact::open_dbm( $DATA, O_RDWR|O_CREAT );
#------------------------------------------------------------------------------#
$run=File::Spec->catdir("boot","segment.run"); $req_ok = require $run;
$run=File::Spec->catdir("boot","composite.run"); $req_ok = require $run;
$run=File::Spec->catdir("boot","element.run"); $req_ok = require $run;
$run=File::Spec->catdir("boot","annex_b.run"); $req_ok = require $run;
$run=File::Spec->catdir("boot","codes.run"); $req_ok = require $run;
$run=File::Spec->catdir("boot","dtd.run"); $req_ok = require $run;
#------------------------------------------------------------------------------#
XML::Edifact::close_dbm( );
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
libdwarf-code-0.11.1/src/bin/dwarfdump/print_die.c view on Meta::CPAN
}
if (required_tag) {
required_tag_name = get_TAG_name(required_tag,FALSE);
}
actual_tag_name = get_TAG_name(tag,FALSE);
if (required_tag && tag != required_tag) {
esb_append_printf_s(string_out,
"ERROR: %s incorrect target die tag ",
op_name);
esb_append_printf_s(string_out,
" Tag required: %s",required_tag_name);
view release on metacpan or search on metacpan
range-v3-0.12.0/include/meta/meta_fwd.hpp view on Meta::CPAN
template <typename T, typename U>
META_CONCEPT same_as =
META_CONCEPT_BARRIER(META_IS_SAME(T, U));
template <template <typename...> class C, typename... Ts>
META_CONCEPT valid = requires
{
typename C<Ts...>;
};
template <typename T, template <T...> class C, T... Is>
META_CONCEPT valid_i = requires
{
typename C<Is...>;
};
template <typename T>
META_CONCEPT trait = requires
{
typename T::type;
};
template <typename T>
META_CONCEPT invocable = requires
{
typename quote<T::template invoke>;
};
template <typename T>
META_CONCEPT list_like = is_v<T, list>;
// clang-format off
template <typename T>
META_CONCEPT integral = requires
{
typename T::type;
typename T::value_type;
typename T::type::value_type;
}
view release on metacpan or search on metacpan
libuv-1.49.2/docs/src/guide/threads.rst view on Meta::CPAN
which binds a third party library. It may go something like this:
1. In node, the third party library is set up with a JavaScript callback to be
invoked for more information::
var lib = require('lib');
lib.on_progress(function() {
console.log("Progress");
});
lib.do();
view release on metacpan or search on metacpan
LibYAML/scanner.c view on Meta::CPAN
if (parser->simple_key_allowed)
{
yaml_simple_key_t simple_key;
simple_key.possible = 1;
simple_key.required = required;
simple_key.token_number =
parser->tokens_parsed + (parser->tokens.tail - parser->tokens.head);
simple_key.mark = parser->mark;
if (!yaml_parser_remove_simple_key(parser)) return 0;
view release on metacpan or search on metacpan
LibYAML/scanner.c view on Meta::CPAN
if (parser->simple_key_allowed)
{
yaml_simple_key_t simple_key;
simple_key.possible = 1;
simple_key.required = required;
simple_key.token_number =
parser->tokens_parsed + (parser->tokens.tail - parser->tokens.head);
simple_key.mark = parser->mark;
if (!yaml_parser_remove_simple_key(parser)) return 0;
view release on metacpan or search on metacpan
etc/generate-examples.pl view on Meta::CPAN
use Data::Dumper;
use FindBin '$Bin';
use lib "$Bin/../lib";
use YAML::PP;
my $tests_perl = require "$Bin/../examples/schema-perl.pm";
my $tests_ixhash = require "$Bin/../examples/schema-ixhash.pm";
my $schema_perl_pm_file = "$Bin/../lib/YAML/PP/Schema/Perl.pm";
my $schema_ixhash_pm_file = "$Bin/../lib/YAML/PP/Schema/Tie/IxHash.pm";
my $yp = YAML::PP->new( schema => [qw/ JSON Perl Tie::IxHash /] );
view release on metacpan or search on metacpan
if (parser->simple_key_allowed)
{
yaml_simple_key_t simple_key;
simple_key.possible = 1;
simple_key.required = required;
simple_key.token_number =
parser->tokens_parsed + (parser->tokens.tail - parser->tokens.head);
simple_key.mark = parser->mark;
if (!yaml_parser_remove_simple_key(parser)) return 0;
view release on metacpan or search on metacpan
[=inc::Scripts]
;[Meta::Dynamic::Config]
;[DynamicPrereqs / OnWindows]
;-condition = $^O eq 'MSWin32'
;-body = requires('Filesys::DfPortable')
;[DynamicPrereqs / OnNotWindows]
;-condition = $^O ne 'MSWin32'
;-body = requires('Filesys::Df')
[Deprecated]
view release on metacpan or search on metacpan
lib/Yote/SQLObjectStore/MariaDB/TableManagement.pm view on Meta::CPAN
grep { $_->{count} }
fgrep { /Yote::.*::Obj/ }
glob "$path/*pm";
for my $mod (@perls) {
my @reqlist = requires( $mod );
if (grep { $_ eq 'Yote::SQLObjectStore::BaseObj' } @reqlist) {
push @mods, $mod;
}
}
view release on metacpan or search on metacpan
bin/zild-make-cpan view on Meta::CPAN
"$PERL" -spi -e 's{^#!/usr/bin/env perl}{#!/usr/bin/perl}' cpan/bin/*
fi
)
add-test-000() (
if [[ $($ZILD meta =zild/test-000) == require ]]; then
"$PERL" -S zild-render-template \
test/000-require-modules.t \
cpan/t/000-require-modules.t
elif [[ $($ZILD meta =zild/test-000) == none ]]; then
true # Nothing
view release on metacpan or search on metacpan
FunctionalTests/GR01-test-swedish-language.js view on Meta::CPAN
var main_url = 'http://zonemaster.rd.nic.fr:5080/';
var x = require('casper').selectXPath;
casper.test.begin('Zonemaster test GR01 - [Supports Swedish language]', 3, function suite(test) {
casper.start();
casper.thenOpen(main_url, function(response) {
view release on metacpan or search on metacpan
stdlib/test-modules/test/worker_contract.zzm view on Meta::CPAN
return Worker;
}
function require_worker_phase ( Number phase ) {
let Worker := require_worker();
return Worker;
}
async function await_worker_failure ( task ) {
try {
view release on metacpan or search on metacpan
t/01basic.t view on Meta::CPAN
# overloading already aliased module
eval "use strict as => 'Foo'";
like $@, qr#^Cannot alias 'Foo' to 'strict': already aliased to 'Bar'#;
my $return = require $foopl;
is $return, $zippo;
is $TESTING::require, $zippo;
undef $TESTING::require;
ok unlink $foopl;
view release on metacpan or search on metacpan
[DynamicPrereqs]
-raw_from_file = Makefile.depends
[DynamicPrereqs/LSRH]
-condition = "$]" < 5.012
-body = requires('Lexical::SealRequireHints', 0.005)
[@Starter]
-remove = GatherDir
[Prereqs / BuildRequires]
view release on metacpan or search on metacpan
src/dlib/cmd_line_parser/cmd_line_parser_check_1.h view on Meta::CPAN
{
sout << "Command line error: The '" << narrow(opt) << "' option requires the presence of "
<< "one of the following options: ";
for (unsigned long i = 0; i < required_opts.size(); ++i)
{
if (i == required_opts.size()-2)
sout << "'" << required_opts[i] << "' or ";
else if (i == required_opts.size()-1)
sout << "'" << required_opts[i] << "'.";
else
sout << "'" << required_opts[i] << "', ";
}
}
view release on metacpan or search on metacpan
src/dlib/cmd_line_parser/cmd_line_parser_check_1.h view on Meta::CPAN
{
sout << "Command line error: The '" << narrow(opt) << "' option requires the presence of "
<< "one of the following options: ";
for (unsigned long i = 0; i < required_opts.size(); ++i)
{
if (i == required_opts.size()-2)
sout << "'" << required_opts[i] << "' or ";
else if (i == required_opts.size()-1)
sout << "'" << required_opts[i] << "'.";
else
sout << "'" << required_opts[i] << "', ";
}
}
view release on metacpan or search on metacpan
t/02_fatal.t view on Meta::CPAN
#-----------------------------------------------------------------------------
sub test_with_criticism_fatal {
my $module_path = "$test_lib_dirname/WithCriticismFatal.pm";
my ($eval_error, $stderr_text) = require_file_and_catch_errors($module_path);
like($eval_error, qr/compilation aborted/, 'Load fails when criticism is fatal');
like($stderr_text, qr/Code before strictures/, 'criticism emitted warnings');
}
sub test_without_criticism_fatal {
my $module_path = "$test_lib_dirname/WithoutCriticismFatal.pm";
my ($eval_error, $stderr_text) = require_file_and_catch_errors($module_path);
is($eval_error, q{}, 'Load succeeds when criticism is not fatal');
like($stderr_text, qr/Code before strictures/, 'criticism emitted warnings');
}
view release on metacpan or search on metacpan
#
# load driver
#
sub test_load_dbd {
my $ok = require DBD::RDB;
check( $ok, 'require of DBD::RDB' );
}
#
# try to connect to a non existing database, expect error