Result:
found more than 489 distributions - search limited to the first 2001 files matching your query
( run in 1.040 )
App-HistHub
view release on metacpan or search on metacpan
inc/Test/Builder.pm view on Meta::CPAN
use warnings;
our $VERSION = '0.84';
$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-JobLog
view release on metacpan or search on metacpan
lib/App/JobLog/Command/info.pm view on Meta::CPAN
Everything you've done today. Example:
\$ job today
Tuesday, 15 March
11:33 - 11:35 am 0.04 widgets checking up on Lem's issue with pipeline
11:38 - 11:46 am 0.12 widgets checking up on Lem's issue with pipeline; figuring out null pointer in multi-threaded code
12:40 - 1:11 pm 0.52 widgets debugging null pointers
TOTAL HOURS 0.68
widgets 0.68
App-LDAP
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-Lazyd
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-Licensecheck
view release on metacpan or search on metacpan
t/devscripts/info-at-eof.h view on Meta::CPAN
#define LUA_ENVIRONINDEX (-10001)
#define LUA_GLOBALSINDEX (-10002)
#define lua_upvalueindex(i) (LUA_GLOBALSINDEX-(i))
/* thread status; 0 is OK */
#define LUA_YIELD 1
#define LUA_ERRRUN 2
#define LUA_ERRSYNTAX 3
#define LUA_ERRMEM 4
#define LUA_ERRERR 5
t/devscripts/info-at-eof.h view on Meta::CPAN
/*
** state manipulation
*/
LUA_API lua_State *(lua_newstate) (lua_Alloc f, void *ud);
LUA_API void (lua_close) (lua_State *L);
LUA_API lua_State *(lua_newthread) (lua_State *L);
LUA_API lua_CFunction (lua_atpanic) (lua_State *L, lua_CFunction panicf);
/*
t/devscripts/info-at-eof.h view on Meta::CPAN
LUA_API int (lua_toboolean) (lua_State *L, int idx);
LUA_API const char *(lua_tolstring) (lua_State *L, int idx, size_t *len);
LUA_API size_t (lua_objlen) (lua_State *L, int idx);
LUA_API lua_CFunction (lua_tocfunction) (lua_State *L, int idx);
LUA_API void *(lua_touserdata) (lua_State *L, int idx);
LUA_API lua_State *(lua_tothread) (lua_State *L, int idx);
LUA_API const void *(lua_topointer) (lua_State *L, int idx);
/*
** push functions (C -> stack)
t/devscripts/info-at-eof.h view on Meta::CPAN
va_list argp);
LUA_API const char *(lua_pushfstring) (lua_State *L, const char *fmt, ...);
LUA_API void (lua_pushcclosure) (lua_State *L, lua_CFunction fn, int n);
LUA_API void (lua_pushboolean) (lua_State *L, int b);
LUA_API void (lua_pushlightuserdata) (lua_State *L, void *p);
LUA_API int (lua_pushthread) (lua_State *L);
/*
** get functions (Lua -> stack)
*/
t/devscripts/info-at-eof.h view on Meta::CPAN
#define lua_isfunction(L,n) (lua_type(L, (n)) == LUA_TFUNCTION)
#define lua_istable(L,n) (lua_type(L, (n)) == LUA_TTABLE)
#define lua_islightuserdata(L,n) (lua_type(L, (n)) == LUA_TLIGHTUSERDATA)
#define lua_isnil(L,n) (lua_type(L, (n)) == LUA_TNIL)
#define lua_isboolean(L,n) (lua_type(L, (n)) == LUA_TBOOLEAN)
#define lua_isthread(L,n) (lua_type(L, (n)) == LUA_TTHREAD)
#define lua_isnone(L,n) (lua_type(L, (n)) == LUA_TNONE)
#define lua_isnoneornil(L, n) (lua_type(L, (n)) <= 0)
#define lua_pushliteral(L, s) \
lua_pushlstring(L, "" s, (sizeof(s)/sizeof(char))-1)
App-LinkSite
view release on metacpan or search on metacpan
lib/App/LinkSite/Social.pm view on Meta::CPAN
mastodon => {
# Hmm...
url => "https://fosstodon.org/@",
name => 'Mastodon',
},
threads => {
url => "https://www.threads.net/@",
name => 'Threads',
},
bluesky => {
url => 'https://bsky.app/profile/',
name => 'Bluesky',
App-Locker
view release on metacpan or search on metacpan
lib/App/Locker.pm view on Meta::CPAN
print "UNLOCK\n";
}
=head1 DESCRIPTION
This module provides create lock point in any place scipt and unlock it from another script place (main, fork, thread).
=cut
$Storable::Deparse = 1;
App-MFILE-WWW
view release on metacpan or search on metacpan
share/js/core/lib.js view on Meta::CPAN
return a.filter(function(item) {
return seen.hasOwnProperty(item) ? false : (seen[item] = true);
});
},
// pause main thread for n milliseconds
//wait: function (ms) {
// var start = new Date().getTime();
// var end = start;
// while(end < start + ms) {
// end = new Date().getTime();
App-MHFS
view release on metacpan or search on metacpan
lib/App/MHFS.pm view on Meta::CPAN
use Cwd qw(abs_path getcwd);
use Encode qw(decode encode);
use URI::Escape qw(uri_escape uri_escape_utf8);
use MIME::Base64 qw(encode_base64url decode_base64url);
our @EXPORT = ('LOCK_GET_LOCKDATA', 'LOCK_WRITE', 'UNLOCK_WRITE', 'write_file', 'read_file', 'shellcmd_unlock', 'ASYNC', 'FindFile', 'space2us', 'escape_html', 'function_exists', 'shell_escape', 'pid_running', 'escape_html_noquote', 'output_dir_v...
# single threaded locks
sub LOCK_GET_LOCKDATA {
my ($filename) = @_;
my $lockname = "$filename.lock";
my $bytes = read_file($lockname);
if(! defined $bytes) {
lib/App/MHFS.pm view on Meta::CPAN
#CT_READ => 1,
#CT_PROCESS = 2,
#CT_WRITE => 3
};
# The "client_thread" consists of 5 states, CT_READ, CT_PROCESS, CT_WRITE, CT_YIELD, and CT_DONE
# CT_READ reads input data from the socket
## on data read transitions to CT_PROCESS
## on error transitions to CT_DONE
## otherwise CT_YIELD
lib/App/MHFS.pm view on Meta::CPAN
# CT_WRITE outputs data to the socket
## on all data written transitions to CT_PROCESS unless Connection: close is set.
## on error transitions to CT_DONE
## otherwise CT_YIELD
# CT_YIELD just returns control to the poll loop to wait for IO or allow another client thread to run
# CT_DONE also returns control to the poll loop, it is called on error or when the client connection should be closed or is closed
sub CT_READ {
my ($self) = @_;
App-MaMGal
view release on metacpan or search on metacpan
lib/App/MaMGal/Entry/Dir.pm view on Meta::CPAN
sub _write_contents_to
{
my $self = shift;
my $code = shift;
my $suffix = shift;
# TODO: this will be an issue when mamgal goes multi-threaded
my $tmp_name = $self->child('.mamgal-tmp');
my $full_name = $self->child($suffix);
$self->SUPER::_write_contents_to($code, $tmp_name, $full_name);
}
App-MadEye-Plugin-Agent-Qudo
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-Manager
view release on metacpan or search on metacpan
- ldconfig is statically linked so changes by ldconfig
aren't noticed
- this probably breaks when threads are being used
- files with holes are not restored properly (this
is impossible)
- hardlinks are neither recognized nor restored.
App-MechaCPAN
view release on metacpan or search on metacpan
lib/App/MechaCPAN.pm view on Meta::CPAN
Changes to a specified directory before any processing is done. This allows you to specify what directory you want C<local/> to be in. If this isn't provided, the current working directory is used instead.
=head2 --build-reusable-perl
Giving this options will override the mode of operation and generate a reusable, relocatable L<perl> archive. This accepts the same parameters as the L<Perl|App::MechaCPAN::Perl> command (i.e. L</devel> and L</threads>) to generate the binary. Note t...
Once you have a reusable binary archive, L<App::MechaCPAN::Perl> can use that archive as a source file and install the binaries into the local directory. This can be handy if you are building a lot of identical systems and only want to build L<perl> ...
The exact parameters included in the archive name are:
lib/App/MechaCPAN.pm view on Meta::CPAN
=item * The architecture name, as found in the first piece of $Config{archname}
=item * The Operating System, as found in $Config{osname}
=item * Optionally notes if it was built with threads
=item * The name of the libc used
=item * The version of the libc used
App-Mimosa
view release on metacpan or search on metacpan
}
unshift @INC,
(
'/home/leto/git/util/perl_lib',
'/home/leto/perl5/lib/perl5',
'/home/leto/local-lib/lib/perl5/x86_64-linux-gnu-thread-multi',
'/home/leto/local-lib/lib/perl5',
'/home/leto/svn/gmod/chado/lib',
'/home/leto/git/cxgn/cxgn-corelibs/lib',
'/home/leto/git/cxgn/ITAG/lib',
'/home/leto/git/cxgn/ITAG-analyses/lib',
App-MtAws
view release on metacpan or search on metacpan
lib/App/MtAws.pm view on Meta::CPAN
# along with this program. If not, see <http://www.gnu.org/licenses/>.
=head1 NAME
mt-aws-glacier - Perl Multithreaded Multipart sync to Amazon Glacier
=head1 SYNOPSIS
More info in README.md or L<https://github.com/vsespb/mt-aws-glacier> or L<http://mt-aws.com/>
App-MultiModule-Tasks-ResourceWatcher
view release on metacpan or search on metacpan
'gid' => 0,
'cttlflt' => 0,
'cmdline' => 'perl p3',
'utime' => '0.17',
'cpuid' => '3',
'threads' => '1',
'majflt' => 0,
'sess' => '6315',
'priority' => '20',
'pid' => '7783',
'wchan' => '0',
App-Mxpress-PDF
view release on metacpan or search on metacpan
public/javascripts/ace/mode-apex.js view on Meta::CPAN
var mainKeywordMapper = this.createKeywordMapper({
"variable.language": "activate|any|autonomous|begin|bigdecimal|byte|cast|char|collect|const"
+ "|end|exit|export|float|goto|group|having|hint|import|inner|into|join|loop|number|object|of|outer"
+ "|parallel|pragma|retrieve|returning|search|short|stat|synchronized|then|this_month"
+ "|transaction|type|when",
"keyword": "private|protected|public|native|synchronized|abstract|threadsafe|transient|static|final"
+ "|and|array|as|asc|break|bulk|by|catch|class|commit|continue|convertcurrency"
+ "|delete|desc|do|else|enum|extends|false|final|finally|for|from|future|global"
+ "|if|implements|in|insert|instanceof|interface|last_90_days|last_month"
+ "|last_n_days|last_week|like|limit|list|map|merge|new|next_90_days|next_month|next_n_days"
+ "|next_week|not|null|nulls|on|or|override|package|return"
App-Netdisco
view release on metacpan or search on metacpan
share/public/swagger-ui/swagger-ui-bundle.js.map view on Meta::CPAN
{"version":3,"sources":["webpack:///webpack/universalModuleDefinition","webpack:///webpack/bootstrap 396b8c743e9ffbc09e47","webpack:///./node_modules/react/react.js","webpack:///./node_modules/prop-types/index.js","webpack:///./node_modules/babel-run...
App-NetdiscoX-Web-Plugin-GraphLinkSwitch
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)
ppd :
$(NOECHO) $(ECHO) '<SOFTPKG NAME="$(DISTNAME)" VERSION="$(VERSION)">' > $(DISTNAME).ppd
$(NOECHO) $(ECHO) ' <ABSTRACT>Will add links to the device details page to a graph website.</ABSTRACT>' >> $(DISTNAME).ppd
$(NOECHO) $(ECHO) ' <AUTHOR>Frederik Reenders <f.reenders@utwente.nl></AUTHOR>' >> $(DISTNAME).ppd
$(NOECHO) $(ECHO) ' <IMPLEMENTATION>' >> $(DISTNAME).ppd
$(NOECHO) $(ECHO) ' <ARCHITECTURE NAME="x86_64-linux-gnu-thread-multi-5.14" />' >> $(DISTNAME).ppd
$(NOECHO) $(ECHO) ' <CODEBASE HREF="" />' >> $(DISTNAME).ppd
$(NOECHO) $(ECHO) ' </IMPLEMENTATION>' >> $(DISTNAME).ppd
$(NOECHO) $(ECHO) '</SOFTPKG>' >> $(DISTNAME).ppd
App-NoPAN
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-OnePif
view release on metacpan or search on metacpan
docs/index.md view on Meta::CPAN
[ramenc]: https://github.com/polettix/App-OnePif/blob/master/bundle/ramenc
[7zip]: http://www.7-zip.org/
[1p]: https://github.com/polettix/App-OnePif/blob/master/bundle/1p
[erd]: http://www.backtrack-linux.org/forums/showthread.php?t=42033
[erda]: http://web.archive.org/web/20161202035137/http://www.backtrack-linux.org/forums/showthread.php?t=42033
[Internet Archive]: http://archive.org/web/
[1pif]: https://github.com/polettix/App-OnePif/blob/master/bundle/1pif
App-PP-Autolink
view release on metacpan or search on metacpan
lib/App/PP/Autolink.pm view on Meta::CPAN
next if $seen{$dylib};
next if $dylib =~ m{^/System}; # skip system libs
#next if $dylib =~ m{^/usr/lib/system};
next if $dylib =~ m{^/usr/lib/libSystem};
next if $dylib =~ m{^/usr/lib/};
next if $dylib =~ m{\Qdarwin-thread-multi-2level/auto/share/dist/Alien\E}; # another alien
say "adding $dylib for $lib";
push @libs_to_pack, $dylib;
$seen{$dylib}++;
# add this dylib to the search set
push @target_libs, $dylib;
lib/App/PP/Autolink.pm view on Meta::CPAN
delete $dlls{$name};
}
elsif (
#$path =~ m{^(?:/usr)?/lib(?:32|64)?/} # system lib
$path =~ $RE_skip
or $path =~ m{\Qdarwin-thread-multi-2level/auto/share/dist/Alien\E} # alien in share
or $name =~ m{^lib(?:c|gcc_s|stdc\+\+)\.} # should already be packed?
) {
#say "skipping $name => $path";
#warn "re1" if $path =~ m{^(?:/usr)?/lib(?:32|64)/};
#warn "re2" if $path =~ m{\Qdarwin-thread-multi-2level/auto/share/dist/Alien\E};
#warn "re3" if $name =~ m{^lib(?:gcc_s|stdc\+\+)\.};
delete $dlls{$name};
}
}
push @target_libs, sort values %dlls;
lib/App/PP/Autolink.pm view on Meta::CPAN
return wantarray ? @files : \@files;
}
sub get_ldd_skipper_regexp {
my ($self) = @_;
my @skip = qw /libm libc libpthread libdl/;
my $sk = join '|', @skip;
my $qr_skip = qr {\b(?:$sk)\.$Config::Config{so}};
return $qr_skip;
}
lib/App/PP/Autolink.pm view on Meta::CPAN
# PAR packs these automatically these days.
my @skip = qw /
perl5\d\d
libstdc\+\+\-6
libgcc_s_seh\-1
libwinpthread\-1
libgcc_s_sjlj\-1
/;
my $sk = join '|', @skip;
my $qr_skip = qr /^(?:$sk)$RE_DLL_EXT$/;
return $qr_skip;
lib/App/PP/Autolink.pm view on Meta::CPAN
utilities to find dependent libs.
It will also check dynamic libs used by Aliens if they are detected
and inherit from L<Alien::Base>.
Note that testing is currently very threadbare,
so please report issues. Pull requests are very welcome.
=head1 OPTIONS
As with L<pp>, options are available in a I<short> form and a I<long> form. For
App-PerlbrewUtils
view release on metacpan or search on metacpan
- Add utility: clean-site-lib.
0.03 2016-03-17 (PERLANCAR)
- list-more: Add columns threads, multiplicity, longdouble, is_current.
- module-version: Add column has_module.
- [doc] Add description to each command.
App-PhotoDB
view release on metacpan or search on metacpan
lib/App/PhotoDB/handlers.pm view on Meta::CPAN
$data{lens_id} = $href->{lens_id} // &listchoices({db=>$db, keyword=>'lens', table=>'choose_lens_by_film', where=>{film_id=>$data{film_id}}});
$data{shutter_speed} = $href->{shutter_speed} // &choose_shutterspeed({db=>$db, film_id=>$data{film_id}});
$data{aperture} = $href->{aperture} // &prompt({prompt=>'Aperture', type=>'decimal'});
my $filter_dia = 0;
if ($data{lens_id}) {
$filter_dia = &lookupval({db=>$db, col=>'if(filter_thread, filter_thread, 0)', table=>'LENS join LENSMODEL on LENS.lensmodel_id=LENSMODEL.lensmodel_id', where=>{lens_id=>$data{lens_id}}});
}
$data{filter_id} = $href->{filter_id} // &listchoices({db=>$db, table=>'choose_filter', where=>{'thread'=>{'>=', $filter_dia}}, inserthandler=>\&filter_add, skipok=>1, autodefault=>0});
$data{teleconverter_id} = $href->{teleconverter_id} // &listchoices({db=>$db, keyword=>'teleconverter', table=>'choose_teleconverter_by_film', where=>{film_id=>$data{film_id}}, inserthandler=>\&teleconverter_add, skipok=>1, autodefault=>0});
$data{notes} = $href->{notes} // &prompt({prompt=>'Extra notes'});
$data{mount_adapter_id} = $href->{mount_adapter_id} // &listchoices({db=>$db, table=>'choose_mount_adapter_by_film', where=>{film_id=>$data{film_id}}, skipok=>1});
$data{focal_length} = $href->{focal_length} // &prompt({default=>&lookupval({db=>$db, col=>'min_focal_length', table=>'LENS', where=>{lens_id=>$data{'lens_id'}}}), prompt=>'Focal length', type=>'integer'});
$data{latitude} = $href->{latitude} // &prompt({prompt=>'Latitude', type=>'decimal'});
lib/App/PhotoDB/handlers.pm view on Meta::CPAN
$data{closest_focus} = &prompt({prompt=>'How close can the lens focus? (cm)', type=>'integer', default=>$$defaults{closest_focus}});
$data{elements} = &prompt({prompt=>'How many elements does the lens have?', type=>'integer', default=>$$defaults{elements}});
$data{groups} = &prompt({prompt=>'How many groups are these elements in?', type=>'integer', default=>$$defaults{groups}});
$data{aperture_blades} = &prompt({prompt=>'How many aperture blades does the lens have?', type=>'integer', default=>$$defaults{aperture_blades}});
$data{autofocus} = &prompt({prompt=>'Does this lens have autofocus?', type=>'boolean', default=>$$defaults{autofocus}});
$data{filter_thread} = &prompt({prompt=>'What is the diameter of the filter thread? (mm)', type=>'decimal', default=>$$defaults{filter_thread}});
$data{magnification} = &prompt({prompt=>'What is the maximum magnification possible with this lens?', type=>'decimal', default=>$$defaults{magnification}});
$data{url} = &prompt({prompt=>'Informational URL for this lens', default=>$$defaults{url}});
$data{introduced} = &prompt({prompt=>'When was this lens introduced?', type=>'integer', default=>$$defaults{introduced}});
$data{discontinued} = &prompt({prompt=>'When was this lens discontinued?', type=>'integer', default=>$$defaults{discontinued}});
$data{negative_size_id} = &listchoices({db=>$db, cols=>['negative_size_id as id', 'negative_size as opt'], table=>'NEGATIVE_SIZE', inserthandler=>\&negativesize_add, default=>$$defaults{negative_size_id}});
lib/App/PhotoDB/handlers.pm view on Meta::CPAN
my $db = $href->{db};
my %data;
$data{type} = $href->{type} // &prompt({prompt=>'What type of filter is this?'});
$data{manufacturer_id} = $href->{manufacturer_id} // &choose_manufacturer({db=>$db});
$data{attenuation} = $href->{attenuation} // &prompt({prompt=>'What attenutation (in stops) does this filter have?', type=>'decimal'});
$data{thread} = $href->{thread} // &prompt({prompt=>'What diameter mounting thread does this filter have?', type=>'decimal'});
$data{qty} = $href->{qty} // &prompt({default=>1, prompt=>'How many of these filters do you have?', type=>'integer'});
return &newrecord({db=>$db, data=>\%data, table=>'FILTER'});
}
# Add a new development process to the database
lib/App/PhotoDB/handlers.pm view on Meta::CPAN
# Add a filter adapter to the database
sub filter_adapt {
my $href = shift;
my $db = $href->{db};
my %data;
$data{camera_thread} = $href->{camera_thread} // &prompt({prompt=>'What diameter thread faces the camera on this filter adapter?', type=>'decimal'});
$data{filter_thread} = $href->{filter_thread} // &prompt({prompt=>'What diameter thread faces the filter on this filter adapter?', type=>'decimal'});
return &newrecord({db=>$db, data=>\%data, table=>'FILTER_ADAPTER'});
}
# Add a new manufacturer to the database
sub manufacturer_add {
App-PigLatin
view release on metacpan or search on metacpan
t/files/moby11.txt view on Meta::CPAN
But it was not this night in particular that, in the solitude
of his cabin, Ahab thus pondered over his charts.
Almost every night they were brought out; almost every night
some pencil marks were effaced, and others were substituted.
For with the charts of all four oceans before him, Ahab was
threading a maze of currents and eddies, with a view to the more
certain accomplishment of that monomaniac thought of his soul.
Now, to any one not fully acquainted with the ways of the leviathans,
it might seem an absurdly hopeless task thus to seek out one
solitary creature in the unhooped oceans of this planet.
t/files/moby11.txt view on Meta::CPAN
I was the attendant or page of Queequeg, while busy at the mat.
As I kept passing and repassing the filling or woof of marline
between the long yarns of the warp, using my own hand for the shuttle,
and as Queequeg, standing sideways, ever and anon slid his heavy
oaken sword between the threads, and idly looking off upon
the water, carelessly and unthinkingly drove home every yarn;
I say so strange a dreaminess did there then reign all over
the ship and all over the sea, only broken by the intermitting
dull sound of the sword, that it seemed as if this were
the Loom of Time, and I myself were a shuttle mechanically
weaving and weaving away at the Fates. There lay the fixed
threads of the warp subject to but one single, ever returning,
unchanging vibration, and that vibration merely enough to admit
of the crosswise interblending of other threads with its own.
This warp seemed necessity; and here, thought I, with my own
hand I ply my own shuttle and weave my own destiny into
these unalterable threads. Meantime, Queequeg's impulsive,
indifferent sword, sometimes hitting the woof slantingly,
or crookedly, or strongly, or weakly, as the case might be;
and by this difference in the concluding blow producing a
corresponding contrast in the final aspect of the completed fabric;
this savage's sword, thought I, which thus finally shapes and fashions
both warp and woof; this easy, indifferent sword must be chance--
aye, chance, free will, and necessity--no wise incompatible--
all interweavingly working together. The straight warp
of necessity, not to be swerved from its ultimate course--
its every alternating vibration, indeed, only tending to that;
free will still free to ply her shuttle between given threads;
and chance, though restrained in its play within the right lines
of necessity, and sideways in its motions directed by free will,
though thus prescribed to by both, chance by turns rules either,
and has the last featuring blow at events.
t/files/moby11.txt view on Meta::CPAN
well withhold the rest. Nevertheless, so potent an influence did
this thing have on those seamen in the Pequod who came to the full
knowledge of it, and by such a strange delicacy, to call it so,
were they governed in this matter, that they kept the secret among
themselves so that it never transpired abaft the Pequod's main-mast.
Interweaving in its proper place this darker thread with the story
as publicly narrated on the ship, the whole of this strange affair
I now proceed to put on lasting record.
*The ancient whale-cry upon first sighting a whale from the mast-head,
t/files/moby11.txt view on Meta::CPAN
or cry of any sort, nay, not so much as a ripple or a bubble
came up from its depths; what landsman would have thought,
that beneath all that silence and placidity, the utmost
monster of the seas was writhing and wrenching in agony!
Not eight inches of perpendicular rope were visible at the bows.
Seems it credible that by three such thin threads the great
Leviathan was suspended like the big weight to an eight day clock.
Suspended? and to what? To three bits of board. Is this
the creature of whom it was once so triumphantly said--"Canst thou
fill his skin with barbed irons? or his head with fish-spears?
The sword of him that layeth at him cannot hold, the spear,
t/files/moby11.txt view on Meta::CPAN
Oh, grassy glades! oh ever vernal endless landscapes in the soul;
in ye,--though long parched by the dead drought of the earthly life,--
in ye, men yet may roll, like young horses in new morning clover;
and for some few fleeting moments, feel the cool dew of the life
immortal on them. Would to God these blessed calms would last.
But the mingled, mingling threads of life are woven by warp
and woof: calms crossed by storms, a storm for every calm.
There is no steady unretracing progress in this life; we do not
advance through fixed gradations, and at the last one pause:--
through infancy's unconscious spell, boyhood's thoughtless
faith, adolescence' doubt (the common doom), then scepticism,
t/files/moby11.txt view on Meta::CPAN
iron rod, he placed the blunted needle endwise on the top of it,
and less strongly hammered that, several times, the mate still holding
the rod as before. Then going through some small strange motions
with it--whether indispensable to the magnetizing of the steel,
or merely intended to augment the awe of the crew, is uncertain--
he called for linen thread; and moving to the binnacle, slipped out
the two reversed needles there, and horizontally suspended the
sail-needle by its middle, over one of the compass cards. At first,
the steel went round and round, quivering and vibrating at either end;
but at last it settled to its place, when Ahab, who had been intently
watching for this result, stepped frankly back from the binnacle,
t/files/moby11.txt view on Meta::CPAN
ETYMOLOGY
(Supplied by a Late Consumptive Usher to a Grammar School)
The pale Usher--threadbare in coat, heart, body, and brain;
I see him now. He was ever dusting his old lexicons and grammars,
with a queer handkerchief, mockingly embellished with all the gay
flags of all the known nations of the world. He loved to dust
his old grammars; it somehow mildly reminded him of his mortality.
App-Prove-Plugin-Elasticsearch
view release on metacpan or search on metacpan
mce_loop {
#XXX Net::Rabbitmq is doing something incorrectly, requiring us to re-import every time we fork to avoid 'connection reset by peer'
my $q_f = &{\&{$queue . "::new"}}($queue);
#Ensure we have no channel overlap with single-threaded things, like the write_channel, which testd does not use
$q->{read_channel} = 10 + MCE->wid();
MCE->say("Worker "
. MCE->wid()
. " started, checking queue on channel $q->{read_channel}");
worker($conf, $worker_state, $jobspec, $q_f);
App-Prove-Plugin-Idempotent
view release on metacpan or search on metacpan
This plugin tries to keep the verbose output of `prove' to be the same
TAP as it consumed. In particular, the final `ok' line that is normally
added is left out. Therefore you can reuse the output TAP stream and
feed it again into a TAP parser.
See the email thread
http://www.mail-archive.com/perl-qa@perl.org/msg11830.html
for discussion.
App-PureProxy
view release on metacpan or search on metacpan
script/pureproxy.pl view on Meta::CPAN
}
use Config;
use constant SERVER => $ENV{PUREPROXY_SERVER}
|| $Config{useithreads} ? 'Thrall' : 'Starlight';
BEGIN {
delete $ENV{http_proxy};
delete $ENV{https_proxy};
}
script/pureproxy.pl view on Meta::CPAN
=head1 DESCRIPTION
This is pure-Perl HTTP proxy server which can be run on almost every Perl
installation.
It uses L<thrall> pre-threading HTTP server if Perl supports threads or
L<starlight> pre-forking HTTP server otherwise.
It supports SSL and TLS if L<IO::Socket::SSL> is installed and IPv6 if
L<IO::Socket::IP> is installed.
script/pureproxy.pl view on Meta::CPAN
Max. number of requests to be handled before a worker process exits. (default:
1000)
=head2 --max-workers
A number of worker threads. (default: 50)
=head2 --min-reqs-per-child
If set, randomizes the number of requests handled by a single worker process
between the value and that supplied by C<--max-reqs-per-chlid>.
script/pureproxy.pl view on Meta::CPAN
=head1 ENVIRONMENT
=head2 PUREPROXY_SERVER
Changes the default PSGI server. This is L<Thrall> if Perl supports threads
and L<Starlight> otherwise.
=head1 SEE ALSO
L<http://github.com/dex4er/PureProxy>.
App-RPi-EnvUI
view release on metacpan or search on metacpan
lib/App/RPi/EnvUI/API.pm view on Meta::CPAN
Takes no parameters.
=head2 events
Initializes and starts the asynchronous timed events that operate in their own
processes, performing actions outside of the main thread.
Takes no parameters, has no return.
=head2 graph_data
App-RecordStream
view release on metacpan or search on metacpan
lib/App/RecordStream/Operation/multiplex.pm view on Meta::CPAN
$args_string
Examples:
Separate out a stream of text by PID into separate invocations of recs-frommultire.
recs-fromre '^(.*PID=([0-9]*).*)\$' -f line,pid | recs-multiplex -L line -k pid -- recs-frommultire ...
Tag lines with counts by thread
recs-multiplex -k thread -- recs-eval '{{nbr}} = ++\$nbr'
USAGE
}
sub more_help {
my $this = shift;
( run in 1.040 second using v1.01-cache-2.11-cpan-3cd7ad12f66 )