Skip to content

Instantly share code, notes, and snippets.

@masak

masak/and here's where $dialogue is created

Created November 26, 2008 16:59
Show Gist options
  • Save masak/29449 to your computer and use it in GitHub Desktop.
Save masak/29449 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
and here's where $dialogue is created
+ my $dialogue = Dialogue->new(
+ 'person' => $nick,
+ 'channel' => $channel,
+
+ 'reply' => sub { reply_to( $nick, shift, $channel, $irc ) },
+ 'say' => sub { utter( shift, $channel, $irc ) },
+ 'me' => sub { $irc->yield( ctcp => $channel
+ => 'ACTION ' . shift ) },
+ );
+
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment