Skip to content

Instantly share code, notes, and snippets.

@softmoth
Created September 7, 2012 05:15
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save softmoth/3663383 to your computer and use it in GitHub Desktop.
Save softmoth/3663383 to your computer and use it in GitHub Desktop.
Registering event listeners
submethod BUILD (:$events!) {
$events.listen:
'EOF' => {
# Safety to prevent infinite loop, in case
# the quit-on-undef logic fails
unless $*IN.eof {
my $input = prompt("\n> ");
$events.emit('command', :$input);
}
},
'quit' => { say "Goodbye!" },
'exit' => { exit },
'no-parse' => { print @begYourPardon.pick; },
;
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment