Skip to content

Instantly share code, notes, and snippets.

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 masak/29445 to your computer and use it in GitHub Desktop.
Save masak/29445 to your computer and use it in GitHub Desktop.
$ svn diff -r7551:7552
[...]
sub oh_thank_you {
- my ($sender, $attribute, $channel, $irc) = @_;
+ my ($dialogue) = @_;
my @replies = (q[oh, thank you, thank you!],
q[you want me to leave?],
q[well, yeah. you're excused too.]); # '
- my $reply = pick(@replies);
-
- reply_to( $sender, $reply, $channel, $irc );
+ $dialogue->reply()->( pick(@replies) );
}
[...]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment