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
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
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
view release on metacpan or search on metacpan
t/_gui/loadbook.gt view on Meta::CPAN
#BEGIN {
#use inc::loginit;
#}
my $package = require("./client/app.pl");
# NOTE: crash will typically happen here. If it does, we're dead in
# the water (probably a syntax error.)
my $app = eval {$package->new(); };
ok((not $@), "$package constructor") or
view release on metacpan or search on metacpan
; version_rel_day = 16
; version_rel_hour = 8
; 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
vendor/mruby/lib/mruby/gem.rb view on Meta::CPAN
define_gem_init_builder if @generate_functions
end
def add_dependency(name, *requirements)
default_gem = requirements.last.kind_of?(Hash) ? requirements.pop : nil
requirements = ['>= 0.0.0'] if requirements.empty?
requirements.flatten!
@dependencies << {:gem => name, :requirements => requirements, :default => default_gem}
end
view release on metacpan or search on metacpan
[@BINGOS]
[DynamicPrereqs]
-condition = can_cc()
-body = requires( 'POE::XS::Queue::Array' => 0.005 );
-body = if ( $^O eq 'linux' ) {
-body = requires( 'POE::XS::Loop::EPoll' => 1.001 );
-body = }
-body = elsif ( $^O =~ /^(MSWin32|darwin)$/ ) {
-body = requires( 'Event' => 0 );
view release on metacpan or search on metacpan
[@BINGOS]
[DynamicPrereqs]
-condition = can_cc()
-body = requires( 'POE::XS::Queue::Array' => 0.005 );
-body = if ( $^O eq 'linux' ) {
-body = requires( 'POE::XS::Loop::EPoll' => 1.001 );
-body = }
-body = elsif ( $^O =~ /^(MSWin32|darwin)$/ ) {
-body = requires( 'Event' => 0 );
view release on metacpan or search on metacpan
src/modules/perl/modperl_cmd.c view on Meta::CPAN
MP_TRACE_d(MP_FUNC, "push PerlPostConfigRequire for %s", arg);
require->file = arg;
require->dcfg = dcfg;
*(modperl_require_file_t **)
apr_array_push(scfg->PerlPostConfigRequire) = require;
return NULL;
}
static void modperl_cmd_addvar_func(apr_table_t *configvars,