ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/IO-AIO/AIO.pm
(Generate patch)

Comparing IO-AIO/AIO.pm (file contents):
Revision 1.56 by root, Sun Oct 22 00:53:47 2006 UTC vs.
Revision 1.73 by root, Tue Oct 24 16:35:04 2006 UTC

18 }; 18 };
19 19
20 # version 2+ has request and group objects 20 # version 2+ has request and group objects
21 use IO::AIO 2; 21 use IO::AIO 2;
22 22
23 aioreq_pri 4; # give next request a very high priority
23 my $req = aio_unlink "/tmp/file", sub { }; 24 my $req = aio_unlink "/tmp/file", sub { };
24 $req->cancel; # cancel request if still in queue 25 $req->cancel; # cancel request if still in queue
25 26
26 my $grp = aio_group sub { print "all stats done\n" }; 27 my $grp = aio_group sub { print "all stats done\n" };
27 add $grp aio_stat "..." for ...; 28 add $grp aio_stat "..." for ...;
50=head1 DESCRIPTION 51=head1 DESCRIPTION
51 52
52This module implements asynchronous I/O using whatever means your 53This module implements asynchronous I/O using whatever means your
53operating system supports. 54operating system supports.
54 55
55Currently, a number of threads are started that execute your read/writes 56In this version, a number of threads are started that execute your
56and signal their completion. You don't need thread support in your libc or 57requests and signal their completion. You don't need thread support
57perl, and the threads created by this module will not be visible to the 58in perl, and the threads created by this module will not be visible
58pthreads library. In the future, this module might make use of the native 59to perl. In the future, this module might make use of the native aio
59aio functions available on many operating systems. However, they are often 60functions available on many operating systems. However, they are often
60not well-supported (Linux doesn't allow them on normal files currently, 61not well-supported or restricted (Linux doesn't allow them on normal
61for example), and they would only support aio_read and aio_write, so the 62files currently, for example), and they would only support aio_read and
62remaining functionality would have to be implemented using threads anyway. 63aio_write, so the remaining functionality would have to be implemented
64using threads anyway.
63 65
64Although the module will work with in the presence of other threads, it is 66Although the module will work with in the presence of other (Perl-)
65currently not reentrant, so use appropriate locking yourself, always call 67threads, it is currently not reentrant in any way, so use appropriate
66C<poll_cb> from within the same thread, or never call C<poll_cb> (or other 68locking yourself, always call C<poll_cb> from within the same thread, or
67C<aio_> functions) recursively. 69never call C<poll_cb> (or other C<aio_> functions) recursively.
70
71=head1 REQUEST ANATOMY AND LIFETIME
72
73Every C<aio_*> function creates a request. which is a C data structure not
74directly visible to Perl.
75
76If called in non-void context, every request function returns a Perl
77object representing the request. In void context, nothing is returned,
78which saves a bit of memory.
79
80The perl object is a fairly standard ref-to-hash object. The hash contents
81are not used by IO::AIO so you are free to store anything you like in it.
82
83During their existance, aio requests travel through the following states,
84in order:
85
86=over 4
87
88=item ready
89
90Immediately after a request is created it is put into the ready state,
91waiting for a thread to execute it.
92
93=item execute
94
95A thread has accepted the request for processing and is currently
96executing it (e.g. blocking in read).
97
98=item pending
99
100The request has been executed and is waiting for result processing.
101
102While request submission and execution is fully asynchronous, result
103processing is not and relies on the perl interpreter calling C<poll_cb>
104(or another function with the same effect).
105
106=item result
107
108The request results are processed synchronously by C<poll_cb>.
109
110The C<poll_cb> function will process all outstanding aio requests by
111calling their callbacks, freeing memory associated with them and managing
112any groups they are contained in.
113
114=item done
115
116Request has reached the end of its lifetime and holds no resources anymore
117(except possibly for the Perl object, but its connection to the actual
118aio request is severed and calling its methods will either do nothing or
119result in a runtime error).
68 120
69=cut 121=cut
70 122
71package IO::AIO; 123package IO::AIO;
72 124
76use base 'Exporter'; 128use base 'Exporter';
77 129
78BEGIN { 130BEGIN {
79 our $VERSION = '2.0'; 131 our $VERSION = '2.0';
80 132
81 our @EXPORT = qw(aio_sendfile aio_read aio_write aio_open aio_close aio_stat 133 our @AIO_REQ = qw(aio_sendfile aio_read aio_write aio_open aio_close aio_stat
82 aio_lstat aio_unlink aio_rmdir aio_readdir aio_scandir aio_symlink 134 aio_lstat aio_unlink aio_rmdir aio_readdir aio_scandir aio_symlink
83 aio_fsync aio_fdatasync aio_readahead aio_rename aio_link aio_move 135 aio_fsync aio_fdatasync aio_readahead aio_rename aio_link aio_move
84 aio_group); 136 aio_group aio_nop);
85 our @EXPORT_OK = qw(poll_fileno poll_cb min_parallel max_parallel max_outstanding nreqs); 137 our @EXPORT = (@AIO_REQ, qw(aioreq_pri aioreq_nice));
138 our @EXPORT_OK = qw(poll_fileno poll_cb poll_wait flush
139 min_parallel max_parallel max_outstanding nreqs);
86 140
87 @IO::AIO::GRP::ISA = 'IO::AIO::REQ'; 141 @IO::AIO::GRP::ISA = 'IO::AIO::REQ';
88 142
89 require XSLoader; 143 require XSLoader;
90 XSLoader::load ("IO::AIO", $VERSION); 144 XSLoader::load ("IO::AIO", $VERSION);
121environment, d) use Glib::filename_from_unicode on unicode filenames or e) 175environment, d) use Glib::filename_from_unicode on unicode filenames or e)
122use something else. 176use something else.
123 177
124=over 4 178=over 4
125 179
180=item aioreq_pri $pri
181
182Sets the priority for the next aio request. The default priority
183is C<0>, the minimum and maximum priorities are C<-4> and C<4>,
184respectively. Requests with higher priority will be serviced first.
185
186The priority will be reset to C<0> after each call to one of the C<aio_>
187functions.
188
189Example: open a file with low priority, then read something from it with
190higher priority so the read request is serviced before other low priority
191open requests (potentially spamming the cache):
192
193 aioreq_pri -3;
194 aio_open ..., sub {
195 return unless $_[0];
196
197 aioreq_pri -2;
198 aio_read $_[0], ..., sub {
199 ...
200 };
201 };
202
203=item aioreq_nice $pri_adjust
204
205Similar to C<aioreq_pri>, but subtracts the given value from the current
206priority, so effects are cumulative.
207
126=item aio_open $pathname, $flags, $mode, $callback->($fh) 208=item aio_open $pathname, $flags, $mode, $callback->($fh)
127 209
128Asynchronously open or create a file and call the callback with a newly 210Asynchronously open or create a file and call the callback with a newly
129created filehandle for the file. 211created filehandle for the file.
130 212
201=cut 283=cut
202 284
203sub aio_move($$$) { 285sub aio_move($$$) {
204 my ($src, $dst, $cb) = @_; 286 my ($src, $dst, $cb) = @_;
205 287
206 my $grp = aio_group; 288 my $grp = aio_group $cb;
207 289
208 add $grp aio_rename $src, $dst, sub { 290 add $grp aio_rename $src, $dst, sub {
209 if ($_[0] && $! == EXDEV) { 291 if ($_[0] && $! == EXDEV) {
210 add $grp aio_open $src, O_RDONLY, 0, sub { 292 add $grp aio_open $src, O_RDONLY, 0, sub {
211 if (my $src_fh = $_[0]) { 293 if (my $src_fh = $_[0]) {
221 chmod $stat[2] & 07777, $dst_fh; 303 chmod $stat[2] & 07777, $dst_fh;
222 chown $stat[4], $stat[5], $dst_fh; 304 chown $stat[4], $stat[5], $dst_fh;
223 close $dst_fh; 305 close $dst_fh;
224 306
225 add $grp aio_unlink $src, sub { 307 add $grp aio_unlink $src, sub {
226 $cb->($_[0]); 308 $grp->result ($_[0]);
227 }; 309 };
228 } else { 310 } else {
229 my $errno = $!; 311 my $errno = $!;
230 add $grp aio_unlink $dst, sub { 312 add $grp aio_unlink $dst, sub {
231 $! = $errno; 313 $! = $errno;
232 $cb->(-1); 314 $grp->result (-1);
233 }; 315 };
234 } 316 }
235 }; 317 };
236 } else { 318 } else {
237 $cb->(-1); 319 $grp->result (-1);
238 } 320 }
239 }, 321 },
240 322
241 } else { 323 } else {
242 $cb->(-1); 324 $grp->result (-1);
243 } 325 }
244 }; 326 };
245 } else { 327 } else {
246 $cb->($_[0]); 328 $grp->result ($_[0]);
247 } 329 }
248 }; 330 };
249 331
250 $grp 332 $grp
251} 333}
348Scans a directory (similar to C<aio_readdir>) but additionally tries to 430Scans a directory (similar to C<aio_readdir>) but additionally tries to
349separate the entries of directory C<$path> into two sets of names, ones 431separate the entries of directory C<$path> into two sets of names, ones
350you can recurse into (directories or links to them), and ones you cannot 432you can recurse into (directories or links to them), and ones you cannot
351recurse into (everything else). 433recurse into (everything else).
352 434
353C<aio_scandir> is a composite request that consists of many sub 435C<aio_scandir> is a composite request that creates of many sub requests_
354requests. C<$maxreq> specifies the maximum number of outstanding aio 436C<$maxreq> specifies the maximum number of outstanding aio requests that
355requests that this function generates. If it is C<< <= 0 >>, then a 437this function generates. If it is C<< <= 0 >>, then a suitable default
356suitable default will be chosen (currently 8). 438will be chosen (currently 6).
357 439
358On error, the callback is called without arguments, otherwise it receives 440On error, the callback is called without arguments, otherwise it receives
359two array-refs with path-relative entry names. 441two array-refs with path-relative entry names.
360 442
361Example: 443Example:
398=cut 480=cut
399 481
400sub aio_scandir($$$) { 482sub aio_scandir($$$) {
401 my ($path, $maxreq, $cb) = @_; 483 my ($path, $maxreq, $cb) = @_;
402 484
403 my $grp = aio_group; 485 my $grp = aio_group $cb;
404 486
405 $maxreq = 8 if $maxreq <= 0; 487 $maxreq = 6 if $maxreq <= 0;
406 488
407 # stat once 489 # stat once
408 add $grp aio_stat $path, sub { 490 add $grp aio_stat $path, sub {
409 return $cb->() if $_[0]; 491 return $grp->result () if $_[0];
410 my $now = time; 492 my $now = time;
411 my $hash1 = join ":", (stat _)[0,1,3,7,9]; 493 my $hash1 = join ":", (stat _)[0,1,3,7,9];
412 494
413 # read the directory entries 495 # read the directory entries
414 add $grp aio_readdir $path, sub { 496 add $grp aio_readdir $path, sub {
415 my $entries = shift 497 my $entries = shift
416 or return $cb->(); 498 or return $grp->result ();
417 499
418 # stat the dir another time 500 # stat the dir another time
419 add $grp aio_stat $path, sub { 501 add $grp aio_stat $path, sub {
420 my $hash2 = join ":", (stat _)[0,1,3,7,9]; 502 my $hash2 = join ":", (stat _)[0,1,3,7,9];
421 503
426 $ndirs = -1; 508 $ndirs = -1;
427 } else { 509 } else {
428 # if nlink == 2, we are finished 510 # if nlink == 2, we are finished
429 # on non-posix-fs's, we rely on nlink < 2 511 # on non-posix-fs's, we rely on nlink < 2
430 $ndirs = (stat _)[3] - 2 512 $ndirs = (stat _)[3] - 2
431 or return $cb->([], $entries); 513 or return $grp->result ([], $entries);
432 } 514 }
433 515
434 # sort into likely dirs and likely nondirs 516 # sort into likely dirs and likely nondirs
435 # dirs == files without ".", short entries first 517 # dirs == files without ".", short entries first
436 $entries = [map $_->[0], 518 $entries = [map $_->[0],
441 my (@dirs, @nondirs); 523 my (@dirs, @nondirs);
442 524
443 my ($statcb, $schedcb); 525 my ($statcb, $schedcb);
444 my $nreq = 0; 526 my $nreq = 0;
445 527
528 my $statgrp = add $grp aio_group;
529
446 $schedcb = sub { 530 $schedcb = sub {
447 if (@$entries) { 531 if (@$entries) {
448 if ($nreq < $maxreq) { 532 if ($nreq < $maxreq) {
449 my $ent = pop @$entries; 533 my $ent = pop @$entries;
450 $nreq++; 534 $nreq++;
451 add $grp aio_stat "$path/$ent/.", sub { $statcb->($_[0], $ent) }; 535 add $statgrp aio_stat "$path/$ent/.", sub { $statcb->($_[0], $ent) };
452 } 536 }
453 } elsif (!$nreq) { 537 } elsif (!$nreq) {
454 # finished 538 # finished
539 $statgrp->cancel;
455 undef $statcb; 540 undef $statcb;
456 undef $schedcb; 541 undef $schedcb;
457 $cb->(\@dirs, \@nondirs) if $cb; 542 $grp->result (\@dirs, \@nondirs);
458 undef $cb;
459 } 543 }
460 }; 544 };
461 $statcb = sub { 545 $statcb = sub {
462 my ($status, $entry) = @_; 546 my ($status, $entry) = @_;
463 547
505callback with the fdatasync result code. 589callback with the fdatasync result code.
506 590
507If this call isn't available because your OS lacks it or it couldn't be 591If this call isn't available because your OS lacks it or it couldn't be
508detected, it will be emulated by calling C<fsync> instead. 592detected, it will be emulated by calling C<fsync> instead.
509 593
510=item aio_group $callback->() 594=item aio_group $callback->(...)
511 595
512[EXPERIMENTAL] 596[EXPERIMENTAL]
513 597
514This is a very special aio request: Instead of doing something, it is a 598This is a very special aio request: Instead of doing something, it is a
515container for other aio requests, which is useful if you want to bundle 599container for other aio requests, which is useful if you want to bundle
516many requests into a single, composite, request. 600many requests into a single, composite, request with a definite callback
601and the ability to cancel the whole request with its subrequests.
517 602
518Returns an object of class L<IO::AIO::GRP>. See its documentation below 603Returns an object of class L<IO::AIO::GRP>. See its documentation below
519for more info. 604for more info.
520 605
521Example: 606Example:
527 add $grp 612 add $grp
528 (aio_stat ...), 613 (aio_stat ...),
529 (aio_stat ...), 614 (aio_stat ...),
530 ...; 615 ...;
531 616
617=item aio_nop $callback->()
618
619This is a special request - it does nothing in itself and is only used for
620side effects, such as when you want to add a dummy request to a group so
621that finishing the requests in the group depends on executing the given
622code.
623
624While this request does nothing, it still goes through the execution
625phase and still requires a worker thread. Thus, the callback will not
626be executed immediately but only after other requests in the queue have
627entered their execution phase. This can be used to measure request
628latency.
629
532=item IO::AIO::aio_sleep $fractional_seconds, $callback->() *NOT EXPORTED* 630=item IO::AIO::aio_busy $fractional_seconds, $callback->() *NOT EXPORTED*
533 631
534Mainly used for debugging and benchmarking, this aio request puts one of 632Mainly used for debugging and benchmarking, this aio request puts one of
535the request workers to sleep for the given time. 633the request workers to sleep for the given time.
536 634
537While it is theoretically handy to have simple I/O scheduling requests 635While it is theoretically handy to have simple I/O scheduling requests
538like sleep and file handle readable/writable, the overhead this creates 636like sleep and file handle readable/writable, the overhead this creates is
539is immense, so do not use this function except to put your application 637immense (it blocks a thread for a long time) so do not use this function
540under artificial I/O pressure. 638except to put your application under artificial I/O pressure.
541 639
542=back 640=back
543 641
544=head2 IO::AIO::REQ CLASS 642=head2 IO::AIO::REQ CLASS
545 643
546All non-aggregate C<aio_*> functions return an object of this class when 644All non-aggregate C<aio_*> functions return an object of this class when
547called in non-void context. 645called in non-void context.
548 646
549A request always moves through the following five states in its lifetime,
550in order: B<ready> (request has been created, but has not been executed
551yet), B<execute> (request is currently being executed), B<pending>
552(request has been executed but callback has not been called yet),
553B<result> (results are being processed synchronously, includes calling the
554callback) and B<done> (request has reached the end of its lifetime and
555holds no resources anymore).
556
557=over 4 647=over 4
558 648
559=item $req->cancel 649=item cancel $req
560 650
561Cancels the request, if possible. Has the effect of skipping execution 651Cancels the request, if possible. Has the effect of skipping execution
562when entering the B<execute> state and skipping calling the callback when 652when entering the B<execute> state and skipping calling the callback when
563entering the the B<result> state, but will leave the request otherwise 653entering the the B<result> state, but will leave the request otherwise
564untouched. That means that requests that currently execute will not be 654untouched. That means that requests that currently execute will not be
565stopped and resources held by the request will not be freed prematurely. 655stopped and resources held by the request will not be freed prematurely.
566 656
657=item cb $req $callback->(...)
658
659Replace (or simply set) the callback registered to the request.
660
567=back 661=back
568 662
569=head2 IO::AIO::GRP CLASS 663=head2 IO::AIO::GRP CLASS
570 664
571This class is a subclass of L<IO::AIO::REQ>, so all its methods apply to 665This class is a subclass of L<IO::AIO::REQ>, so all its methods apply to
585You add requests by calling the C<add> method with one or more 679You add requests by calling the C<add> method with one or more
586C<IO::AIO::REQ> objects: 680C<IO::AIO::REQ> objects:
587 681
588 $grp->add (aio_unlink "..."); 682 $grp->add (aio_unlink "...");
589 683
590 add $grp aio_stat "...", sub { ... }; 684 add $grp aio_stat "...", sub {
685 $_[0] or return $grp->result ("error");
686
687 # add another request dynamically, if first succeeded
688 add $grp aio_open "...", sub {
689 $grp->result ("ok");
690 };
691 };
591 692
592This makes it very easy to create composite requests (see the source of 693This makes it very easy to create composite requests (see the source of
593C<aio_move> for an application) that work and feel like simple requests. 694C<aio_move> for an application) that work and feel like simple requests.
594 695
696=over 4
697
595The IO::AIO::GRP objects will be cleaned up during calls to 698=item * The IO::AIO::GRP objects will be cleaned up during calls to
596C<IO::AIO::poll_cb>, just like any other request. 699C<IO::AIO::poll_cb>, just like any other request.
597 700
598They can be canceled like any other request. Canceling will cancel not 701=item * They can be canceled like any other request. Canceling will cancel not
599just the request itself, but also all requests it contains. 702only the request itself, but also all requests it contains.
600 703
601They can also can also be added to other IO::AIO::GRP objects. 704=item * They can also can also be added to other IO::AIO::GRP objects.
705
706=item * You must not add requests to a group from within the group callback (or
707any later time).
708
709=item * This does not harmonise well with C<max_outstanding>, so best do
710not combine C<aio_group> with it. Groups and feeders are recommended for
711this kind of concurrency-limiting.
712
713=back
602 714
603Their lifetime, simplified, looks like this: when they are empty, they 715Their lifetime, simplified, looks like this: when they are empty, they
604will finish very quickly. If they contain only requests that are in the 716will finish very quickly. If they contain only requests that are in the
605C<done> state, they will also finish. Otherwise they will continue to 717C<done> state, they will also finish. Otherwise they will continue to
606exist. 718exist.
607 719
720That means after creating a group you have some time to add requests. And
721in the callbacks of those requests, you can add further requests to the
722group. And only when all those requests have finished will the the group
723itself finish.
724
608=over 4 725=over 4
609 726
727=item add $grp ...
728
610=item $grp->add (...) 729=item $grp->add (...)
611 730
612=item add $grp ... 731Add one or more requests to the group. Any type of L<IO::AIO::REQ> can
732be added, including other groups, as long as you do not create circular
733dependencies.
613 734
614Add one or more 735Returns all its arguments.
615Cancels the request, if possible. Has the effect of skipping execution 736
616when entering the B<execute> state and skipping calling the callback when 737=item $grp->result (...)
617entering the the B<result> state, but will leave the request otherwise 738
618untouched. That means that requests that currently execute will not be 739Set the result value(s) that will be passed to the group callback when all
619stopped and resources held by the request will not be freed prematurely. 740subrequests have finished. By default, no argument will be passed.
741
742=item feed $grp $callback->($grp)
743
744[VERY EXPERIMENTAL]
745
746Sets a feeder/generator on this group: every group can have an attached
747generator that generates requests if idle. The idea behind this is that,
748although you could just queue as many requests as you want in a group,
749this might starve other requests for a potentially long time. For
750example, C<aio_scandir> might generate hundreds of thousands C<aio_stat>
751requests, delaying any later requests for a long time.
752
753To avoid this, and allow incremental generation of requests, you can
754instead a group and set a feeder on it that generates those requests. The
755feed callback will be called whenever there are few enough (see C<limit>,
756below) requests active in the group itself and is expected to queue more
757requests.
758
759The feed callback can queue as many requests as it likes (i.e. C<add> does
760not impose any limits).
761
762If the feed does not queue more requests when called, it will be
763automatically removed from the group.
764
765If the feed limit is C<0>, it will be set to C<2> automatically.
766
767Example:
768
769 # stat all files in @files, but only ever use four aio requests concurrently:
770
771 my $grp = aio_group sub { print "finished\n" };
772 limit $grp 4;
773 feed $grp sub {
774 my $file = pop @files
775 or return;
776
777 add $grp aio_stat $file, sub { ... };
778 };
779
780=item limit $grp $num
781
782Sets the feeder limit for the group: The feeder will be called whenever
783the group contains less than this many requests.
784
785Setting the limit to C<0> will pause the feeding process.
620 786
621=back 787=back
622 788
623=head2 SUPPORT FUNCTIONS 789=head2 SUPPORT FUNCTIONS
624 790
682 IO::AIO::poll_wait, IO::AIO::poll_cb 848 IO::AIO::poll_wait, IO::AIO::poll_cb
683 if IO::AIO::nreqs; 849 if IO::AIO::nreqs;
684 850
685=item IO::AIO::min_parallel $nthreads 851=item IO::AIO::min_parallel $nthreads
686 852
687Set the minimum number of AIO threads to C<$nthreads>. The current default 853Set the minimum number of AIO threads to C<$nthreads>. The current
688is C<4>, which means four asynchronous operations can be done at one time 854default is C<8>, which means eight asynchronous operations can execute
689(the number of outstanding operations, however, is unlimited). 855concurrently at any one time (the number of outstanding requests,
856however, is unlimited).
690 857
691IO::AIO starts threads only on demand, when an AIO request is queued and 858IO::AIO starts threads only on demand, when an AIO request is queued and
692no free thread exists. 859no free thread exists.
693 860
694It is recommended to keep the number of threads low, as some Linux 861It is recommended to keep the number of threads relatively low, as some
695kernel versions will scale negatively with the number of threads (higher 862Linux kernel versions will scale negatively with the number of threads
696parallelity => MUCH higher latency). With current Linux 2.6 versions, 4-32 863(higher parallelity => MUCH higher latency). With current Linux 2.6
697threads should be fine. 864versions, 4-32 threads should be fine.
698 865
699Under most circumstances you don't need to call this function, as the 866Under most circumstances you don't need to call this function, as the
700module selects a default that is suitable for low to moderate load. 867module selects a default that is suitable for low to moderate load.
701 868
702=item IO::AIO::max_parallel $nthreads 869=item IO::AIO::max_parallel $nthreads
713 880
714Under normal circumstances you don't need to call this function. 881Under normal circumstances you don't need to call this function.
715 882
716=item $oldnreqs = IO::AIO::max_outstanding $nreqs 883=item $oldnreqs = IO::AIO::max_outstanding $nreqs
717 884
885[DEPRECATED]
886
718Sets the maximum number of outstanding requests to C<$nreqs>. If you 887Sets the maximum number of outstanding requests to C<$nreqs>. If you
719try to queue up more than this number of requests, the caller will block until 888try to queue up more than this number of requests, the caller will block until
720some requests have been handled. 889some requests have been handled.
721 890
722The default is very large, so normally there is no practical limit. If you 891The default is very large, so normally there is no practical limit. If you
723queue up many requests in a loop it often improves speed if you set 892queue up many requests in a loop it often improves speed if you set
724this to a relatively low number, such as C<100>. 893this to a relatively low number, such as C<100>.
894
895This function does not work well together with C<aio_group>'s, and their
896feeder interface is better suited to limiting concurrency, so do not use
897this function.
725 898
726Under normal circumstances you don't need to call this function. 899Under normal circumstances you don't need to call this function.
727 900
728=back 901=back
729 902
743 or return undef; 916 or return undef;
744 917
745 *$sym 918 *$sym
746} 919}
747 920
748min_parallel 4; 921min_parallel 8;
749 922
750END { 923END {
751 max_parallel 0; 924 max_parallel 0;
752} 925}
753 926
758This module should do "the right thing" when the process using it forks: 931This module should do "the right thing" when the process using it forks:
759 932
760Before the fork, IO::AIO enters a quiescent state where no requests 933Before the fork, IO::AIO enters a quiescent state where no requests
761can be added in other threads and no results will be processed. After 934can be added in other threads and no results will be processed. After
762the fork the parent simply leaves the quiescent state and continues 935the fork the parent simply leaves the quiescent state and continues
763request/result processing, while the child clears the request/result 936request/result processing, while the child frees the request/result queue
764queue (so the requests started before the fork will only be handled in 937(so that the requests started before the fork will only be handled in the
765the parent). Threads will be started on demand until the limit ste in the 938parent). Threads will be started on demand until the limit set in the
766parent process has been reached again. 939parent process has been reached again.
767 940
768In short: the parent will, after a short pause, continue as if fork had 941In short: the parent will, after a short pause, continue as if fork had
769not been called, while the child will act as if IO::AIO has not been used 942not been called, while the child will act as if IO::AIO has not been used
770yet. 943yet.
771 944
945=head2 MEMORY USAGE
946
947Per-request usage:
948
949Each aio request uses - depending on your architecture - around 100-200
950bytes of memory. In addition, stat requests need a stat buffer (possibly
951a few hundred bytes), readdir requires a result buffer and so on. Perl
952scalars and other data passed into aio requests will also be locked and
953will consume memory till the request has entered the done state.
954
955This is now awfully much, so queuing lots of requests is not usually a
956problem.
957
958Per-thread usage:
959
960In the execution phase, some aio requests require more memory for
961temporary buffers, and each thread requires a stack and other data
962structures (usually around 16k-128k, depending on the OS).
963
964=head1 KNOWN BUGS
965
966Known bugs will be fixed in the next release.
967
772=head1 SEE ALSO 968=head1 SEE ALSO
773 969
774L<Coro>, L<Linux::AIO> (obsolete). 970L<Coro::AIO>.
775 971
776=head1 AUTHOR 972=head1 AUTHOR
777 973
778 Marc Lehmann <schmorp@schmorp.de> 974 Marc Lehmann <schmorp@schmorp.de>
779 http://home.schmorp.de/ 975 http://home.schmorp.de/

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines