| CODENOTIFIER | HelpYou are not signed inSign in |
Project: Rakudo
Revision: 30815
Author: moritz
Date: 06 Sep 2008 05:42:55
Changes:[rakudo] implement Code::REJECTS that doesn't set $/ and doesn't die.
I don't really know if that's correct, though. Will ask p6l for clarification
| ...... | @@ -37,6 +37,20 @@ | |
| 37 | 37 | .return (match) |
| 38 | 38 | .end |
| 39 | 39 | |
| 40 | =item ACCEPTS(topic) | |
| 41 | ||
| 42 | =cut | |
| 43 | ||
| 44 | .sub 'REJECTS' :method | |
| 45 | .param pmc topic | |
| 46 | .local pmc match | |
| 47 | match = self(topic) | |
| 48 | if match goto matched | |
| 49 | .return (1) | |
| 50 | matched: | |
| 51 | .return (0) | |
| 52 | .end | |
| 53 | ||
| 40 | 54 | =item perl() |
| 41 | 55 | |
| 42 | 56 | Return a response to .perl. |