Result:
found more than 489 distributions - search limited to the first 2001 files matching your query
( run in 1.726 )
App-RoboBot
view release on metacpan or search on metacpan
lib/App/RoboBot/Plugin/Bot/Alarm.pm view on Meta::CPAN
my ($self, $bot, $alarm_id) = @_;
# We buffer the comparison of the current next_emit to now() by a little bit
# into the future to account for the possibility of timer drift, and any
# other delays that may occur between when the timer is schedule to fire and
# when our bot's single execution thread finally reaches this point. One
# minute is a major buffer, but alarms cannot be scheduled to trigger more
# than a few times each hour anyway.
my $res = $bot->config->db->do(q{
select a.*,
case
App-RouterColorizer
view release on metacpan or search on metacpan
t/data/06-vyos.input view on Meta::CPAN
Nexthop global: f00:ba7::1:1[m
Nexthop local: ::[m
BGP connection: shared network[m
BGP Connect Retry Timer in Seconds: 120[m
Estimated round trip time: 7289 ms[m
Read thread: on Write thread: on FD used: 33[m
[m
BFD: Type: single hop[m
Detect Multiplier: 3, Min Rx interval: 300, Min Tx interval: 300[m
Status: Up, Last update: 3:10:02:43[m
[m
App-Sandy
view release on metacpan or search on metacpan
NOTHING_t8_p8|5.033003||Viu
NOTHING_t8_pb|5.033003||Viu
NOTHING_tb|5.035004||Viu
NOTHING_tb_p8|5.033003||Viu
NOTHING_tb_pb|5.033003||Viu
nothreadhook|5.008000|5.008000|
notify_parser_that_changed_to_utf8|5.025010||Viu
not_incrementable|5.021002||Viu
NOT_IN_PAD|5.005000||Viu
NOT_REACHED|5.019006|5.003007|poVnu
NPOSIXA|5.017003||Viu
PerlProc_sleep|5.005000||Viu
PerlProc_spawnvp|5.008000||Viu
PerlProc_times|5.005000||Viu
PerlProc_wait|5.005000||Viu
PerlProc_waitpid|5.005000||Viu
perl_pthread_mutex_lock|5.023006||Viu
perl_pthread_mutex_unlock|5.023006||Viu
PERL_PV_ESCAPE_ALL|5.009004|5.003007|p
PERL_PV_ESCAPE_DWIM|5.019008||Viu
PERL_PV_ESCAPE_DWIM_ALL_HEX|||Viu
PERL_PV_ESCAPE_FIRSTCHAR|5.009004|5.003007|p
PERL_PV_ESCAPE_NOBACKSLASH|5.009004|5.003007|p
PL_sv_zero|5.027003|5.027003|
PL_sys_intern|5.005000||Viu
PL_tainted|5.005000|5.003007|poVnu
PL_tainting|5.005000|5.003007|poVnu
PL_taint_warn|5.007003||Viu
PL_threadhook|5.008000||Viu
PL_tmps_floor|5.005000||Viu
PL_tmps_ix|5.005000||Viu
PL_tmps_max|5.005000||Viu
PL_tmps_stack|5.005000||Viu
PL_tokenbuf||5.003007|ponu
PSEUDO_t8_p8|5.033003||Viu
PSEUDO_t8_pb|5.033003||Viu
PSEUDO_tb|5.035004||Viu
PSEUDO_tb_p8|5.033003||Viu
PSEUDO_tb_pb|5.033003||Viu
pthread_addr_t|5.005000||Viu
PTHREAD_ATFORK|5.007002||Viu
pthread_attr_init|5.006000||Viu
PTHREAD_ATTR_SETDETACHSTATE|5.006000||Viu
pthread_condattr_default|5.005000||Viu
PTHREAD_CREATE|5.006000||Viu
pthread_create|5.008001||Viu
PTHREAD_CREATE_JOINABLE|5.005000||Viu
PTHREAD_GETSPECIFIC|5.007002||Viu
PTHREAD_GETSPECIFIC_INT|5.006000||Viu
pthread_key_create|5.005000||Viu
pthread_keycreate|5.008001||Viu
pthread_mutexattr_default|5.005000||Viu
pthread_mutexattr_init|5.005000||Viu
pthread_mutexattr_settype|5.005000||Viu
pTHX_12|5.019010||Viu
pTHX_1|5.006000||Viu
pTHX_2|5.006000||Viu
pTHX_3|5.006000||Viu
pTHX_4|5.006000||Viu
T_FMT_AMPM|5.027010||Viu
THIS|5.003007|5.003007|V
THOUSEP|5.027010||Viu
THR|5.005000||Viu
THREAD_CREATE_NEEDS_STACK|5.007002||Viu
thread_locale_init|5.027009|5.027009|xnu
thread_locale_term|5.027009|5.027009|xnu
THREAD_RET_TYPE|5.005000||Viu
tied_method|5.013009||vViu
TIED_METHOD_ARGUMENTS_ON_STACK|5.013009||Viu
TIED_METHOD_MORTALIZE_NOT_NEEDED|5.013009||Viu
TIED_METHOD_SAY|5.013009||Viu
# define dTHX dNOOP
#endif
/* Hint: dTHX
For pre-5.6.0 thread compatibility, instead use dTHXR, available only through
ppport.h */
#ifndef dTHXa
# define dTHXa(x) dNOOP
#endif
#ifndef pTHX
# define aTHX
#endif
/* Hint: aTHX
For pre-5.6.0 thread compatibility, instead use aTHXR, available only through
ppport.h */
#ifndef aTHX_
# define aTHX_
#endif
/* Hint: aTHX_
For pre-5.6.0 thread compatibility, instead use aTHXR_, available only
through ppport.h */
#if (PERL_BCDVERSION < 0x5006000)
# ifdef USE_THREADS
# define aTHXR thr
#endif
/* Hint: PL_ppaddr
* Calling an op via PL_ppaddr requires passing a context argument
* for threaded builds. Since the context argument is different for
* 5.005 perls, you can use aTHXR (supplied by ppport.h), which will
* automatically be defined as the correct argument.
*/
#if (PERL_BCDVERSION <= 0x5005005)
#endif
/*
* Boilerplate macros for initializing and accessing interpreter-local
* data from C. All statics in extensions should be reworked to use
* this, if you want to make the extension thread-safe. See ext/re/re.xs
* for an example of the use of these macros.
*
* Code that uses these macros is responsible for the following:
* 1. #define MY_CXT_KEY to a unique string, e.g. "DynaLoader_guts"
* 2. Declare a typedef named my_cxt_t that is a structure that contains
defined(PERL_CAPI) || defined(PERL_IMPLICIT_CONTEXT)
#ifndef START_MY_CXT
/* This must appear in all extensions that define a my_cxt_t structure,
* right after the definition (i.e. at file scope). The non-threads
* case below uses it to declare the data as static. */
#define START_MY_CXT
#if (PERL_BCDVERSION < 0x5004068)
/* Fetches the SV that keeps the per-interpreter data. */
#else
/* older perls don't have PL_numeric_radix_sv so the radix
* must manually be requested from locale.h
*/
#include <locale.h>
dTHR; /* needed for older threaded perls */
struct lconv *lc = localeconv();
char *radix = lc->decimal_point;
if (radix && IN_LOCALE) {
STRLEN len = strlen(radix);
if (*sp + len <= send && memEQ(*sp, radix, len)) {
App-SeismicUnixGui
view release on metacpan or search on metacpan
$(NOECHO) $(ECHO) ' <REQUIRE NAME="Tk::" VERSION="804.036" />' >> App-SeismicUnixGui.ppd
$(NOECHO) $(ECHO) ' <REQUIRE NAME="Tk::JFileDialog" VERSION="2.20" />' >> App-SeismicUnixGui.ppd
$(NOECHO) $(ECHO) ' <REQUIRE NAME="Tk::Pod" VERSION="0.9943" />' >> App-SeismicUnixGui.ppd
$(NOECHO) $(ECHO) ' <REQUIRE NAME="aliased::" VERSION="0.34" />' >> App-SeismicUnixGui.ppd
$(NOECHO) $(ECHO) ' <REQUIRE NAME="namespace::autoclean" VERSION="0.29" />' >> App-SeismicUnixGui.ppd
$(NOECHO) $(ECHO) ' <ARCHITECTURE NAME="x86_64-linux-gnu-thread-multi-5.38" />' >> App-SeismicUnixGui.ppd
$(NOECHO) $(ECHO) ' <CODEBASE HREF="" />' >> App-SeismicUnixGui.ppd
$(NOECHO) $(ECHO) ' </IMPLEMENTATION>' >> App-SeismicUnixGui.ppd
$(NOECHO) $(ECHO) '</SOFTPKG>' >> App-SeismicUnixGui.ppd
App-ShellCompleter-mpv
view release on metacpan or search on metacpan
lib/App/ShellCompleter/mpv.pm view on Meta::CPAN
our %scargs = (
'ad=s' => undef, # String (default: -spdif:*)
'ad-lavc-ac3drc=f' => _gcfloat(0,2), # Float (0 to 2) (default: 1.000000)
'ad-lavc-downmix!' => undef, # Flag (default: yes)
'ad-lavc-o=s' => undef, # Key/value list (default: )
'ad-lavc-threads=i' => _gcint(1,16), # Integer (1 to 16) (default: 1)
'ad-spdif-dtshd!' => undef, # Flag (default: no)
'af=s' => undef, # Object settings list (default: )
'af-defaults=s' => undef, # Object settings list (default: )
'aid=s' => sub { # Choices: no auto (or an integer) (1 to 8190) (default: auto)
my %args = @_;
lib/App/ShellCompleter/mpv.pm view on Meta::CPAN
'demuxer-rawvideo-size=i' => _gcint(1,268435456), # Integer (1 to 268435456) (default: 0)
'demuxer-rawvideo-w=i' => _gcint(1,8192), # Integer (1 to 8192) (default: 1280)
'demuxer-readahead-bytes=i' => _gcint(0,419430400), # Integer (0 to 419430400) (default: 0)
'demuxer-readahead-packets=i' => _gcint(0,16000), # Integer (0 to 16000) (default: 0)
'demuxer-readahead-secs=f' => _gcfloat(0), # Double (0 to any) (default: 0.200000)
'demuxer-thread!' => undef, # Flag (default: yes)
'display-fps=f' => _gcfloat(0), # Double (0 to any) (default: 0.000000)
'dtshd!' => undef, # Flag (default: no)
'dump-stats=s' => undef, # String (default: ) [global]
'dvbin-card=i' => _gcint(1,4), # Integer (1 to 4) (default: 1)
'dvbin-file=s' => undef, # String (default: )
lib/App/ShellCompleter/mpv.pm view on Meta::CPAN
'vd-lavc-o=s' => undef, # Key/value list (default: )
'vd-lavc-show-all!' => undef, # Flag (default: no)
'vd-lavc-skipframe=s' => [qw/none default nonref bidir nonkey all/], # Choices: none default nonref bidir nonkey all (default: default)
'vd-lavc-skipidct=s' => [qw/none default nonref bidir nonkey all/], # Choices: none default nonref bidir nonkey all (default: default)
'vd-lavc-skiploopfilter=s' => [qw/none default nonref bidir nonkey all/], # Choices: none default nonref bidir nonkey all (default: default)
'vd-lavc-threads=i' => _gcint(0,16), # Integer (0 to 16) (default: 0)
'vf=s' => undef, # Object settings list (default: )
'vf-defaults=s' => undef, # Object settings list (default: )
'vid=s' => sub { # Choices: no auto (or an integer) (1 to 8190) (default: auto)
my %args = @_;
my $word = $args{word};
App-ShellCompleter-perlbrew
view release on metacpan or search on metacpan
devdata/perlbrew-help.0.74 view on Meta::CPAN
--as Install the given version of perl by a name.
ex. C<perlbrew install perl-5.6.2 --as legacy-perl>
--noman Skip installation of manpages
--thread Build perl with usethreads enabled
--multi Build perl with usemultiplicity enabled
--64int Build perl with use64bitint enabled
--64all Build perl with use64bitall enabled
--ld Build perl with uselongdouble enabled
--debug Build perl with DEBUGGING enabled
devdata/perlbrew-help.0.74 view on Meta::CPAN
Build and install the given versions of perl.
"install-multiple" accepts the same set of options as the command
"install" plus the following ones:
--both $flavor Where $flavor is one of C<thread>, C<multi>, C<ld>,
C<64int>, C<64all>, C<debug> and C<clang>.
For every given perl version, install two
flavors, one with the flag C<--$flavor> set
and the other with out. C<--both> can be
passed multiple times with different values
and in that case, all the possible
combinations are generated.
--common-variations equivalent to C<--both thread --both ld --both 64int>
--all-variations generates all the possible flavor combinations
--append $string Appends the given string to the generated names
For instance:
perlbrew install-multiple 5.18.0 blead --both thread --both debug
Installs the following perls:
perl-blead
perl-blead-debug
perl-blead-thread-multi
perl-blead-thread-multi-debug
perl-5.18.0
perl-5.18.0-debug
perl-5.18.0-thread-multi
perl-5.18.0-thread-multi-debug
(note that the "multi" flavor is selected automatically because "thread"
requires it)
Another example using custom compilation flags:
perlbrew install-multiple 5.18.0 --both thread -Doptimize='-O3' --append='-O3'
COMMAND: UNINSTALL
Usage: perlbrew uninstall <name>
Uninstalls the given perl installation. The name is the installation
App-SimpleBackuper
view release on metacpan or search on metacpan
local/lib/perl5/Module/Build.pm view on Meta::CPAN
distribution. By default, this value is the distribution name without
any path information.
Example:
./Build ppd --codebase "MSWin32-x86-multi-thread/Module-Build-0.21.tar.gz"
=item ppmdist
[version 0.23]
App-Slackeria
view release on metacpan or search on metacpan
lib/App/Slackeria/Plugin/Whohas.pm view on Meta::CPAN
our $VERSION = '0.12';
sub run_whohas {
my ( $self, $distro, $name ) = @_;
my $out = qx{whohas --no-threads --strict -d $distro $name};
if ( not defined $out or $out eq q{} ) {
die("not found\n");
}
App-SlideServer
view release on metacpan or search on metacpan
share/public/highlight/highlight.min.js view on Meta::CPAN
},contains:[{begin:/\\\n/,relevance:0},e.inherit(s,{className:"string"}),{
className:"string",begin:/<.*?>/},a,e.C_BLOCK_COMMENT_MODE]},l={
className:"title",begin:t.optional(n)+e.IDENT_RE,relevance:0
},d=t.optional(n)+e.IDENT_RE+"\\s*\\(",u={
type:["bool","char","char16_t","char32_t","char8_t","double","float","int","long","short","void","wchar_t","unsigned","signed","const","static"],
keyword:["alignas","alignof","and","and_eq","asm","atomic_cancel","atomic_commit","atomic_noexcept","auto","bitand","bitor","break","case","catch","class","co_await","co_return","co_yield","compl","concept","const_cast|10","consteval","constexpr","co...
literal:["NULL","false","nullopt","nullptr","true"],built_in:["_Pragma"],
_type_hints:["any","auto_ptr","barrier","binary_semaphore","bitset","complex","condition_variable","condition_variable_any","counting_semaphore","deque","false_type","future","imaginary","initializer_list","istringstream","jthread","latch","lock_guar...
},p={className:"function.dispatch",relevance:0,keywords:{
_hint:["abort","abs","acos","apply","as_const","asin","atan","atan2","calloc","ceil","cerr","cin","clog","cos","cosh","cout","declval","endl","exchange","exit","exp","fabs","floor","fmod","forward","fprintf","fputs","free","frexp","fscanf","future","...
},
begin:t.concat(/\b/,/(?!decltype)/,/(?!if)/,/(?!for)/,/(?!switch)/,/(?!while)/,e.IDENT_RE,t.lookahead(/(<[^<>]+>|)\s*\(/))
},_=[p,o,i,a,e.C_BLOCK_COMMENT_MODE,c,s],m={variants:[{begin:/=/,end:/;/},{
share/public/highlight/highlight.min.js view on Meta::CPAN
keyword:"if else elif endif define undef warning error line pragma _Pragma ifdef ifndef include"
},contains:[{begin:/\\\n/,relevance:0},e.inherit(i,{className:"string"}),{
className:"string",begin:/<.*?>/},t,e.C_BLOCK_COMMENT_MODE]},c={
className:"title",begin:n.optional(s)+e.IDENT_RE,relevance:0
},d=n.optional(s)+e.IDENT_RE+"\\s*\\(",u={
keyword:["asm","auto","break","case","continue","default","do","else","enum","extern","for","fortran","goto","if","inline","register","restrict","return","sizeof","struct","switch","typedef","union","volatile","while","_Alignas","_Alignof","_Atomic",...
type:["float","double","signed","unsigned","int","short","long","char","void","_Bool","_Complex","_Imaginary","_Decimal32","_Decimal64","_Decimal128","const","static","complex","bool","imaginary"],
literal:"true false NULL",
built_in:"std string wstring cin cout cerr clog stdin stdout stderr stringstream istringstream ostringstream auto_ptr deque list queue stack vector map set pair bitset multiset multimap unordered_set unordered_map unordered_multiset unordered_multima...
},g=[o,r,t,e.C_BLOCK_COMMENT_MODE,l,i],m={variants:[{begin:/=/,end:/;/},{
begin:/\(/,end:/\)/},{beginKeywords:"new throw return else",end:/;/}],
App-SocialSKK
view release on metacpan or search on metacpan
inc/Test/Builder.pm view on Meta::CPAN
use warnings;
our $VERSION = '0.86';
$VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval)
# Make Test::Builder thread-safe for ithreads.
BEGIN {
use Config;
# Load threads::shared when threads are turned on.
# 5.8.0's threads are so busted we no longer support them.
if( $] >= 5.008001 && $Config{useithreads} && $INC{'threads.pm'} ) {
require threads::shared;
# Hack around YET ANOTHER threads::shared bug. It would
# occassionally forget the contents of the variable when sharing it.
# So we first copy the data, then share, then put our copy back.
*share = sub (\[$@%]) {
my $type = ref $_[0];
my $data;
inc/Test/Builder.pm view on Meta::CPAN
}
else {
die( "Unknown type: " . $type );
}
$_[0] = &threads::shared::share( $_[0] );
if( $type eq 'HASH' ) {
%{ $_[0] } = %$data;
}
elsif( $type eq 'ARRAY' ) {
inc/Test/Builder.pm view on Meta::CPAN
}
return $_[0];
};
}
# 5.8.0's threads::shared is busted when threads are off
# and earlier Perls just don't have that module at all.
else {
*share = sub { return $_[0] };
*lock = sub { 0 };
}
inc/Test/Builder.pm view on Meta::CPAN
$self->{Expected_Tests} = $self->{Curr_Test};
}
# Auto-extended arrays and elements which aren't explicitly
# filled in with a shared reference will puke under 5.8.0
# ithreads. So we have to fill them in by hand. :(
my $empty_result = &share( {} );
for my $idx ( 0 .. $self->{Expected_Tests} - 1 ) {
$test_results->[$idx] = $empty_result
unless defined $test_results->[$idx];
}
App-SpreadRevolutionaryDate
view release on metacpan or search on metacpan
Also, we do not plan to extend this feature to Twitter target, since we
recommand to not use this social network for political reasons.
Starting from version 0.45, Mastodon and Bluesky classes have a
max_lenght attribute (set to 300 for Mastodon and set to 250 for
Bluesky), which is used to split a longer message into a thread of
multiple posts. Again, we do not plan to extend this feature to Twitter
target, since we recommand to not use this social network for political
reasons.
EXTENDING TO NEW MESSAGE MAKERS
App-Sqitch
view release on metacpan or search on metacpan
lib/App/Sqitch/Engine/exasol.pm view on Meta::CPAN
return $change;
}
sub changes_requiring_change {
my ( $self, $change ) = @_;
# Why CTE: https://forums.oracle.com/forums/thread.jspa?threadID=1005221
# NOTE: Query from DBIEngine doesn't work in Exasol:
# Error: [00444] more than one column in select list of correlated subselect
# The CTE-based query below seems to be fine, however.
return @{ $self->dbh->selectall_arrayref(q{
WITH tag AS (
lib/App/Sqitch/Engine/exasol.pm view on Meta::CPAN
}, { Slice => {} }, $change->id) };
}
sub name_for_change_id {
my ( $self, $change_id ) = @_;
# Why CTE: https://forums.oracle.com/forums/thread.jspa?threadID=1005221
# NOTE: Query from DBIEngine doesn't work in Exasol:
# Error: [0A000] Feature not supported: non-equality correlations in correlated subselect
# The CTE-based query below seems to be fine, however.
return $self->dbh->selectcol_arrayref(q{
WITH tag AS (
App-Stacktrace
view release on metacpan or search on metacpan
lib/App/Stacktrace.pm view on Meta::CPAN
--exec exec() into gdb
=head1 DESCRIPTION
perl-stacktrace prints Perl stack traces of Perl threads for a given
Perl process. For each Perl frame, the full file name and line number
are printed.
For example, a stack dump of a running perl program:
lib/App/Stacktrace.pm view on Meta::CPAN
my $offsets = App::Stacktrace::_perl_offsets();
for my $name (sort keys %$offsets) {
$src .= "set $name = $offsets->{$name}\n";
}
if ($Config::Config{usethreads}) {
require threads;
my $key = "threads::_pool$threads::VERSION";
my $len = length $key;
$src .= <<"THREADS";
set \$POOL_KEY = "$key"
set \$POOL_KEY_LEN = $len
THREADS
App-Staticperl
view release on metacpan or search on metacpan
Example: link libcrypt statically into the final binary.
staticperl mkperl -MIO::AIO --staticlib crypt
# ldopts might now contain:
# -lm -Wl,-Bstatic -lcrypt -Wl,-Bdynamic -lpthread
"--extra-cflags" string
Specifies extra compiler flags, used when compiling the bundle
file. The flags are appended to all the existing flags, so can
be sued to override settings.
contents will be removed on installation.
"PERL_CONFIGURE"
Additional Configure options - these are simply passed to the perl
Configure script. For example, if you wanted to enable dynamic
loading, you could pass "-Dusedl". To enable ithreads (Why would you
want that insanity? Don't! Use forks instead!) you would pass
"-Duseithreads" and so on.
More commonly, you would either activate 64 bit integer support
("-Duse64bitint"), or disable large files support (-Uuselargefiles),
to reduce filesize further.
Example: install extra modules from CPAN and from some directories at
staticperl install time.
postinstall() {
rm -rf lib/threads* # weg mit Schaden
instcpan IO::AIO EV
instsrc ~/src/AnyEvent
instsrc ~/src/XML-Sablotron-1.0100001
instcpan Anyevent::AIO AnyEvent::HTTPD
}
App-Tel
view release on metacpan or search on metacpan
local/lib/perl5/Module/Build.pm view on Meta::CPAN
distribution. By default, this value is the distribution name without
any path information.
Example:
./Build ppd --codebase "MSWin32-x86-multi-thread/Module-Build-0.21.tar.gz"
=item ppmdist
[version 0.23]
App-Twimap
view release on metacpan or search on metacpan
lib/App/Twimap.pm view on Meta::CPAN
=over 4
=item * Offline access to your Twitter home timeline
=item * Your email client can do message threading
=item * Use multiple devices and they sync read messages
=item * URLs are expanded
App-bmkpasswd
view release on metacpan or search on metacpan
lib/App/bmkpasswd.pm view on Meta::CPAN
Most people want random salts, in which case the default salt generator
should be fine.
See L</mkpasswd_forked> if your application loads this module before forking
or creating threads that generate passwords.
=head2 mkpasswd_available
my @available = mkpasswd_available;
lib/App/bmkpasswd.pm view on Meta::CPAN
Given a type (see L</mkpasswd>), returns boolean true if the method is available. ('bcrypt' is
always available.)
=head2 mkpasswd_forked
# After a fork / new thread is created:
mkpasswd_forked;
To retain secure salts after forking the process or creating a new thread,
it's advisable to either only load this module after creating the new process
or call B<mkpasswd_forked> in the new process to reset the random seeds used
by salt generators.
Added in C<v2.6.1>.
App-bsky
view release on metacpan or search on metacpan
lib/App/bsky.pm view on Meta::CPAN
}
return 1;
}
method _dump_post ( $depth, $post ) {
if ( $post->isa('At::Lexicon::app::bsky::feed::threadViewPost') && builtin::blessed $post->parent ) {
$self->_dump_post( $depth++, $post->parent );
$post = $post->post;
}
elsif ( $post->isa('At::Lexicon::app::bsky::feed::threadViewPost') ) {
$self->_dump_post( $depth++, $post->post );
my $replies = $post->replies // [];
$self->_dump_post( $depth + 2, $_->post ) for @$replies;
return;
}
lib/App/bsky.pm view on Meta::CPAN
# Mojo::UserAgent is triggering 'Subroutine attributes must come before the signature' bug in perl 5.38.x
return $self->err('Streaming client requires Mojo::UserAgent') unless $Mojo::UserAgent::VERSION;
}
method cmd_thread (@args) {
GetOptionsFromArray( \@args, 'json!' => \my $json, 'n=i' => \my $number );
$number //= ();
my ($id) = @args;
$id // return $self->cmd_help('thread');
my $res = $bsky->feed_getPostThread( uri => $id, depth => $number, parentHeight => $number ); # $uri, depth, $parentHeight
return unless $res->{thread} && builtin::blessed $res->{thread};
return $self->say( JSON::Tiny::to_json $res->{thread}->_raw ) if $json;
$self->_dump_post( 0, $res->{thread} );
}
method cmd_post ($text) {
my $res = $bsky->post( text => $text );
defined $res->{uri} ? $self->say( $res->{uri} ) : 0;
App-cdnget
view release on metacpan or search on metacpan
lib/App/cdnget.pm view on Meta::CPAN
=cut
### TODO: css, js minifier.
BEGIN
{
require Config;
if ($Config::Config{'useithreads'})
{
require threads;
threads->import();
require threads::shared;
threads::shared->import();
} else
{
require forks;
forks->import();
require forks::shared;
lib/App/cdnget.pm view on Meta::CPAN
=over
=item *
threads
=item *
threads::shared
=item *
forks
App-cloc
view release on metacpan or search on metacpan
my %p_rbf = ();
my %Language = %$language_hash;
foreach my $file (@$filelist) {
if ( ! $counter_type ) {
# Multithreading disabled
$nCounted++;
printf "Counting: %d\r", $nCounted
unless (!$opt_progress_rate or ($nCounted % $opt_progress_rate));
}
App-cpanbaker
view release on metacpan or search on metacpan
inc/Test/More.pm view on Meta::CPAN
# sorted with the same algorithm.
#
# Ensure that references are not accidentally treated the same as a
# string containing the reference.
#
# Have to inline the sort routine due to a threading/sort bug.
# See [rt.cpan.org 6782]
#
# I don't know how references would be sorted so we just don't sort
# them. This means eq_set doesn't really work with refs.
return eq_array(
App-cpanmigrate
view release on metacpan or search on metacpan
inc/Test/More.pm view on Meta::CPAN
# sorted with the same algorithm.
#
# Ensure that references are not accidentally treated the same as a
# string containing the reference.
#
# Have to inline the sort routine due to a threading/sort bug.
# See [rt.cpan.org 6782]
#
# I don't know how references would be sorted so we just don't sort
# them. This means eq_set doesn't really work with refs.
return eq_array(
App-cpanminus-reporter
view release on metacpan or search on metacpan
t/data/build.cloudweights.log view on Meta::CPAN
t/30-integration/Return-Type/basic.t ............... skipped: Test requires module 'Return::Type' but it's not found
t/30-integration/Sub-Quote/basic.t ................. ok
t/30-integration/Switcheroo/basic.t ................ skipped: Test requires module 'Switcheroo' but it's not found
t/30-integration/Type-Tie/basic.t .................. skipped: Test requires module 'Type::Tie' but it's not found
t/30-integration/Validation-Class-Simple/basic.t ... skipped: Test requires module 'Validation::Class' but it's not found
t/40-regression/73f51e2d.t ......................... skipped: your perl does not support ithreads
t/40-regression/gh1.t .............................. ok
t/40-regression/rt85911.t .......................... ok
t/40-regression/rt86004.t .......................... ok
t/40-regression/rt86233.t .......................... ok
t/40-regression/rt86239.t .......................... ok
App-cpanminus
view release on metacpan or search on metacpan
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
#pod pseudo-HTTP status code of 599 and a reason of "Internal Exception". The
#pod content field in the response will contain the text of the exception.
#pod
#pod The C<keep_alive> parameter enables a persistent connection, but only to a
#pod single destination scheme, host and port. Also, if any connection-relevant
#pod attributes are modified, or if the process ID or thread ID change, the
#pod persistent connection will be dropped. If you want persistent connections
#pod across multiple destinations, use multiple HTTP::Tiny objects.
#pod
#pod See L</SSL SUPPORT> for more on the C<verify_SSL> and C<SSL_options> attributes.
#pod
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
die qq/Couldn't find a CA bundle with which to verify the SSL certificate.\n/
. qq/Try installing Mozilla::CA from CPAN\n/;
}
# for thread safety, we need to know thread id if threads are loaded
sub _get_tid {
no warnings 'reserved'; # for 'threads'
return threads->can("tid") ? threads->tid : 0;
}
sub _ssl_args {
my ($self, $host) = @_;
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
pseudo-HTTP status code of 599 and a reason of "Internal Exception". The
content field in the response will contain the text of the exception.
The C<keep_alive> parameter enables a persistent connection, but only to a
single destination scheme, host and port. Also, if any connection-relevant
attributes are modified, or if the process ID or thread ID change, the
persistent connection will be dropped. If you want persistent connections
across multiple destinations, use multiple HTTP::Tiny objects.
See L</SSL SUPPORT> for more on the C<verify_SSL> and C<SSL_options> attributes.
App-cpanoutdated-coro
view release on metacpan or search on metacpan
script/cpan-outdated-coro view on Meta::CPAN
$ch{$_} = [];
}
$cv=AE::cv;
my $cv_main=AE::cv;
#### spawn threads
for my $ref (
# worker name
[ \&_parse_gz, 'gz' ],
[ \&_scan_inc, 'scan' ],
[ \&_get_info, 'info' ],
App-cpanreports
view release on metacpan or search on metacpan
lib/App/cpanreports.pm view on Meta::CPAN
my $text = $mech->content;
if ($text =~ /ccflags[^\n]+ -DDEBUGGING.+?\n/sm) {
$file_name .= 'd';
}
if ($report->{platform} !~ /thread/) {
$file_name .= "-nt";
}
# add the GUID to the file to make determining if the report has been
# previously downloaded easy.
App-diceware
view release on metacpan or search on metacpan
share/wordlist_de.tsv view on Meta::CPAN
61423 thema
61424 themse
61425 therme
61426 these
61431 thiamin
61432 thread
61433 thron
61434 thront
61435 thymus
61436 ti
61441 tiara
App-digestarchive
view release on metacpan or search on metacpan
inc/Test/More.pm view on Meta::CPAN
# sorted with the same algorithm.
#
# Ensure that references are not accidentally treated the same as a
# string containing the reference.
#
# Have to inline the sort routine due to a threading/sort bug.
# See [rt.cpan.org 6782]
#
# I don't know how references would be sorted so we just don't sort
# them. This means eq_set doesn't really work with refs.
return eq_array(
App-eachperl
view release on metacpan or search on metacpan
lib/App/eachperl.pm view on Meta::CPAN
class App::eachperl::_Perl {
field $name :param :reader :Checked(Str);
field $fullpath :param :reader :Checked(Str);
field $version :param :reader :Checked($VersionString);
field $is_threads :param :reader;
field $is_debugging :param :reader;
field $is_devel :param :reader;
field $selected :mutator;
}
lib/App/eachperl.pm view on Meta::CPAN
if( my $perlnames = $_perls ) {
foreach my $perl ( split m/\s+/, $perlnames ) {
chomp( my $fullpath = `which $perl` );
$? and warn( "Can't find perl at $perl" ), next;
my ( $ver, $usethreads, $ccflags ) = split m/\n/,
scalar `$fullpath -MConfig -e 'print "\$]\\n\$Config{usethreads}\\n\$Config{ccflags}\\n"'`;
$ver = version->parse( $ver )->normal;
my $threads = ( $usethreads eq "define" );
my $debug = $ccflags =~ m/-DDEBUGGING\b/;
my $devel = ( $ver =~ m/^v\d+\.(\d+)/ )[0] % 2;
push @_perlobjs, App::eachperl::_Perl->new(
name => $perl,
fullpath => $fullpath,
version => $ver,
is_threads => $threads,
is_debugging => $debug,
is_devel => $devel,
);
}
}
lib/App/eachperl.pm view on Meta::CPAN
()
{
foreach my $perl ( $self->perls ) {
my @flags;
push @flags, $perl->version;
push @flags, "threads" if $perl->is_threads;
push @flags, "DEBUGGING" if $perl->is_debugging;
push @flags, "devel" if $perl->is_devel;
printf "%s%s: %s (%s)\n",
( $perl->selected ? "* " : " " ),
( run in 1.726 second using v1.01-cache-2.11-cpan-3cd7ad12f66 )