Advertisement
Guest User

Untitled

a guest
Jul 30th, 2010
66
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.41 KB | None | 0 0
  1. use MONKEY_TYPING;
  2. augment class Grammar {
  3.     method parse($str, :$actions, :$action, *%options) {
  4.         if $action {
  5.             die(":action has been renamed to :actions in the Grammar.parse method")
  6.         }
  7.         my $match = callwith($str, :$actions, |%options);
  8.         say "I'm Dying!";               # this is what is new.
  9.         pir::store_dynamic_lex__vSP('$/', $match);
  10.         $match;
  11.     }
  12. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement