| … | |
… | |
| 537 | would cause a deadlock unless there is an idle handler that wakes up some |
537 | would cause a deadlock unless there is an idle handler that wakes up some |
| 538 | coroutines. |
538 | coroutines. |
| 539 | |
539 | |
| 540 | =item my $guard = Coro::guard { ... } |
540 | =item my $guard = Coro::guard { ... } |
| 541 | |
541 | |
| 542 | This creates and returns a guard object. Nothing happens until the object |
542 | This function still exists, but is deprecated. Please use the |
| 543 | gets destroyed, in which case the codeblock given as argument will be |
543 | C<Guard::guard> function instead. |
| 544 | executed. This is useful to free locks or other resources in case of a |
|
|
| 545 | runtime error or when the coroutine gets canceled, as in both cases the |
|
|
| 546 | guard block will be executed. The guard object supports only one method, |
|
|
| 547 | C<< ->cancel >>, which will keep the codeblock from being executed. |
|
|
| 548 | |
544 | |
| 549 | Example: set some flag and clear it again when the coroutine gets canceled |
|
|
| 550 | or the function returns: |
|
|
| 551 | |
|
|
| 552 | sub do_something { |
|
|
| 553 | my $guard = Coro::guard { $busy = 0 }; |
|
|
| 554 | $busy = 1; |
|
|
| 555 | |
|
|
| 556 | # do something that requires $busy to be true |
|
|
| 557 | } |
|
|
| 558 | |
|
|
| 559 | =cut |
545 | =cut |
| 560 | |
546 | |
| 561 | sub guard(&) { |
547 | BEGIN { *guard = \&Guard::guard } |
| 562 | bless \(my $cb = $_[0]), "Coro::guard" |
|
|
| 563 | } |
|
|
| 564 | |
|
|
| 565 | sub Coro::guard::cancel { |
|
|
| 566 | ${$_[0]} = sub { }; |
|
|
| 567 | } |
|
|
| 568 | |
|
|
| 569 | sub Coro::guard::DESTROY { |
|
|
| 570 | ${$_[0]}->(); |
|
|
| 571 | } |
|
|
| 572 | |
|
|
| 573 | |
548 | |
| 574 | =item unblock_sub { ... } |
549 | =item unblock_sub { ... } |
| 575 | |
550 | |
| 576 | This utility function takes a BLOCK or code reference and "unblocks" it, |
551 | This utility function takes a BLOCK or code reference and "unblocks" it, |
| 577 | returning a new coderef. Unblocking means that calling the new coderef |
552 | returning a new coderef. Unblocking means that calling the new coderef |
