Result:
found more than 468 distributions - search limited to the first 2001 files matching your query
( run in 1.319 )
App-Test-Generator
view release on metacpan or search on metacpan
lib/App/Test/Generator/CoverageGuidedFuzzer.pm view on Meta::CPAN
# Side effects: Calls Devel::Cover::start/stop.
# Sets $$result_ref and $$error_ref.
#
# Notes: Snapshot comparison is imprecise for
# concurrent use but correct for single-
# threaded fuzzing. Instance is passed
# as invocant when set. Devel::Cover state
# only grows, so this iteration's "before"
# is exactly the previous iteration's
# "after" -- cached in $self to avoid two
# full Devel::Cover walks per iteration.
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 ( builtin::blessed $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
};
$start_stream->();
Mojo::IOLoop->start unless Mojo::IOLoop->is_running;
}
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->getPostThread( uri => $id, depth => $number, parentHeight => $number ); # $uri, depth, $parentHeight
return unless $res->{thread};
return $self->say( JSON::Tiny::to_json $res->{thread} ) if $json;
$self->_dump_post( 0, $res->{thread} );
}
method cmd_post ($text) {
my $res = $bsky->createPost( text => $text );
defined $res ? $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-cpan2arch
view release on metacpan or search on metacpan
lib/App/cpan2arch/WritePkgbuild.pm view on Meta::CPAN
# at /usr/share/licenses/spdx under a different SPDX ID.
#
# References:
# https://metacpan.org/pod/CPAN::Meta::Spec#license
# https://wiki.archlinux.org/title/PKGBUILD#license
# https://lists.archlinux.org/hyperkitty/list/arch-dev-public@lists.archlinux.org/thread/NFSB7734U2VVDULPRY65ECXDE3XGNZXM/
# https://spdx.github.io/spdx-spec/latest/annexes/spdx-license-expressions/
method _build_license_array ()
{
$self->_psub;
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-dnsq
view release on metacpan or search on metacpan
DESTINSTALLPRIVLIB = $(DESTDIR)$(INSTALLPRIVLIB)
INSTALLSITELIB = $(INSTALL_BASE)/lib/perl5
DESTINSTALLSITELIB = $(DESTDIR)$(INSTALLSITELIB)
INSTALLVENDORLIB = $(INSTALL_BASE)/lib/perl5
DESTINSTALLVENDORLIB = $(DESTDIR)$(INSTALLVENDORLIB)
INSTALLARCHLIB = $(INSTALL_BASE)/lib/perl5/x86_64-linux-gnu-thread-multi
DESTINSTALLARCHLIB = $(DESTDIR)$(INSTALLARCHLIB)
INSTALLSITEARCH = $(INSTALL_BASE)/lib/perl5/x86_64-linux-gnu-thread-multi
DESTINSTALLSITEARCH = $(DESTDIR)$(INSTALLSITEARCH)
INSTALLVENDORARCH = $(INSTALL_BASE)/lib/perl5/x86_64-linux-gnu-thread-multi
DESTINSTALLVENDORARCH = $(DESTDIR)$(INSTALLVENDORARCH)
INSTALLBIN = $(INSTALL_BASE)/bin
DESTINSTALLBIN = $(DESTDIR)$(INSTALLBIN)
INSTALLSITEBIN = $(INSTALL_BASE)/bin
DESTINSTALLSITEBIN = $(DESTDIR)$(INSTALLSITEBIN)
$(NOECHO) $(ECHO) ' <REQUIRE NAME="Net::DNS" VERSION="1.0" />' >> App-dnsq.ppd
$(NOECHO) $(ECHO) ' <REQUIRE NAME="POSIX::" />' >> App-dnsq.ppd
$(NOECHO) $(ECHO) ' <REQUIRE NAME="Storable::" />' >> App-dnsq.ppd
$(NOECHO) $(ECHO) ' <REQUIRE NAME="Term::ReadLine" />' >> App-dnsq.ppd
$(NOECHO) $(ECHO) ' <REQUIRE NAME="Time::HiRes" />' >> App-dnsq.ppd
$(NOECHO) $(ECHO) ' <ARCHITECTURE NAME="x86_64-linux-gnu-thread-multi-5.40" />' >> App-dnsq.ppd
$(NOECHO) $(ECHO) ' <CODEBASE HREF="" />' >> App-dnsq.ppd
$(NOECHO) $(ECHO) ' </IMPLEMENTATION>' >> App-dnsq.ppd
$(NOECHO) $(ECHO) '</SOFTPKG>' >> App-dnsq.ppd
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 ? "* " : " " ),
App-financeta
view release on metacpan or search on metacpan
dceda2674d3f976fed0ac70b88a4dad8be5c0ff6
updating the grammar to handle some minor changes. adding some sample receiver code
Thu Sep 18 17:43:04 2014 -0400
e72d243e051835333b7e4071e35e572ad6a08669
updating the test-threading script. we have found a way to not use thread_define
Wed Sep 17 16:26:16 2014 -0400
a06aa0de9a46eeba2459fa37371a5e99410260f1
removing redundant grammar keywords
dceda2674d3f976fed0ac70b88a4dad8be5c0ff6
updating the grammar to handle some minor changes. adding some sample receiver code
Thu Sep 18 17:43:04 2014 -0400
e72d243e051835333b7e4071e35e572ad6a08669
updating the test-threading script. we have found a way to not use thread_define
Wed Sep 17 16:26:16 2014 -0400
a06aa0de9a46eeba2459fa37371a5e99410260f1
removing redundant grammar keywords
App-findeps
view release on metacpan or search on metacpan
lib/App/findeps.pm view on Meta::CPAN
base bigint bignum bigrat blib bytes
charnames constant diagnostics encoding
feature fields filetest if integer less lib locale mro
open ops overload overloading parent re
sigtrap sort strict subs
threads threads::shared utf8 vars vmsish
warnings warnings::register
);
sub scan_line {
my $pairs = shift;
App-gh
view release on metacpan or search on metacpan
lib/App/gh/Git.pm view on Meta::CPAN
Internally locks the file mapped to C<NAME>. This lock must be released with
C<temp_release()> when the temp file is no longer needed. Subsequent attempts
to retrieve temporary files mapped to the same C<NAME> while still locked will
cause an error. This locking mechanism provides a weak guarantee and is not
threadsafe. It does provide some error checking to help prevent temp file refs
writing over one another.
In general, the L<File::Handle> returned should not be closed by consumers as
it defeats the purpose of this caching mechanism. If you need to close the temp
file handle, then you should use L<File::Temp> or another temp file faculty
App-grindperl
view release on metacpan or search on metacpan
lib/App/grindperl.pm view on Meta::CPAN
Param("testjobs|t")->default(9),
Param("output|o"),
Param("install_root")->default(File::Spec->tmpdir),
Param("prefix"),
Switch("debugging")->default(1),
Switch("threads")->default(1),
Switch("32"),
Switch("porting|p"),
Switch("install"),
Switch("config"),
Switch("cache"),
lib/App/grindperl.pm view on Meta::CPAN
my ($self) = @_;
my %defines = $self->opt->get_define;
my @undefines = $self->opt->get_undefine;
my %additions = $self->opt->get_additions;
my @args = qw/-des -Dusedevel -Uversiononly/;
push @args, "-Dusethreads" if $self->opt->get_threads;
push @args, "-DDEBUGGING" if $self->opt->get_debugging;
push @args, "-Accflags=-m32", "-Alddlflags=-m32", "-Aldflags=-m32",
"-Uuse64bitint", "-Uuse64bitall", "-Uusemorebits"
if $self->opt->get_32;
push @args, "-r" if $self->opt->get_cache;
App-htmlcat
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-karr
view release on metacpan or search on metacpan
.claude/skills/perl-core/SKILL.md view on Meta::CPAN
- **In a Moose class, every helper is a method on `$self`.** Not a bare `sub _foo { ... }` invoked as `_foo($self->goldmine, $x)`. The class is there; use it.
- **Per-process caches go on the singleton as a Moose attribute** (`has _cache => ( is => 'ro', default => sub { {} } )`), not a `my %CACHE` package variable. Survives test isolation, lets a future caller swap state per instance.
- **No package-level state** unless it's a true global (an `%ENGINE_CLASS` lookup table that's literally constant counts; a per-call cache does not).
- Bare subs are OK in **non-class utility modules** that are imported as functions (`Goldmine::I18n::gm_key`, `Goldmine::BlockerReason::blocker`). Once a file says `use Moose` / `use MooseX::Singleton`, every `sub` should be a method.
Why: bare subs hide what the call needs (`$gm` passed manually each time), can't be overridden in a subclass, can't be mocked in tests, and force every caller to thread state by hand. `$self->method` is one extra colon-pair and gives all four for fre...
## Style / whitespace
- **2-space indentation.** Not 4. Not tabs. Every Getty Perl file.
- **No trailing commas** at the end of multi-line lists (different from Python convention).
App-lapidary
view release on metacpan or search on metacpan
script/lapidary view on Meta::CPAN
my $script_location = $RealBin;
my $path_variable = $ENV{'PATH'};
my $read_1;
my $read_2="";
my $db;
my $threads = 1; #Default to 1 thread
my $identity = 70; #Default to 70% identity
my $coverage = 50; #Default to 50% coverage
my $read_type;
my $help;
my $version;
script/lapidary view on Meta::CPAN
}
GetOptions ( 'read_1:s' => \$read_1,
'read_2:s' => \$read_2,
'db:s' => \$db,
'threads:i' => \$threads,
'identity:i' => \$identity,
'coverage:i' => \$coverage,
'read_type:s' => \$read_type,
'sequence_identification:s' => \$sequence_identification,
'help' => \$help,
script/lapidary view on Meta::CPAN
die "\n\nLapidary: a software for identifying amino acid sequences using sequenced reads\n\n
Options:\n
read_1\tLocation of first read file (required)\n
read_2\tLocation of second read file if read files are paired\n
db\tFull location to fasta file containing amino acid sequences (required)\n
threads\tNumber of threads to use for Diamond (default: 1)\n
identity\tDiamond identity percentage cut-off to use (default: 70)\n
coverage\tDiamond coverage percentage cut-off to use (default: 50)\n
read_type\tTypes of reads used (required): single or paired\n
sequence_identification\tMethod for calling most likely sequence: identity (default) or consensus\n
help\tDisplay help screen\n
script/lapidary view on Meta::CPAN
if($read_type eq "paired") {
#Concaternate read files
system "cat $read_1 $read_2 > $concatenated";
#Run diamond on concatenated reads
system "diamond blastx -k 1000000000000 -e 1.0 -k0 --matrix BLOSUM45 -q $concatenated --db $db_name --threads $threads --id $identity --query-cover $coverage -o $diamond_output -f 6 stitle qseqid qseq_translated qstart qend sstart send qcovhsp piden...
#Remove concatenated reads
system "rm $concatenated";
} elsif ($read_type eq "single") {
#Run diamond on single reads
system "diamond blastx -k 1000000000000 -e 1.0 -k0 --matrix BLOSUM45 -q $read_1 --db $db_name --threads $threads --id $identity --query-cover $coverage -o $diamond_output -f 6 stitle qseqid qseq_translated qstart qend sstart send qcovhsp pident qlen...
}
#Read in diamond_output and extract read information
@sample_proteins = ();
# @sample_reads = ();
App-livehttperf
view release on metacpan or search on metacpan
lib/App/livehttperf.pm view on Meta::CPAN
}
});
for my $tid ( 1 .. $concurrency ) {
LOG "Starting thread $tid" if INFO;
$pm->start($tid) and next;
my $failed_requests = 0;
my $successful_requests = 0;
my %req_stats = (
lib/App/livehttperf.pm view on Meta::CPAN
'3xx' => 0,
'4xx' => 0,
'5xx' => 0,
);
for my $no ( 1 .. $OPTS{repeat} ) {
LOG "Starting run $no (thread $tid)" if INFO;
# create brand new UA for each loop
my $ua = LWP::UserAgent->new(
(
$OPTS{reuse_cookies} ?
lib/App/livehttperf.pm view on Meta::CPAN
} else {
$successful_requests++;
LOG "[$tid.$no.$rec_no] RES: ", $res->status_line if DEBUG;
}
}
LOG "\nFinished run $no (thread $tid)" if INFO;
}
$req_stats{reqs} = [];
for my $rec_no ( keys %rec_stats_data ) {
for ( my $i = 0; $i < @{ $rec_stats_data{$rec_no} }; $i++ ) {
# total time of all requests in given run $no
lib/App/livehttperf.pm view on Meta::CPAN
bytes_recv => $bytes_recv,
%res_statuses,
};
LOG "\nFinished thread $tid" if INFO;
$pm->finish($failed_requests, \%req_stats);
}
$pm->wait_all_children;
App-local-lib-helper
view release on metacpan or search on metacpan
lib/App/local/lib/helper/rationale.pod view on Meta::CPAN
$ perl -V
[EXTENSIVE OUTPUT SNIPPED]
@INC:
/Users/johnn/perl5/perlbrew/perls/perl-5.10.1/lib/5.10.1/darwin-thread-multi-2level
/Users/johnn/perl5/perlbrew/perls/perl-5.10.1/lib/5.10.1
/Users/johnn/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/darwin-thread-multi-2level
/Users/johnn/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1
Your default search path (or C<@INC>) is typically installed into a global area on
your machine, or as in the case above, when using perlbrew, into a central area
in your C<$HOME> directory. You can also see this by dumping C<@INC> and C<$ENV{PATH}>:
$ perl -e 'use Data::Dumper; warn Dumper @INC, split(":",$ENV{PATH})'
$VAR1 = '/Users/johnn/perl5/perlbrew/perls/perl-5.10.1/lib/5.10.1/darwin-thread-multi-2level';
$VAR2 = '/Users/johnn/perl5/perlbrew/perls/perl-5.10.1/lib/5.10.1';
$VAR3 = '/Users/johnn/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/darwin-thread-multi-2level';
$VAR4 = '/Users/johnn/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1';
$VAR5 = '.';
$VAR6 = '/Users/johnn/perl5/perlbrew/bin';
$VAR7 = '/Users/johnn/perl5/perlbrew/perls/current/bin';
$VAR8 = '/usr/bin';
lib/App/local/lib/helper/rationale.pod view on Meta::CPAN
perl -I ~/mylib/lib/perl5 -Mlocal::lib=~/mylib [COMMAND]
You can see it work like so:
$ perl -I ~/mylib/lib/perl5/ -Mlocal::lib=~/mylib/ -e 'use Data::Dumper; warn Dumper @INC, split(":",$ENV{PATH})'
$VAR1 = '/Users/johnn/mylib/lib/perl5/darwin-thread-multi-2level';
$VAR2 = '/Users/johnn/mylib/lib/perl5';
$VAR5 = '/Users/johnn/perl5/perlbrew/perls/perl-5.10.1/lib/5.10.1/darwin-thread-multi-2level';
$VAR6 = '/Users/johnn/perl5/perlbrew/perls/perl-5.10.1/lib/5.10.1';
$VAR7 = '/Users/johnn/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/darwin-thread-multi-2level';
$VAR8 = '/Users/johnn/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1';
$VAR9 = '.';
$VAR10 = '/Users/johnn/mylib/bin';
$VAR11 = '/Users/johnn/perl5/perlbrew/bin';
$VAR12 = '/Users/johnn/perl5/perlbrew/perls/current/bin';
App-logcat_format
view release on metacpan or search on metacpan
lib/App/logcat_format.pm view on Meta::CPAN
% logcat_format -d
For other adb logcat commands, just pipe into logcat_format ..
% adb logcat -v threadtime | logcat_format
% adb -e logcat -v process | logcat_format
=head1 VERSION
version 0.06
App-mgen
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-mhping
view release on metacpan or search on metacpan
lib/App/mhping.pm view on Meta::CPAN
=back
=head1 COMPATIBILITY
This program requires Perl minimum version 5.8.8 with ithreads support to run.
It has been tested on the following minimum setup:
=over 4
=item *
Perl 5.8.8
=item *
threads 1.79
=item *
threads::shared 0.94
=item *
Thread::Queue 2.00
=back
lib/App/mhping.pm view on Meta::CPAN
=head1 SEE ALSO
L<ping(8)>
L<fping(8)>
L<mtr(8)>
L<threads>
L<threads::shared>
L<Thread::Queue>
=cut
1;
App-mimi
view release on metacpan or search on metacpan
mimi.fatpack view on Meta::CPAN
$fatpacked{"DBD/Sponge.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBD_SPONGE';
use strict;{package DBD::Sponge;require DBI;require Carp;our@EXPORT=qw();our$VERSION="0.03";our$drh=undef;my$methods_already_installed;sub driver{return$drh if$drh;DBD::Sponge::db->install_method("sponge_test_installed_method")unless$methods_alread...
DBD_SPONGE
$fatpacked{"DBI.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI';
package DBI;require 5.008_001;BEGIN {our$XS_VERSION=our$VERSION="0.03";$VERSION=eval$VERSION}use Carp();use DynaLoader ();use Exporter ();BEGIN {@ISA=qw(Exporter DynaLoader);@EXPORT=();@EXPORT_OK=qw(%DBI %DBI_methods hash);%EXPORT_TAGS=(sql_types=>...
DBI::_firesafe; # just in case
require $driver_class; # load the driver
};if ($@){my$err=$@;my$advice="";if ($err =~ /Can't find loadable object/){$advice="Perhaps DBD::$driver was statically linked into a new perl binary." ."\nIn which case you need to use that new perl binary." ."\nOr perhaps only the .pm file wa...
DBI
mimi.fatpack view on Meta::CPAN
$fatpacked{"DBI/Const/GetInfoType.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_CONST_GETINFOTYPE';
package DBI::Const::GetInfoType;use strict;use Exporter ();use vars qw(@ISA @EXPORT @EXPORT_OK %GetInfoType);@ISA=qw(Exporter);@EXPORT=qw(%GetInfoType);my$VERSION="0.03";use DBI::Const::GetInfo::ANSI ();use DBI::Const::GetInfo::ODBC ();%GetInfoType...
DBI_CONST_GETINFOTYPE
$fatpacked{"DBI/DBD.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_DBD';
package DBI::DBD;use strict;use vars qw($VERSION);$VERSION="0.03";use Exporter ();use Config qw(%Config);use Carp;use Cwd;use File::Spec;use strict;use vars qw(@ISA @EXPORT $is_dbi);BEGIN {if ($^O eq 'VMS'){require vmsish;import vmsish;require VMS:...
*** You're using Microsoft Visual C++ compiler or similar but
the LIB and INCLUDE environment variables are not both set.
You need to run the VCVARS32.BAT batch file that was supplied
with the compiler before you can use it.
mimi.fatpack view on Meta::CPAN
}
EOI
DBI_DBD_SQLENGINE
$fatpacked{"DBI/Gofer/Execute.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_GOFER_EXECUTE';
package DBI::Gofer::Execute;use strict;use warnings;use Carp;use DBI qw(dbi_time);use DBI::Gofer::Request;use DBI::Gofer::Response;use base qw(DBI::Util::_accessor);our$VERSION="0.03";our@all_dbh_methods=sort map {keys %$_}$DBI::DBI_methods{db},$DB...
DBI_GOFER_EXECUTE
$fatpacked{"DBI/Gofer/Request.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_GOFER_REQUEST';
package DBI::Gofer::Request;use strict;use DBI qw(neat neat_list);use base qw(DBI::Util::_accessor);our$VERSION="0.03";use constant GOf_REQUEST_IDEMPOTENT=>0x0001;use constant GOf_REQUEST_READONLY=>0x0002;our@EXPORT=qw(GOf_REQUEST_IDEMPOTENT GOf_RE...
DBI_GOFER_REQUEST
mimi.fatpack view on Meta::CPAN
$fatpacked{"DBI/ProfileSubs.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_PROFILESUBS';
package DBI::ProfileSubs;our$VERSION="0.03";use strict;use warnings;sub norm_std_n3 {local $_=$_;s/\b\d+\b/<N>/g;s/\b0x[0-9A-Fa-f]+\b/<N>/g;s/'.*?'/'<S>'/g;s/".*?"/"<S>"/g;s/([a-z_]+)(\d{3,})\b/${1}<N>/ig;s!((\s*<[NS]>\s*,\s*){100,})!sprintf("$2,<r...
DBI_PROFILESUBS
$fatpacked{"DBI/ProxyServer.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_PROXYSERVER';
require 5.004;use strict;use RPC::PlServer 0.2001;require DBI;require Config;package DBI::ProxyServer;use vars qw($VERSION @ISA);$VERSION="0.03";@ISA=qw(RPC::PlServer DBI);my%DEFAULT_SERVER_OPTIONS;{my$o=\%DEFAULT_SERVER_OPTIONS;$o->{'chroot'}=unde...
DBI_PROXYSERVER
$fatpacked{"DBI/PurePerl.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_PUREPERL';
package DBI;use strict;use Carp;require Symbol;require utf8;*utf8::is_utf8=sub {require bytes;return unless defined $_[0];return!(length($_[0])==bytes::length($_[0]))}unless defined&utf8::is_utf8;$DBI::PurePerl=$ENV{DBI_PUREPERL}|| 1;$DBI::PurePerl...
delete $h->{CachedKids};
( run in 1.319 second using v1.01-cache-2.11-cpan-c966e8aa7e8 )