view release on metacpan or search on metacpan
lib/PDL/IO/Dcm/Plugins/MRISiemens.pm view on Meta::CPAN
} else {
$self->hdr->{ro}='y';
$self->hdr->{pe}='x';
}
}
if ($self->hdr->{orientation} eq 'Cor'){ # coronal slice
$self->hdr->{sl}='y';
if ($pe eq 'COL') {
$self->hdr->{ro}='x';
$self->hdr->{pe}='z';
} else {
view release on metacpan or search on metacpan
lib/PEF/Front/WebSocket.pm view on Meta::CPAN
</body>
</html>
# wstest.ini
[uwsgi]
plugins = coroae
chdir = /$PROJECT_DIR
logger = file:log/demo.log
psgi = bin/startup.pl
master = true
processes = 4
coroae = 1000
perl-no-plack = true
psgi-enable-psgix-io = true
uid = $PROJECT_USER
gid = www-data
chmod-socket = 664
view release on metacpan or search on metacpan
lib/PEF/Front/Oauth.pm view on Meta::CPAN
use HTTP::Request::Common;
use JSON;
use PEF::Front::Config;
use PEF::Front::Session;
my $coro_ae_lwp;
BEGIN {
if ($INC{'Coro/AnyEvent.pm'}) {
eval "use AnyEvent::HTTP::LWP::UserAgent";
$coro_ae_lwp = ($@) ? 0 : 1;
} else {
$coro_ae_lwp = 0;
}
}
sub _authorization_server {
die 'unimplemented base method';
lib/PEF/Front/Oauth.pm view on Meta::CPAN
if ($request->{code}) {
my $token_answer;
delete $self->{session}->data->{oauth_state};
$self->{session}->store;
my $exception;
if ($coro_ae_lwp && $Coro::main != $Coro::current) {
my $lwp_user_agent = AnyEvent::HTTP::LWP::UserAgent->new;
$lwp_user_agent->timeout(cfg_oauth_connect_timeout());
my $request = $self->_token_request($request->{code});
my $response = $lwp_user_agent->request($request);
$exception = "timeout" if !$response or !$response->decoded_content;
lib/PEF/Front/Oauth.pm view on Meta::CPAN
sub get_user_info {
my ($self) = @_;
my $info;
$self->{session}->store;
my $exception;
if ($coro_ae_lwp && $Coro::main != $Coro::current) {
my $lwp_user_agent = AnyEvent::HTTP::LWP::UserAgent->new;
$lwp_user_agent->timeout(cfg_oauth_connect_timeout());
my $response = $lwp_user_agent->request($self->_get_user_info_request);
if ($response && $response->decoded_content) {
$info = eval {decode_json $response->decoded_content};
view release on metacpan or search on metacpan
lib/POD2/RU/perlguts.pod view on Meta::CPAN
=head2 Putting a C value on Perl stack
A lot of opcodes (this is an elementary operation in the internal perl
stack machine) put an SV* on the stack. However, as an optimization
the corresponding SV is (usually) not recreated each time. The opcodes
reuse specially assigned SVs (I<target>s) which are (as a corollary)
not constantly freed/created.
Each of the targets is created only once (but see
L<Scratchpads and recursion> below), and when an opcode needs to put
an integer, a double, or a string on stack, it just sets the
lib/POD2/RU/perlguts.pod view on Meta::CPAN
example above it looks like:
$b ---> $c ---> + ---> $a ---> assign-to
But with the actual compile tree for C<$a = $b + $c> it is different:
some nodes I<optimized away>. As a corollary, though the actual tree
contains more nodes than our simplified example, the execution order
is the same as in our example.
=head2 Examining the tree
view release on metacpan or search on metacpan
- Console.pm: Dump hashes and arrays recursively
- Enable all debugging messages if $ENV{POCOIRC_DEBUG} is true
- Make the 'shutdown' event do more work for us, such as forcibly
disconnecting after a timeout if the server doesn't disconnect us
following a QUIT command
- Add an irc_raw_out event, corollary to irc_raw
- AutoJoin.pm: Don't require the component to be ::State
6.49 Sat Oct 16 19:05:25 GMT 2010
- Add draft-mitchell-irc-capabilities-02.html to docs/
- Fix incorrect number of skipped tests in 06_online.t in some cases
view release on metacpan or search on metacpan
(?&PerlBlock) $PPR::GRAMMAR
}x;
# Define a regex that will match a simple Perl extension...
my $perl_coroutine = qr{
# What to match...
coro (?&PerlOWS)
(?<coro_name> (?&PerlQualifiedIdentifier) ) (?&PerlOWS)
(?<coro_code> (?&PerlBlock) )
# Install the necessary subrules...
$PPR::GRAMMAR
}x;
view release on metacpan or search on metacpan
PostalCode.pm view on Meta::CPAN
'2350' => [
[ '051', '059', 'BROGUEIRA' ] ] },
'Atouguia' => {
'2350' => [
[ '471', '508', 'TORRES NOVAS' ] ] },
'Alcorochel' => {
'2350' => [
[ '001', '001', 'ALCOROCHEL' ] ] },
'Almonda' => {
'2350' => [
[ '817', '817', 'ZIBREIRA' ] ] },
PostalCode.pm view on Meta::CPAN
'2354' => [
[ '001', '001', 'ZIBREIRA' ] ] },
'Meziões' => {
'2350' => [
[ '405', '405', 'TORRES NOVAS' ] ] },
'Charneca de Alcorochel' => {
'2350' => [
[ '003', '003', 'ALCOROCHEL' ] ] },
'Além da Ribeira' => {
'2350' => [
[ '010', '014', 'ASSENTIZ TNV' ] ] },
view release on metacpan or search on metacpan
t/data/03modlist.data view on Meta::CPAN
'R',
'd',
'c',
'h',
'p',
'create an manage coroutines',
'MLEHMANN',
'20'
],
[
'PApp::SQL',
view release on metacpan or search on metacpan
lib/ParseUtil/Domain/ConfigData.pm view on Meta::CPAN
Return the compiled regex.
=cut
sub tld_regex {
return qr{
(?^u:(?:j(?:p(?:\.(?:h(?:okkaido(?:\.(?:k(?:a(?:m(?:i(?:s(?:unagawa|hihoro)|furano|kawa)|oenai)|yabe)|i(?:ta(?:hiroshima|mi)|mobetsu|yosato|konai)|u(?:r(?:omatsunai|iyama)|nneppu|shiro|tchan)|oshimizu|embuchi|yowa)|s(?:h(?:i(?:r(?:a(?:nuka|oi)|iu...
}x;
}
1;
view release on metacpan or search on metacpan
ca-bundle.crt view on Meta::CPAN
fY+BUZo7jYn0TZNmezwD7dOaHZrzZVD1oNB1ny+v8OqCQ5j4aZyJecRDjkZy42Q2Eq/3JR44iZB3
fsNrarnDy0RLrHiQi+fHLB5LEUTINFInzQpdn4XBidUaePKVEFMy3YCEZnXZtWgo+2EuvoSoOMCZ
EoalHmdkrQYuL6lwhceWD3yJZfWOQ1QOq92lgDmUYMA0yZZwLKMS9R9Ie70cfmu3nZD0Ijuu+Pwq
yvqCUqDvr0tVk+vBtfAii6w0TiYiBKGHLHVKt+V9E9e4DGTANtLJL4YSjCMJwRuCO3NJo2pXh5Tl
1njFmUNj403gdy3hZZlyaQQaRwnmDwFWJPsfvw55qVguucQJAX6Vum0ABj6y6koQOdjQK/W/7HW/
lwLFCRsI3FU34oH7N4RDYiDK51ZLZer+bMEkkyShNOsF/5oirpt9P/FlUQqmMGqz9IgcgA38coro
g14=
-----END CERTIFICATE-----
Taiwan GRCA
===========
view release on metacpan or search on metacpan
v0.5.8 2018-11-11T14:12:33Z
- code cleanup
v0.5.7 2018-10-17T03:26:30Z
- coro loop fixed
v0.5.6 2018-09-18T17:58:32Z
- typo
v0.5.5 2018-09-09T18:59:06Z
view release on metacpan or search on metacpan
lib/Pcore/Core/Exception.pm view on Meta::CPAN
local $@;
eval { $e->sendlog('FATAL') };
}
# cancel current coro execution. but not exit the script
$Coro::current->cancel;
}
else {
CORE::die $e; # set $@ to $e
}
view release on metacpan or search on metacpan
lib/Perl/LanguageServer.pm view on Meta::CPAN
our $json = JSON -> new -> utf8(1) -> ascii(1) ;
our $jsonpretty = JSON -> new -> utf8(1) -> ascii(1) -> pretty (1) ;
our %running_reqs ;
our %running_coros ;
our $exit ;
our $workspace ;
our $dev_tool ;
our $debug1 = 0 ;
our $debug2 = 0 ;
lib/Perl/LanguageServer.pm view on Meta::CPAN
{
my ($self, $id, $reqdata) = @_ ;
my $xid = $id ;
$xid ||= $reqseq++ ;
$running_coros{$xid} = async
{
my $req_guard = Guard::guard
{
$self -> logger ("done handle_req id=$xid\n") if ($debug1) ;
delete $running_reqs{$xid} ;
delete $running_coros{$xid} ;
};
my $type = $reqdata -> {type} ;
my $is_dap = $type?1:0 ;
$type = defined ($id)?'request':'notification' if (!$type) ;
lib/Perl/LanguageServer.pm view on Meta::CPAN
my $i = 0 ;
while (1)
{
if ($heartbeat || $debug2)
{
logger (undef, "##### $i #####\n running: " . dump (\%running_reqs) . " coros: " . dump (\%running_coros), "\n") ;
$i++ ;
}
Coro::AnyEvent::sleep (10) ;
}
lib/Perl/LanguageServer.pm view on Meta::CPAN
=over
=item * Run, pause, step, next, return
=item * Support for coro threads
=item * Breakpoints
=item * Conditional breakpoints
=item * Breakpoints can be set while program runs and for modules not yet loaded
=item * Variable view, can switch to every stack frame or coro thread
=item * Set variable
=item * Watch variable
=item * Tooltips with variable values
=item * Evaluate perl code in debuggee, in context of every stack frame of coro thread
=item * Automatically reload changed Perl modules while debugging
=item * Debug multiple perl programs at once
lib/Perl/LanguageServer.pm view on Meta::CPAN
sudo apt install libanyevent-perl libclass-refresh-perl libcompiler-lexer-perl \
libdata-dump-perl libio-aio-perl libjson-perl libmoose-perl libpadwalker-perl \
libscalar-list-utils-perl libcoro-perl
sudo cpan Perl::LanguageServer
e.g. on Centos 7 run:
lib/Perl/LanguageServer.pm view on Meta::CPAN
=item * Default debug configuration is now automatically provided without
the need to create a C<launch.json> first (#103)
=item * Add Option C<cacheDir> to specify location of cache dir (#113)
=item * Fix: Debugger outputted invalid thread reference causes "no such coroutine" message,
so watchs and code from the debug console is not expanded properly
=item * Fix: LanguageServer hangs when multiple request send at once from VSCode to LanguageServer
=item * Fix: cwd parameter for debugger in launch.json had no effect (#99)
view release on metacpan or search on metacpan
t/scan/heredoc.t view on Meta::CPAN
acontecer
acoplar
acopular
acoquinar
acordar
acoronhar
acorrentar
acorrer
acossar
acostar
acostumar
view release on metacpan or search on metacpan
t/snippets20.t view on Meta::CPAN
'git25' => <<'----------',
# example for git #25; use -l=0; was losing alignment; sub 'fix_ragged_lists' was added to fix this
my $mapping = [
# ...
{ 'is_col' => 'dsstdat', 'cr_col' => 'enroll_isaric_date', 'trans' => 0, },
{ 'is_col' => 'corona_ieorres', 'cr_col' => '', 'trans' => 0, },
{ 'is_col' => 'symptoms_fever', 'cr_col' => 'elig_fever', 'trans' => 1, 'manually_reviewed' => '@TODO', 'map' => { '0' => '0', '1' => '1', '9' => '@TODO' }, },
{ 'is_col' => 'symptoms_cough', 'cr_col' => 'elig_cough', 'trans' => 1, 'manually_reviewed' => '@TODO', 'map' => { '0' => '0', '1' => '1', '9' => '@TODO' }, },
{ 'is_col' => 'symptoms_dys_tachy_noea', 'cr_col' => 'elig_dyspnea', 'trans' => 1, 'manually_reviewed' => '@TODO', 'map' => { '0' => '0', '1' => '1', '9' => '@TODO' }, },
{ 'is_col' => 'symptoms_clinical_susp', 'cr_col' => 'elig_ari', 'trans' => 0, },
{ 'is_col' => 'sex', 'cr_col' => 'sex', 'trans' => 1, 'manually_reviewed' => 1, 'map' => { '0' => '1', '1' => '2' }, },
t/snippets20.t view on Meta::CPAN
# example for git #25; use -l=0; was losing alignment; sub 'fix_ragged_lists' was added to fix this
my $mapping = [
# ...
{ 'is_col' => 'dsstdat', 'cr_col' => 'enroll_isaric_date', 'trans' => 0, },
{ 'is_col' => 'corona_ieorres', 'cr_col' => '', 'trans' => 0, },
{
'is_col' => 'symptoms_fever',
'cr_col' => 'elig_fever',
'trans' => 1,
'manually_reviewed' => '@TODO',
t/snippets20.t view on Meta::CPAN
# example for git #25; use -l=0; was losing alignment; sub 'fix_ragged_lists' was added to fix this
my $mapping = [
# ...
{ 'is_col' => 'dsstdat', 'cr_col' => 'enroll_isaric_date', 'trans' => 0, },
{ 'is_col' => 'corona_ieorres', 'cr_col' => '', 'trans' => 0, },
{ 'is_col' => 'symptoms_fever', 'cr_col' => 'elig_fever', 'trans' => 1, 'manually_reviewed' => '@TODO', 'map' => { '0' => '0', '1' => '1', '9' => '@TODO' }, },
{ 'is_col' => 'symptoms_cough', 'cr_col' => 'elig_cough', 'trans' => 1, 'manually_reviewed' => '@TODO', 'map' => { '0' => '0', '1' => '1', '9' => '@TODO' }, },
{ 'is_col' => 'symptoms_dys_tachy_noea', 'cr_col' => 'elig_dyspnea', 'trans' => 1, 'manually_reviewed' => '@TODO', 'map' => { '0' => '0', '1' => '1', '9' => '@TODO' }, },
{ 'is_col' => 'symptoms_clinical_susp', 'cr_col' => 'elig_ari', 'trans' => 0, },
{ 'is_col' => 'sex', 'cr_col' => 'sex', 'trans' => 1, 'manually_reviewed' => 1, 'map' => { '0' => '1', '1' => '2' }, },
view release on metacpan or search on metacpan
share/Apocalypse/A12.pod view on Meta::CPAN
=head2 The gather/take Construct
We used one example of the conjectural gather/take construct. A gather
executes a closure, returning a list of all the values returned by
C<take> within its lexical scope. In a lazy context it might run as
a coroutine. There probably ought to be a dynamically scoped variant.
Unless it should be dynamic by default, in which case there probably
ought to be a lexically scoped variant...
=head2 :foo() Adverbs
share/Apocalypse/A12.pod view on Meta::CPAN
same for most Unicode fonts that restrict themselves to single and
double-wide characters.
=head2 String positions
A corollary to the preceding is that string positions are not numbers.
If you say either
$pos = index($string, "foo");
or
view release on metacpan or search on metacpan
lib/Perl6/GatherTake.pm view on Meta::CPAN
use Coro::Channel;
use Carp qw(confess);
use Scalar::Util qw(refaddr);
our @EXPORT = qw(gather take);
our %_coro_to_queue;
sub gather(&@) {
my $code = shift;
# cheat prototype by prepending '&' to method call:
my $coro = &async($code, @_);
my @result = ();
my $queue = Coro::Channel->new(1);
# print "Initialized coro $coro\n";
$_coro_to_queue{refaddr($coro)} = $queue;
tie @result, 'Perl6::GatherTake::LazyList', $coro, $queue;
return \@result;
}
sub take {
my $c = Coro::current;
# print "Take: $c\n";
for (@_){
$_coro_to_queue{refaddr($c)}->put($_);
}
}
1;
view release on metacpan or search on metacpan
docs/talks/perl6-apw2005/code/class/coro1.pl view on Meta::CPAN
#=Coroutinen
use v6;
coro zähler {
for 1..10 -> $i {
yield $i;
}
}
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
DBD::Gofer::Policy::Base 0.010088
DBD::Gofer::Policy::classic 0.010088
DBD::Gofer::Policy::pedantic 0.010088
DBD::Gofer::Policy::rush 0.010088
DBD::Gofer::Transport::Base 0.014121
DBD::Gofer::Transport::corostream undef
DBD::Gofer::Transport::null 0.010088
DBD::Gofer::Transport::pipeone 0.010088
DBD::Gofer::Transport::stream 0.014599
DBD::Gofer::db 0.015327
DBD::Gofer::dr 0.015327
view release on metacpan or search on metacpan
utils/bff_pxf_simulator/Ontologies.pm view on Meta::CPAN
},
{ id => 'HP:0010969', label => 'Abnormality of glycolipid metabolism' },
{ id => 'HP:0011037', label => 'Decreased urine output' },
{ id => 'HP:0011123', label => 'Inflammatory abnormality of the skin' },
{ id => 'HP:0011176', label => 'EEG with constitutional variants' },
{ id => 'HP:0011315', label => 'Unicoronal synostosis' },
{ id => 'HP:0011488', label => 'Abnormal corneal endothelium morphology' },
{ id => 'HP:0011636', label => 'Abnormal coronary artery origin' },
{ id => 'HP:0012034', label => 'Liposarcoma' },
{
id => 'HP:0012092',
label => 'Abnormality of exocrine pancreas physiology'
},
view release on metacpan or search on metacpan
local/lib/perl5/IO/Socket/SSL/PublicSuffix.pm view on Meta::CPAN
samsung
// sandvik : 2014-11-13 Sandvik AB
sandvik
// sandvikcoromant : 2014-11-07 Sandvik AB
sandvikcoromant
// sanofi : 2014-10-09 Sanofi
sanofi
// sap : 2014-03-27 SAP AG
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
DBD::Gofer::Policy::Base 0.010088
DBD::Gofer::Policy::classic 0.010088
DBD::Gofer::Policy::pedantic 0.010088
DBD::Gofer::Policy::rush 0.010088
DBD::Gofer::Transport::Base 0.014121
DBD::Gofer::Transport::corostream undef
DBD::Gofer::Transport::null 0.010088
DBD::Gofer::Transport::pipeone 0.010088
DBD::Gofer::Transport::stream 0.014599
DBD::Gofer::db 0.015327
DBD::Gofer::dr 0.015327
view release on metacpan or search on metacpan
lib/Plack/App/WebSocket/Connection.pm
MANIFEST This list of files
META.json
META.yml
t/00-load.t
t/corona.t
t/testlib/CustomServer.pm
t/testlib/Cycle.pm
t/testlib/Echo.pm
t/testlib/Error.pm
t/testlib/Handlers.pm
view release on metacpan or search on metacpan
lib/Plack/Middleware/DetectRobots.pm view on Meta::CPAN
fetchrover
fido
finnish
fireball
fouineur
francoroute
freecrawl
funnelweb
gama
gazz
gcreep
view release on metacpan or search on metacpan
t/author-pod-spell.t view on Meta::CPAN
Yuval
app
backend
callback
cgi
coroutine
env
fallback
filename
github
hookout
view release on metacpan or search on metacpan
lib/Plack/Server/Coro.pm view on Meta::CPAN
plackup --server Coro
=head1 DESCRIPTION
This is a Coro based Plack web server. It uses L<Net::Server::Coro>
under the hood, which means we have coroutines (threads) for each
socket, active connections and a main loop.
Because it's Coro based your web application can actually block with
I/O wait as long as it yields when being blocked, to the other
coroutine either explicitly with C<cede> or automatically (via Coro::*
magic).
# your web application
use Coro::LWP;
my $content = LWP::Simple:;get($url); # this yields to other threads when IO blocks
view release on metacpan or search on metacpan
t/data/book13 view on Meta::CPAN
halls by the evil doom of Agamemnon, son of Atreus, hadst
not thou, goddess, declared me each thing aright. Come
then, weave some counsel whereby I may requite them; and
thyself stand by me, and put great boldness of spirit
within me, even as in the day when we loosed the shining
coronal of Troy. If but thou wouldest stand by me with such
eagerness, thou grey-eyed goddess, I would war even with
three hundred men, with thee my lady and goddess, if thou
of thy grace didst succour me the while.'
Then the goddess, grey-eyed Athene, answered him: 'Yea,
view release on metacpan or search on metacpan
lib/Pod/Extract/URI.pm view on Meta::CPAN
onwards.
=head1 AUTHOR
Ian Malpass (ian-cpan@indecorous.com)
=head1 COPYRIGHT
Copyright 2007, Ian Malpass
view release on metacpan or search on metacpan
share/wordlist view on Meta::CPAN
coprocess
copyable
coredump
Coreutils
Coro
coroutine
cos
cosh
cpan
CPANPLUS
CPAN.pm