Result:
found more than 741 distributions - search limited to the first 2001 files matching your query
( run in 3.345 )
Alvis-QueryFilter
view release on metacpan or search on metacpan
t/test/resources/NEs view on Meta::CPAN
bacteria Bacteria
bacteriophage b103 Bacillus phage B103
bacteriophage sp82 Bacillus phage SP82
bacteriophage spo1 Bacillus phage SPO1
bacteriophage spp1 Bacteriophage SPP1
bacteroides fragilis Bacteroides fragilis
b. adolescentis Bifidobacterium adolescentis
b. afzelii Borrelia afzelii
b. amyloliquefaciens Bacillus amyloliquefaciens
b. animalis Bifidobacterium animalis
b. anserina Borrelia anserina
t/test/resources/NEs view on Meta::CPAN
b. crocidurae Borrelia crocidurae
b. cuniculi Bifidobacterium cuniculi
bears Ursidae
b expression Baculovirus expression vector pFastBac1-HM
bf-1 Foxg1
b. fragilis Bacteroides fragilis
b gamma Baboon gamma-herpesvirus
b. garinii Borrelia garinii
b. globigii Bacillus subtilis
b. globisporus Sporosarcina globispora
bgls bglF (CG Site No. 18502)
Alzabo
view release on metacpan or search on metacpan
- In where clause specifications, 'and' and 'or' were only being
allowed in lower-case. They are now allowed in any case.
- Aliases did not work in outer joins. This has been fixed.
- Using outer joins was a bit fragile, in that the order of the outer
join in the context of the other joins could cause Alzabo to
generate incorrect SQL. Now outer joins should work no matter what.
- A couple links in the schema creator had a hardcoded ".mhtml"
extension, as opposed to using the value of
Amazon-SQS-Client
view release on metacpan or search on metacpan
lib/Amazon/SQS/Model.pm view on Meta::CPAN
use Amazon::SQS::Constants qw(:all);
use List::Util qw(pairs);
use Module::Load qw(load);
#
# XML fragment representation of this object
# Note, name of the root determined by caller
# This fragment returns inner fields representation only
sub _toXMLFragment {
my ($self) = @_;
my $xml = $EMPTY;
foreach my $p ( pairs %{ $self->{_fields} } ) {
AmberDB
view release on metacpan or search on metacpan
* Updated main AmberDB abstract to "High-performance embedded NoSQL database engine for Perl".
5.23.0 2026-09-02
- [ARCHITECTURE & ID SIMPLIFICATION] Pure 64-bit Binary Engine & Deprecation of 8-Byte ASCII IDs:
* Deprecated 8-byte ASCII IDs (a8) across binary index structures in favor of pure 64-bit Big-Endian unsigned integer packing (Q>*), guaranteeing O(1) binary slicing with fixed 8-byte record strides.
* Simplified bin_encode() and bin_decode() by removing fragile \0 byte auto-detection and string unpacking heuristics.
* Removed legacy id_type schema attribute across all modules and test suites; standard relational tables strictly enforce positive integer numeric IDs.
- [STORAGE & PER-TABLE SIMPLE MODE] Hybrid Multi-Model Architecture with use_simple => 1:
* Introduced per-table use_simple => 1 attribute allowing key-value tables with arbitrary string keys up to 255 bytes (UUIDs, session tokens, emails, slugs, etc.) alongside standard relational tables.
* Preserved canonical physical table path ($dbase_dir/table/$table.db) for use_simple tables in standard database mode.
* Selective schema sanitization: tables with use_simple => 1 strip indexing, columnar, and caching definitions (blocks, match_block, search_block, facet_block, sort_block, record_index, use_cache, cache_ttl) to achieve zero index/cache I/O ...
- [CROSS-PLATFORM & CI] Universal GitHub Actions CI Matrix:
* Configured multi-platform CI matrix testing on Linux (ubuntu-latest), macOS (macos-latest), and Windows (windows-latest) across Perl 5.16 through 5.40.
* Configured official Strawberry Perl distribution in CI for native Berkeley DB / DB_File binary compatibility and prevented Git Bash PATH collisions.
- [STORAGE & TRANSACTIONS] Safe Directory Scanner and Windows File Sharing:
* Introduced dir_files($dir, [$pattern], [%opts]) helper method in AmberDB::Base for cross-platform, safe file discovery supporting wildcards (*.db, txn_*.txn) and compiled regular expressions (qr/../).
* Refactored AmberDB::Transact and AmberDB::Tools (dir_tables, all_tables, del_table) to use dir_files, completely removing fragile glob usage.
* Fixed Windows NTFS file sharing collision in transact_recover: journal lines are now read directly from open locked handles, preventing secondary open permission denied errors.
- [TESTS & STABILITY] Test Concurrency and Monotonic Sequence:
* Hardened t/amberdb_transact.t orphan recovery subtest to use strictly monotonic table_autoid record IDs (65) and authentic transaction lifecycle simulation.
* Guaranteed complete handle and lock cleanup with $adb->close_all() in crash recovery test scenarios.
Amethyst
view release on metacpan or search on metacpan
factpacks/Linux.fact view on Meta::CPAN
Bookmark Daemon => <reply> $who, Bookmark server.. URL: http://www.thestuff.net/bob/projects/bookmarkd/
bookmarker => <reply> $who, WWW based bookmark manager. URL: http://renaghan.com/pcr/bookmarker.html
bookmng => <reply> $who, Turn netscape bookmarks into html files. URL: http://www.math.tau.ac.il/~sariel/misc/bookmng.html
BookShelf => <reply> $who, A how to do a automatic generated, dynamically Table Documentation. URL: http://www.delec.com/is/products/prep/examples/BookShelf/
BookStore => <reply> $who, Remote bookmark management via web on a UNIX server.. URL: http://www.arches.uga.edu/~kledford/
BOOM => <reply> $who, The World's First Linux-Only Modification For Quake 2. URL: http://fragland.net/boom/
BootLogo => <reply> $who, A bootmessage generator for Lilo-colors. URL: http://members.tripod.lycos.nl/LostEden/html/bootlogo.html
bootpc => <reply> $who, Boot protocol client. URL: http://www.damtp.cam.ac.uk/linux/bootpc/
boscript => <reply> $who, A scriptable interface library to the Back Orifice Server. URL: http://blevins.simplenet.com/boscript
botnet => <reply> $who, Communication package for making IRC bots (or even clients). URL: http://zekiller.skytech.org
Bots => <reply> $who, . URL: http://studenti.ing.unipi.it/~s198977/bots.html
factpacks/Linux.fact view on Meta::CPAN
Deception Toolkit => <reply> $who, Gives defenders acouple of orders of magnitude advantage over attackers. URL: http://all.net/dtk/dtk.html
DECnet for Linux => <reply> $who, DECnet socket layer and applications. URL: http://linux.dreamtime.org/decnet/
defcon.epplet => <reply> $who, A system load monitor epplet.. URL: http://infinity.powertie.org/epplet/defcon.shtml
Defendguin => <reply> $who, A Linux-themed Defender clone.. URL: http://www.newbreedsoftware.com/defendguin/
Defkon 17 => <reply> $who, Realtime Strategy game. URL: http://members.xoom.com/p_guehring/dev_neu.019991104.tgz
defrag => <reply> $who, Filesystem defragmenter for Linux filesystems. URL: ftp://linux.dcs.ed.ac.uk/pub/linux/defrag/
Dejafilter => <reply> $who, Content-filtering CGI-based proxy script for Deja.com queries. URL: http://industrialsoftworks.com/dejafilter.php3
DejaSearch => <reply> $who, DejaSearch is a frontend to DejaNews, the leading Usenet archive. URL: http://homemade.hypermart.net/dejasearch/
Delay => <reply> $who, Delay is like sleep, but with a count of time left.. URL: http://onegeek.org/~tom/software/delay/
DeleGate => <reply> $who, Multi-purpose application level gateway (proxy). URL: http://wall.etl.go.jp/delegate/
Deliver => <reply> $who, . URL: http://www.pobox.com/~chip/
factpacks/Linux.fact view on Meta::CPAN
E-Grail => <reply> $who, Server-side Web Content Management Software. URL: http://www.egrail.com/
E-SETImon => <reply> $who, SETI@home progress monitor epplet. URL: http://home.dmv.com/~bcw/epplet.html
e-smith server and gateway => <reply> $who, Open-source software that converts a PC into a Linux Internet server. URL: http://www.e-smith.net/
E10-KL10 => <reply> $who, PDP-10 (KL10) emulator. URL: http://bony.umtec.com/pdp10.html
e2compr => <reply> $who, Transparent compression for ext2 filesystem. URL: http://debs.fuller.edu/e2compr/
e2defrag => <reply> $who, EXT2 filesystem defragmenter.. URL: ftp://skool.penguinpowered.com/pub/e2defrag/e2defrag-0.71.tar.gz
e2fsprogs => <reply> $who, Ext2 Filesystem Utilities. URL: http://web.mit.edu/tytso/www/linux/e2fsprogs.html
Eagle => <reply> $who, Eagle EDA Software for Linux. URL: http://www.cadsoftusa.com/
Eaglesp3 => <reply> $who, Spice3 simulation upgrade and library for the CadSoft Eagle layout system. URL: ftp://ftp.cadsoft.de/pub/userfiles/eaglesp3-0.99e.tgz
EAPSampler => <reply> $who, A driver for Aug1996 Electronics Australia Pocket Sampler Kit. URL: http://nexus.ay.com.au/junk/sampler/sampler-1.0k/
Easy TcpIp library => <reply> $who, TCP/IP developer library. URL: http://members.xoom.com/mgornstein/
Anarres-Mud-Driver
view release on metacpan or search on metacpan
lib/Driver/Compiler/Check.pm view on Meta::CPAN
or return $self->tc_fail;
my $type = $value->type;
if (!($type->is_class)) {
$program->error("Cannot get member $field of type " .
$type->name);
# print STDERR "Failed fragment is " . $value->dump, "\n";
return $self->tc_fail;
}
elsif (0) { # XXX Does the field exist?
$program->error("No field called $field in class " .
$type->class);
Antsy
view release on metacpan or search on metacpan
lib/Antsy.pm view on Meta::CPAN
);
foreach my $group ( @groups ) {
no strict 'refs';
my( $export_tag, $fragment, $command ) = @$group;
my $name = join '_', $export_tag, $fragment;
*{$name} = sub ( $n ) {
$n = $n =~ /\A([0-9]+)\z/ ? $1 : 0;
_seq( $command, $n );
};
Any-Moose
view release on metacpan or search on metacpan
lib/Any/Moose.pm view on Meta::CPAN
}
return;
}
sub any_moose {
my $fragment = _canonicalize_fragment(shift);
my $package = shift || caller;
# Mouse gets first dibs because it doesn't introspect existing classes
my $backer = _backer_of($package) || '';
if ($backer =~ /^Mouse/) {
$fragment =~ s/^Moose/Mouse/;
return $fragment;
}
return $fragment if $backer =~ /^Moose/;
$fragment =~ s/^Moose/Mouse/ if mouse_is_preferred();
return $fragment;
}
for my $name (qw/
load_class
is_class_loaded
lib/Any/Moose.pm view on Meta::CPAN
sub is_moose_loaded {
warnings::warnif('deprecated', "Any::Moose::is_moose_loaded is deprecated. Please use Any::Moose::moose_is_preferred instead");
goto \&_is_moose_loaded;
}
sub _canonicalize_fragment {
my $fragment = shift;
return 'Moose' if !$fragment;
# any_moose("X::Types") -> any_moose("MooseX::Types")
$fragment =~ s/^X::/MooseX::/;
# any_moose("::Util") -> any_moose("Moose::Util")
$fragment =~ s/^::/Moose::/;
# any_moose("Mouse::Util") -> any_moose("Moose::Util")
$fragment =~ s/^Mouse(X?)\b/Moose$1/;
# any_moose("Util") -> any_moose("Moose::Util")
$fragment =~ s/^(?!Moose)/Moose::/;
return $fragment;
}
1;
__END__
Any-Renderer
view release on metacpan or search on metacpan
lib/Any/Renderer.pm view on Meta::CPAN
=item All the modules in the Any::Renderer:: distribution
L<http://search.cpan.org/dist/Any-Renderer>.
Each module lists the formats it supports in the FORMATS section.
Many of also include sample output fragments.
=item L<Any::Template>
A templating engine is a special case of a renderer (one that uses a template, usually from a file or string, to control formatting).
If you are considering exposing another templating language via Any::Renderer, instead consider exposing it via Any::Template.
AnyEvent-APNS
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
? '{}'
: default_as_code($default);
my $code = $code{sub_start};
if ($args->{-init}) {
my $fragment = $args->{-weak} ? $code{weak_init} : $code{init};
$code .= sprintf $fragment, $field, $args->{-init}, ($field) x 4;
}
$code .= sprintf $code{set_default}, $field, $default_string, $field
if defined $default;
$code .= sprintf $code{return_if_get}, $field;
$code .= sprintf $code{set}, $field;
AnyEvent-Atom-Stream
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
? '{}'
: default_as_code($default);
my $code = $code{sub_start};
if ($args->{-init}) {
my $fragment = $args->{-weak} ? $code{weak_init} : $code{init};
$code .= sprintf $fragment, $field, $args->{-init}, ($field) x 4;
}
$code .= sprintf $code{set_default}, $field, $default_string, $field
if defined $default;
$code .= sprintf $code{return_if_get}, $field;
$code .= sprintf $code{set}, $field;
AnyEvent-Cron
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
return 1;
}
sub postamble {
$PostambleUsed = 1;
my $fragment;
$fragment .= <<"AUTO_INSTALL" if !$InstallDepsTarget;
config :: installdeps
\t\$(NOECHO) \$(NOOP)
AUTO_INSTALL
$fragment .= <<"END_MAKE";
checkdeps ::
\t\$(PERL) $0 --checkdeps
installdeps ::
inc/Module/AutoInstall.pm view on Meta::CPAN
listalldeps ::
\t$PostambleActionsListAllDeps
END_MAKE
return $fragment;
}
1;
__END__
AnyEvent-DBI-Abstract-Limit
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
? '{}'
: default_as_code($default);
my $code = $code{sub_start};
if ($args->{-init}) {
my $fragment = $args->{-weak} ? $code{weak_init} : $code{init};
$code .= sprintf $fragment, $field, $args->{-init}, ($field) x 4;
}
$code .= sprintf $code{set_default}, $field, $default_string, $field
if defined $default;
$code .= sprintf $code{return_if_get}, $field;
$code .= sprintf $code{set}, $field;
AnyEvent-Fork-RPC
view release on metacpan or search on metacpan
dies with a fatal error - obviously, you must never let this happen :).
Eventually it returns the status value true if the command was successful,
or the status value 0 and the stringified error message.
On my system, running the first code fragment with the given
F<MyWorker.pm> in the current directory yields:
/tmp/somepath/1: No such file or directory
/tmp/somepath/2: No such file or directory
3 requests handled
AnyEvent-FriendFeed-Realtime
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
? '{}'
: default_as_code($default);
my $code = $code{sub_start};
if ($args->{-init}) {
my $fragment = $args->{-weak} ? $code{weak_init} : $code{init};
$code .= sprintf $fragment, $field, $args->{-init}, ($field) x 4;
}
$code .= sprintf $code{set_default}, $field, $default_string, $field
if defined $default;
$code .= sprintf $code{return_if_get}, $field;
$code .= sprintf $code{set}, $field;
AnyEvent-Gearman
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
? '{}'
: default_as_code($default);
my $code = $code{sub_start};
if ($args->{-init}) {
my $fragment = $args->{-weak} ? $code{weak_init} : $code{init};
$code .= sprintf $fragment, $field, $args->{-init}, ($field) x 4;
}
$code .= sprintf $code{set_default}, $field, $default_string, $field
if defined $default;
$code .= sprintf $code{return_if_get}, $field;
$code .= sprintf $code{set}, $field;
AnyEvent-Gmail-Feed
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
? '{}'
: default_as_code($default);
my $code = $code{sub_start};
if ($args->{-init}) {
my $fragment = $args->{-weak} ? $code{weak_init} : $code{init};
$code .= sprintf $fragment, $field, $args->{-init}, ($field) x 4;
}
$code .= sprintf $code{set_default}, $field, $default_string, $field
if defined $default;
$code .= sprintf $code{return_if_get}, $field;
$code .= sprintf $code{set}, $field;
AnyEvent-Groonga
view release on metacpan or search on metacpan
lib/AnyEvent/Groonga.pm view on Meta::CPAN
clearlock
column_create
column_list
column_remove
define_selector
defrag
delete
dump
load
log_level
log_put
lib/AnyEvent/Groonga.pm view on Meta::CPAN
=item column_remove
=item define_selector
=item defrag
=item delete
=item dump
AnyEvent-HTTP
view release on metacpan or search on metacpan
if $recurse < 0;
my $proxy = exists $arg{proxy} ? $arg{proxy} : $PROXY;
my $timeout = $arg{timeout} || $TIMEOUT;
my ($uscheme, $uauthority, $upath, $query, undef) = # ignore fragment
$url =~ m|^([^:]+):(?://([^/?#]*))?([^?#]*)(?:(\?[^#]*))?(?:#(.*))?$|;
$uscheme = lc $uscheme;
my $uport = $uscheme eq "http" ? 80
$rscheme = lc $rscheme;
} else {
($rhost, $rport, $rscheme, $rpath) = ($uhost, $uport, $uscheme, $upath);
}
# leave out fragment and query string, just a heuristic
$hdr{referer} = "$uscheme://$uauthority$upath" unless exists $hdr{referer};
$hdr{"user-agent"} = $USERAGENT unless exists $hdr{"user-agent"};
$hdr{"content-length"} = length $arg{body}
if length $arg{body} || $method ne "GET";
AnyEvent-HTTPD-CookiePatch
view release on metacpan or search on metacpan
lib/AnyEvent/HTTPD/CookiePatch.pm view on Meta::CPAN
our @ISA = 'AnyEvent::HTTPD::Request';
sub cookie {
my($req, $name, $value, $max_age, $path, $domain) = @_;
if( defined $value ) { # set cookie
my $fragment = "$name=$value";
$fragment .= "; Max-Age=$max_age" if( defined $max_age );
$fragment .= "; Path=$path" if( defined $path );
$fragment .= "; Domain=$domain" if( defined $domain );
if( exists $req->{_set_cookie} ) {
$req->{_set_cookie} .= "\0$fragment";
}
else {
$req->{_set_cookie} = $fragment;
}
}
else { # get cookie
if( !$req->{_cookie} ) {
my $cookie_header = $req->headers->{cookie};
AnyEvent-JSONRPC-Lite
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
? '{}'
: default_as_code($default);
my $code = $code{sub_start};
if ($args->{-init}) {
my $fragment = $args->{-weak} ? $code{weak_init} : $code{init};
$code .= sprintf $fragment, $field, $args->{-init}, ($field) x 4;
}
$code .= sprintf $code{set_default}, $field, $default_string, $field
if defined $default;
$code .= sprintf $code{return_if_get}, $field;
$code .= sprintf $code{set}, $field;
AnyEvent-JSONRPC
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
? '{}'
: default_as_code($default);
my $code = $code{sub_start};
if ($args->{-init}) {
my $fragment = $args->{-weak} ? $code{weak_init} : $code{init};
$code .= sprintf $fragment, $field, $args->{-init}, ($field) x 4;
}
$code .= sprintf $code{set_default}, $field, $default_string, $field
if defined $default;
$code .= sprintf $code{return_if_get}, $field;
$code .= sprintf $code{set}, $field;
AnyEvent-Memcached
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
return 1;
}
sub postamble {
$PostambleUsed = 1;
my $fragment;
$fragment .= <<"AUTO_INSTALL" if !$InstallDepsTarget;
config :: installdeps
\t\$(NOECHO) \$(NOOP)
AUTO_INSTALL
$fragment .= <<"END_MAKE";
checkdeps ::
\t\$(PERL) $0 --checkdeps
installdeps ::
inc/Module/AutoInstall.pm view on Meta::CPAN
listalldeps ::
\t$PostambleActionsListAllDeps
END_MAKE
return $fragment;
}
1;
__END__
AnyEvent-MySQL
view release on metacpan or search on metacpan
lib/AnyEvent/MySQL/Imp.pm view on Meta::CPAN
skip_until_eof($hd, $cb);
}
});
}
=head2 send_packet($hd, $packet_num, $packet_frag1, $pack_frag2, ...)
=cut
sub send_packet {
return if !$_[0];
local $_[0] = $_[0];
my $len = reduce { $a + length($b) } 0, @_[2..$#_];
AnyEvent-Net-Curl-Queued
view release on metacpan or search on metacpan
lib/AnyEvent/Net/Curl/Queued/Easy.pm view on Meta::CPAN
my $data = '';
$self->set_data(\$data);
my $header = '';
$self->set_header(\$header);
# fragment mangling
my $url = $self->initial_url->clone;
$url->fragment(undef);
$self->setopt(
Net::Curl::Easy::CURLOPT_URL, $url->as_string,
Net::Curl::Easy::CURLOPT_WRITEDATA, \$data,
Net::Curl::Easy::CURLOPT_WRITEHEADER, \$header,
);
AnyEvent-Pcap
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
? '{}'
: default_as_code($default);
my $code = $code{sub_start};
if ($args->{-init}) {
my $fragment = $args->{-weak} ? $code{weak_init} : $code{init};
$code .= sprintf $fragment, $field, $args->{-init}, ($field) x 4;
}
$code .= sprintf $code{set_default}, $field, $default_string, $field
if defined $default;
$code .= sprintf $code{return_if_get}, $field;
$code .= sprintf $code{set}, $field;
AnyEvent-RabbitMQ-RPC
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
return 1;
}
sub postamble {
$PostambleUsed = 1;
my $fragment;
$fragment .= <<"AUTO_INSTALL" if !$InstallDepsTarget;
config :: installdeps
\t\$(NOECHO) \$(NOOP)
AUTO_INSTALL
$fragment .= <<"END_MAKE";
checkdeps ::
\t\$(PERL) $0 --checkdeps
installdeps ::
inc/Module/AutoInstall.pm view on Meta::CPAN
listalldeps ::
\t$PostambleActionsListAllDeps
END_MAKE
return $fragment;
}
1;
__END__
AnyEvent-ReverseHTTP
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
? '{}'
: default_as_code($default);
my $code = $code{sub_start};
if ($args->{-init}) {
my $fragment = $args->{-weak} ? $code{weak_init} : $code{init};
$code .= sprintf $fragment, $field, $args->{-init}, ($field) x 4;
}
$code .= sprintf $code{set_default}, $field, $default_string, $field
if defined $default;
$code .= sprintf $code{return_if_get}, $field;
$code .= sprintf $code{set}, $field;
AnyEvent-SMTP
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
return 1;
}
sub postamble {
$PostambleUsed = 1;
my $fragment;
$fragment .= <<"AUTO_INSTALL" if !$InstallDepsTarget;
config :: installdeps
\t\$(NOECHO) \$(NOOP)
AUTO_INSTALL
$fragment .= <<"END_MAKE";
checkdeps ::
\t\$(PERL) $0 --checkdeps
installdeps ::
inc/Module/AutoInstall.pm view on Meta::CPAN
listalldeps ::
\t$PostambleActionsListAllDeps
END_MAKE
return $fragment;
}
1;
__END__
AnyEvent
view release on metacpan or search on metacpan
lib/AnyEvent.pm view on Meta::CPAN
...
my $results = $cv->recv;
This code fragment supposedly pings a number of hosts and calls
C<send> after results for all then have have been gathered - in any
order. To achieve this, the code issues a call to C<begin> when it starts
each ping request and calls C<end> when it has received some result for
it. Since C<begin> and C<end> only maintain a counter, the order in which
results arrive is not relevant.
( run in 3.345 seconds using v1.01-cache-2.11-cpan-b16cb0d3907 )