| … | |
… | |
| 471 | coroutine. This is just a free-form string you can associate with a coroutine. |
471 | coroutine. This is just a free-form string you can associate with a coroutine. |
| 472 | |
472 | |
| 473 | This method simply sets the C<< $coroutine->{desc} >> member to the given string. You |
473 | This method simply sets the C<< $coroutine->{desc} >> member to the given string. You |
| 474 | can modify this member directly if you wish. |
474 | can modify this member directly if you wish. |
| 475 | |
475 | |
|
|
476 | =item $coroutine->throw ([$scalar]) |
|
|
477 | |
|
|
478 | If C<$throw> is specified and defined, it will be thrown as an exception |
|
|
479 | inside the coroutine at the next convinient point in time (usually after |
|
|
480 | it gains control at the next schedule/transfer/cede). Otherwise clears the |
|
|
481 | exception object. |
|
|
482 | |
|
|
483 | The exception object will be thrown "as is" with the specified scalar in |
|
|
484 | C<$@>, i.e. if it is a string, no line number or newline will be appended |
|
|
485 | (unlike with C<die>). |
|
|
486 | |
|
|
487 | This can be used as a softer means than C<cancel> to ask a coroutine to |
|
|
488 | end itself, although there is no guarentee that the exception will lead to |
|
|
489 | termination, and if the exception isn't caught it might well end the whole |
|
|
490 | program. |
|
|
491 | |
| 476 | =cut |
492 | =cut |
| 477 | |
493 | |
| 478 | sub desc { |
494 | sub desc { |
| 479 | my $old = $_[0]{desc}; |
495 | my $old = $_[0]{desc}; |
| 480 | $_[0]{desc} = $_[1] if @_ > 1; |
496 | $_[0]{desc} = $_[1] if @_ > 1; |
