view release on metacpan or search on metacpan
src/googleurl/src/url_canon_icu.cc view on Meta::CPAN
output->set_length(begin_offset + required_capacity);
return;
}
// Output didn't fit, expand
dest_capacity = required_capacity;
output->Resize(begin_offset + dest_capacity);
} while (true);
}
// Converts the Unicode input representing a hostname to ASCII using IDN rules.
view release on metacpan or search on metacpan
udpipe/udpipe.cpp view on Meta::CPAN
}
// Compute error vector
w.error_outcomes.resize(outcomes_size);
for (unsigned i = 0; i < outcomes_size; i++)
w.error_outcomes[i] = (i == required_outcome) - w.outcomes[i];
// Backpropagate error_outcomes to error_hidden
w.error_hidden.assign(hidden_layer_size, 0);
for (auto&& i : w.hidden_kept)
for (unsigned j = 0; j < outcomes_size; j++)
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
lib/Valence.pm view on Meta::CPAN
=head2 BROWSER TO PERL
In order for the browser to send a message to your perl code, it should execute something like the following javascript code:
var ipcRenderer = require('electron').ipcRenderer;
ipcRenderer.send('my-event', 'my message');
On the perl side, you receive these messages like so:
my $ipcMain = $electron->attr('ipcMain');
lib/Valence.pm view on Meta::CPAN
my $web_contents = $main_window->attr('webContents');
$web_contents->send('my-event' => 'my message');
And the javascript side can receive these messages like so:
var ipcRenderer = require('electron').ipcRenderer;
ipcRenderer.on('my-event', function(event, message) {
console.log(message); // prints 'my message'
});
=head2 IPC READY EVENTS
view release on metacpan or search on metacpan
lib/WWW/Mechanize/PhantomJS.pm view on Meta::CPAN
sub document {
$_[0]->driver->find_element('html','tag_name');
}
# If things get nasty, we could fall back to PhantomJS.webpage.plainText
# var page = require('webpage').create();
# page.open('http://somejsonpage.com', function () {
# var jsonSource = page.plainText;
sub decoded_content {
$_[0]->driver->get_page_source
};
view release on metacpan or search on metacpan
wasm3/platforms/emscripten_lib/run_native.js view on Meta::CPAN
'use strict';
if (typeof(process) != 'undefined') { // Node.js environment?
var scriptArgs = process.argv.slice(2);
const fs = require('fs');
var readFile = (fn) => new Uint8Array(fs.readFileSync(fn));
} else {
var readFile = (fn) => read(fn, 'binary');
}
view release on metacpan or search on metacpan
[Prereqs]
FFI::Platypus::Type::PtrObject = 0.02
[DynamicPrereqs / AlienWasmtime]
-condition = do { use FFI::CheckLib 0.26; !find_lib lib => 'wasmtime', symbol => ['wasmtime_func_as_funcref'] }
-body = requires('Alien::wasmtime', '0.17')
[Author::Plicease::Upload]
cpan = 1
[InsertExample]
view release on metacpan or search on metacpan
share/files/public/skins/default/jquery-ui-1.9.1.custom/development-bundle/external/globalize.culture.de-DE.js view on Meta::CPAN
if ( typeof require !== "undefined"
&& typeof exports !== "undefined"
&& typeof module !== "undefined" ) {
// Assume CommonJS
Globalize = require( "globalize" );
} else {
// Global variable
Globalize = window.Globalize;
}
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