view release on metacpan or search on metacpan
ffi/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
[AutoPrereqs]
[DynamicPrereqs]
-condition = is_os('MSWin32')
-body = requires('Win32::Locale', 0 )
[Prereqs / Recommended]
-relationship = recommends
Task::Lingua::Any::Numbers = 0.11
view release on metacpan or search on metacpan
[Prereqs]
[EnsurePrereqsInstalled]
:version = 0.003
type = requires
type = recommends
[GitHub::Meta]
repo = git://github.com/robrwo/Lingua-Conjunction.git
view release on metacpan or search on metacpan
lib/Lingua/EN/Inflexion/Term.pm view on Meta::CPAN
}
# Conversions to ordinal and cardinal numbers (with module loaded on demand)...
my $num2word = sub {
state $load = require Lingua::EN::Nums2Words && Lingua::EN::Nums2Words::set_case('lower');
Lingua::EN::Nums2Words::num2word(@_);
};
my $num2word_short_ordinal = sub {
state $load = require Lingua::EN::Nums2Words && Lingua::EN::Nums2Words::set_case('lower');
Lingua::EN::Nums2Words::num2word_short_ordinal(@_);
};
my $num2word_ordinal = sub {
state $load = require Lingua::EN::Nums2Words && Lingua::EN::Nums2Words::set_case('lower');
Lingua::EN::Nums2Words::num2word_ordinal(@_);
};
# These words may need an "and" before them...
my $LAST_WORD = qr{
lib/Lingua/EN/Inflexion/Term.pm view on Meta::CPAN
sub cardinal {
my $value = $term_of{ shift() };
my $max_trans = shift();
# Load the necessary module, and compensate for its persnicketiness...
state $load = require Lingua::EN::Words2Nums;
local $SIG{__WARN__} = sub{};
# Make sure we have a number...
$value = Lingua::EN::Words2Nums::words2nums($value) // $value;
lib/Lingua/EN/Inflexion/Term.pm view on Meta::CPAN
sub ordinal {
my $value = $term_of{ shift() };
my $max_trans = shift();
# Load the necessary module, and compensate for its persnicketiness...
state $load = require Lingua::EN::Words2Nums;
local $SIG{__WARN__} = sub{};
# Make sure we have a number...
$value = Lingua::EN::Words2Nums::words2nums($value) // $value;
view release on metacpan or search on metacpan
t/fibonacci2.t view on Meta::CPAN
require "t/common.pl";
my $expect = join("",<DATA>);
my $buffer = tie *OUT, 'Handle';
select OUT;
my $ok = require "examples/fibonacci2.spl";
select STDOUT;
ok($ok);
is($$buffer,$expect);
__DATA__
view release on metacpan or search on metacpan
lib/Linux/DVB/DVBT/Apps/QuartzPVR/Config/PHP.pm view on Meta::CPAN
# # Include settings into this namespace
# $line = "use PHP;\n" ;
# $line .= "require_php('$php', $namespace);" ;
##$line = '' ;
$line = require_php($php, $namespace);
}
else
view release on metacpan or search on metacpan
remove = Devel::GlobalDestruction
remove = Mite::Project
[EnsurePrereqsInstalled]
:version = 0.003
type = requires
type = recommends
[GitHub::Meta]
repo = git://github.com/robrwo/Linux-Statm-Tiny.git
view release on metacpan or search on metacpan
t/common.pl view on Meta::CPAN
# strict clean) if CopSTASH_ne(PL_curcop, GvSTASH(dest)), where dest is the SV
# to be copied to returns true. This is the case when the current control ops
# (PL_curcop) namespace doesn't match the namespace of the destination SV..
# See sv.c line 3776 (5.8.8).
my $conf = require 't/config.pl';
my $caller = (caller())[0];
while (my ($key, $val) = each(%{ $conf })) {
no strict 'refs';
*{ "${caller}::${key}" } = \$val;
view release on metacpan or search on metacpan
Devel::CallChecker = 0
Devel::CallParser = 0
[DynamicPrereqs]
:version = 0.018
-body = requires('B::Hooks::EndOfScope') if "$]" < '5.013008';
[MakeMaker::Awesome]
:version = 0.26
header = use lib 'inc';
header = use MMHelper;
view release on metacpan or search on metacpan
Test::LeakTrace = 0
Tie::Array = 0
[DynamicPrereqs]
:version = 0.029
-body = requires('List::SomeUtils::XS', '0.54') if !want_pp() and can_xs();
view release on metacpan or search on metacpan
lib/Log/Dispatch/Perl.pm view on Meta::CPAN
'' => sub { undef },
carp => $havecarp
? \&Carp::carp
: sub {
$havecarp ||= require Carp;
$ACTION2CODE{carp}= \&Carp::carp;
goto &Carp::carp;
},
cluck => $] < 5.008
? sub {
$havecarp ||= require Carp;
( my $m= Carp::longmess() )
=~ s#\s+Log::Dispatch::[^\n]+\n##sg;
return CORE::warn $_[0] . $m;
}
: sub {
$havecarp ||= require Carp;
return CORE::warn $_[0] . Carp::longmess();
},
confess => $] < 5.008
? sub {
$havecarp ||= require Carp;
( my $m = Carp::longmess() )
=~ s#\s+Log::Dispatch::[^\n]+\n##sg;
return CORE::die $_[0] . $m;
}
: sub {
$havecarp ||= require Carp;
return CORE::die $_[0] . Carp::longmess();
},
croak => $havecarp
? \&Carp::croak
: sub {
$havecarp ||= require Carp;
$ACTION2CODE{croak}= \&Carp::croak;
goto &Carp::croak;
},
die => sub { CORE::die @_ },
view release on metacpan or search on metacpan
[Prereqs / TestRecommends]
[EnsurePrereqsInstalled]
:version = 0.003
type = requires
type = recommends
[GitHub::Meta]
repo = git://github.com/robrwo/Log-Dispatch-TAP.git
view release on metacpan or search on metacpan
[RecommendedPrereqs]
[AutoPrereqs]
[Prereqs / BuildRequires ]
-phase = build
-relationship = requires
ExtUtils::MakeMaker = 7.22
Module::Metadata = 1.000015
[Prereqs / DevelopRequires ]
-phase = develop
-relationship = requires
Software::Security::Policy::Individual = 0.10
Test::CVE = 0.11
Test2::Require::AuthorTesting = 0
[SecurityPolicy]
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/Log/Shiras/Unhide.pm view on Meta::CPAN
$ENV{loaded_filter_util_call} = 1;
# Check for Filter::Util::Call availability
warn "Attempting to strip leading qr/###$Log::Shiras::Unhide::strip_match/" if IMPORT_DEBUG;
my $FILTER_MODULE = "Filter::Util::Call";
my $require_result;
eval{ $require_result = require_module( 'Filter::Util::Call' ) };# require_module( $FILTER_MODULE ) };#
if( $require_result and ($require_result == 1 or $require_result eq $FILTER_MODULE) ) {
$ENV{loaded_filter_util_call} = 1;
# Strip the top level script
Filter::Util::Call::filter_add(
sub {
view release on metacpan or search on metacpan
lib/Lugh.xs view on Meta::CPAN
lt->tensor = tensor;
lt->grad = NULL;
lt->context_id = context_id;
lt->id = id;
lt->active = 1;
lt->requires_grad = requires_grad;
lt->backward_op = LUGH_BACKWARD_NONE;
lt->n_inputs = 0;
lt->is_leaf = true; /* Default: leaf tensor */
lt->grad_accumulated = false;
view release on metacpan or search on metacpan
miniaudio/miniaudio.h view on Meta::CPAN
framesToReadThisIterationIn = intermediaryBufferCap;
}
ma_data_converter_get_required_input_frame_count(&pDevice->playback.converter, framesToReadThisIterationOut, &requiredInputFrameCount);
if (framesToReadThisIterationIn > requiredInputFrameCount) {
framesToReadThisIterationIn = requiredInputFrameCount;
}
if (framesToReadThisIterationIn > 0) {
ma_device__handle_data_callback(pDevice, pIntermediaryBuffer, NULL, (ma_uint32)framesToReadThisIterationIn);
}
miniaudio/miniaudio.h view on Meta::CPAN
if ((revents & POLLERR) != 0) {
ma_log_post(ma_device_get_log(pDevice), MA_LOG_LEVEL_ERROR, "[ALSA] POLLERR detected.");
return ma_result_from_errno(errno);
}
if ((revents & requiredEvent) == requiredEvent) {
break; /* We're done. Data available for reading or writing. */
}
}
return MA_SUCCESS;
miniaudio/miniaudio.h view on Meta::CPAN
bps = caps->enc[iEncoding].bps;
sig = caps->enc[iEncoding].sig;
le = caps->enc[iEncoding].le;
msb = caps->enc[iEncoding].msb;
format = ma_format_from_sio_enc__sndio(bits, bps, sig, le, msb);
if (format != requiredFormat) {
continue;
}
/* Getting here means the format is supported. Iterate over each channel count and grab the biggest one. */
for (iChannel = 0; iChannel < MA_SIO_NCHAN; iChannel += 1) {
miniaudio/miniaudio.h view on Meta::CPAN
bps = caps->enc[iEncoding].bps;
sig = caps->enc[iEncoding].sig;
le = caps->enc[iEncoding].le;
msb = caps->enc[iEncoding].msb;
format = ma_format_from_sio_enc__sndio(bits, bps, sig, le, msb);
if (format != requiredFormat) {
continue;
}
/* Getting here means the format is supported. Iterate over each channel count and grab the biggest one. */
for (iChannel = 0; iChannel < MA_SIO_NCHAN; iChannel += 1) {
miniaudio/miniaudio.h view on Meta::CPAN
channels = caps->pchan[iChannel];
} else {
channels = caps->rchan[iChannel];
}
if (channels != requiredChannels) {
continue;
}
/* Getting here means we have found a compatible encoding/channel pair. */
for (iRate = 0; iRate < MA_SIO_NRATE; iRate += 1) {
miniaudio/miniaudio.h view on Meta::CPAN
/* Fall back to a best guess. */
requiredInputFrameCount = (frameCountOutThisIteration * pConverter->resampler.sampleRateIn) / pConverter->resampler.sampleRateOut;
}
if (frameCountInThisIteration > requiredInputFrameCount) {
frameCountInThisIteration = requiredInputFrameCount;
}
}
#endif
if (pConverter->hasPreFormatConversion) {
miniaudio/miniaudio.h view on Meta::CPAN
/* Fall back to a best guess. */
requiredInputFrameCount = (frameCountOutThisIteration * pConverter->resampler.sampleRateIn) / pConverter->resampler.sampleRateOut;
}
if (frameCountInThisIteration > requiredInputFrameCount) {
frameCountInThisIteration = requiredInputFrameCount;
}
}
#endif
miniaudio/miniaudio.h view on Meta::CPAN
framesToReadThisIterationIn = intermediaryBufferCap;
}
ma_data_converter_get_required_input_frame_count(&pDecoder->converter, framesToReadThisIterationOut, &requiredInputFrameCount);
if (framesToReadThisIterationIn > requiredInputFrameCount) {
framesToReadThisIterationIn = requiredInputFrameCount;
}
if (requiredInputFrameCount > 0) {
result = ma_data_source_read_pcm_frames(pDecoder->pBackend, pIntermediaryBuffer, framesToReadThisIterationIn, &framesReadThisIterationIn);
} else {
view release on metacpan or search on metacpan
lib/MHonArc/CharMaps.pm view on Meta::CPAN
carp 'Warning: Unknown charset: ', $charset, "\n";
$map = $self->{'_maps'}{$charset} = {};
} else {
delete $INC{$file};
eval { $map = $self->{'_maps'}{$charset} = require $file; };
if ($@) {
carp 'Warning: ', $@, "\n";
$map = $self->{'_maps'}{$charset} = {};
}
}
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
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
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/corpus/badkey_11.txt view on Meta::CPAN
id ABC12345
for <mary@example.net>; 21 Nov 1997 10:05:43 -0600
Received: from machine.example by x.y.test; 21 Nov 1997 10:01:22 -0600
From: Jason Long <jlong@messiah.edu>
To: Nobody <nobody@messiah.edu>
Subject: dkim test (h= requires sha1, not sha256, so it should fail)
Date: Wed, 7 Dec 2005 09:11:00 -0500
Message-ID: <20051207091100@test.messiah.edu>
This is a test
More lines here
view release on metacpan or search on metacpan
spamc/getopt.c view on Meta::CPAN
free(opt);
return(longoptiserr(argc, argv, spamc_optind-1, OPTERRNF));
}
if(((strncmp(longopt+2, longopts[i].name, longoptlen)) == 0) && (strlen(longopts[i].name) == longoptlen)) {
*longindex = i;
if(longopts[i].has_arg == required_argument) {
if(((spamc_optind >= argc) || (!argv[spamc_optind]) || (argv[spamc_optind][0] == '-')) &&
(opt == NULL)) {
free(opt);
return(longoptiserr(argc, argv, spamc_optind-1, OPTERRARG));
}
view release on metacpan or search on metacpan
lib/MarpaX/ESLIF/BNF.pod view on Meta::CPAN
["errorf"] = function(self, fmts, ...) print(string.format("%-9s "..fmts, 'ERROR', ...)) end,
["criticalf"] = function(self, fmts, ...) print(string.format("%-9s "..fmts, 'CRITICAL', ...)) end,
["emergencyf"] = function(self, fmts, ...) print(string.format("%-9s "..fmts, 'EMERGENCY', ...)) end
}
local marpaESLIFLua = require 'marpaESLIFLua'
local marpaESLIFp = marpaESLIFLua.MarpaX::ESLIF::new(logger)
marpaESLIFGrammarp = marpaESLIFp:marpaESLIFGrammar_new([[
:default ::= action => ::shift
top ::= . => parameterizedRhs->(1)
view release on metacpan or search on metacpan
t/backbone-1.1.0.t view on Meta::CPAN
// Current version of the library. Keep in sync with `package.json`.
Backbone.VERSION = '1.1.0';
// Require Underscore, if we're on the server, and it's not already present.
var _ = root._;
if (!_ && (typeof require !== 'undefined')) _ = require('underscore');
// For Backbone's purposes, jQuery, Zepto, Ender, or My Library (kidding) owns
// the `$` variable.
Backbone.$ = root.jQuery || root.Zepto || root.ender || root.$;
view release on metacpan or search on metacpan
lib/Math/Base/Convert/Shortcuts.pm view on Meta::CPAN
$VERSION = do { my @r = (q$Revision: 0.05 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
# load bitmaps
my $xlt = require Math::Base::Convert::Bitmaps;
#
# base 2 4 8 16 32 64
# base power 1 2 3 4 5 6
# xlt = [ \@standardbases, undef, \%_2wide, undef, undef, \%_5wide, \%_6wide ];
view release on metacpan or search on metacpan
I<Evol.lua>, which is an exact translation of this Perl code into Lua.
The function names and arguments are unchanged,
except that I<text_evol> is not yet implemented.
Brief Synopsis:
local M = require 'Evol'
local function minimise(x) -- returns a number to be minimised
local sum = 1.0
for k,v in pairs(x) do sum = sum + v * v end
return sum
end
view release on metacpan or search on metacpan
int jt = 2;
double a_x[dim], a_rtol[dim], a_atol[dim];
double rwork[lrw];
int iwork[liw];
FILE *fp = PerlIO_findFILE(stream);
int maxStep = required_size(t, tout, dt);
double t1 = t + dt;
for(i=0;i<dim;i++){
SV** pv = av_fetch(x,i,0);
a_x[i] = SvNV(*pv);
pv = av_fetch(rtol,i,0);