The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
 / 
Mojo-IRC-0.46
River stage zero No dependents
/ Mojo::IRC::Events

NAME

Mojo::IRC::Events - Example IRC events

EVENTS

err_nicknameinuse

$self->$callback({
  command => 401,
  params => [ 'nick', 'othernick', 'No such nick/channel' ],
  prefix => '1.2.3.4',
  raw_line => ':1.2.3.4 401 nick othernick :No such nick/channel',
});

irc_join

$self->$callback({
  params => ['#html'],
  raw_line => ':somenick!~someuser@1.2.3.4 JOIN #html',
  command => 'JOIN',
  prefix => 'somenick!~someuser@1.2.3.4'
});

irc_nick

$self->$callback({
  params => ['newnick'],
  raw_line => ':oldnick!~someuser@hostname.com NICK :newnick',
  command => 'NICK',
  prefix => 'somenick!~someuser@hostname.com'
});

irc_mode

$self->$callback({
  params => ['somenick', '+i'],
  raw_line => ':somenick!~someuser@hostname.com MODE somenick :+i',
  command => 'MODE',
  prefix => 'somenick!~someuser@hostname.com'
});

irc_notice

$self->$callback({
  params => ['somenick', 'on 1 ca 1(4) ft 10(10)'],
  raw_line => ':Zurich.CH.EU.Undernet.Org NOTICE somenick :on 1 ca 1(4) ft 10(10)',
  command => 'NOTICE',
  prefix => 'Zurich.CH.EU.Undernet.Org',
});

irc_part

$self->$callback({
  command => 'PART',
  params => ['#channel'],
  raw_line => ':somenick!~someuser@host PART #channel',
  prefix => 'somenick!~someuser@host',
})

irc_ping

$self->$callback({
  params => [2687237629],
  raw_line => 'PING :2687237629',
  command => 'PING',
})

irc_privmsg

$self->$callback({
  params => [ '#channel', 'some message' ],
  raw_line => ':nick!user@host PRIVMSG #nms :some message',
  command => 'PRIVMSG',
  prefix => 'nick!user@host',
});

irc_rpl_created

$self->$callback({
  params => ['somenick', 'This server was created Thu Jun 21 2012 at 01:26:15 UTC'],
  raw_line => ':irc.example.com 003 somenick :This server was created Thu Jun 21 2012 at 01:26:15 UTC',
  command => '003',
  prefix => 'irc.example.com'
});

irc_rpl_endofmotd

irc_rpl_endofnames

$self->$callback({
  params => ['somenick', '#channel', 'End of /NAMES list.'],
  raw_line => ':Budapest.Hu.Eu.Undernet.org 366 somenick #channel :End of /NAMES list.',
  command => '366',
  prefix => 'Budapest.Hu.Eu.Undernet.org'
});

irc_rpl_isupport

$self->$callback({
  params => ['somenick', 'WHOX', 'WALLCHOPS', 'WALLVOICES', 'USERIP', 'CPRIVMSG', 'CNOTICE', 'SILENCE=25', 'MODES=6', 'MAXCHANNELS=20', 'MAXBANS=50', 'NICKLEN=12', 'are supported by this server'],
  raw_line => ':irc.example.com 005 somenick WHOX WALLCHOPS WALLVOICES USERIP CPRIVMSG CNOTICE SILENCE=25 MODES=6 MAXCHANNELS=20 MAXBANS=50 NICKLEN=12 :are supported by this server',
  command => '005',
  prefix => 'irc.example.com'
})

irc_rpl_luserchannels

$self->$callback({
  params => ['somenick', '13700', 'channels formed'],
  raw_line => ':irc.example.com 254 somenick 13700 :channels formed',
  command => '254',
  prefix => 'irc.example.com'
})

irc_rpl_luserclient

$self->$callback({
  params => ['somenick', 'There are 3400 users and 46913 invisible on 18 servers'],
  raw_line => ':irc.example.com 251 somenick :There are 3400 users and 46913 invisible on 18 servers',
  command => '251',
  prefix => 'irc.example.com'
});

irc_rpl_luserme

$self->$callback({
  params => ['somenick', 'I have 12000 clients and 1 servers'],
  raw_line => ':irc.example.com 255 somenick :I have 12000 clients and 1 servers',
  command => '255',
  prefix => 'irc.example.com'
});

irc_rpl_luserop

$self->$callback({
  params => ['somenick', '19', 'operator(s) online'],
  raw_line => ':irc.example.com 252 somenick 19 :operator(s) online',
  command => '252',
  prefix => 'irc.example.com'
});

irc_rpl_luserunknown

$self->$callback({
  params => ['somenick', '305', 'unknown connection(s)'],
  raw_line => ':irc.example.com 253 somenick 305 :unknown connection(s)',
  command => '253',
  prefix => 'irc.example.com'
})

irc_rpl_motd

irc_rpl_motdstart

irc_rpl_myinfo

$self->$callback({
  params => ['somenick', 'irc.example.com', 'u2.10.12.14', 'dioswkgx', 'biklmnopstvrDR', 'bklov'],
  raw_line => ':irc.example.com 004 somenick irc.example.com u2.10.12.14 dioswkgx biklmnopstvrDR bklov',
  command => '004',
  prefix => 'irc.example.com',
})

irc_rpl_namreply

$self->$callback({
  params => ['somenick', '=', '#html', 'somenick Indig0 Wildblue @HTML @CSS @Luch1an @Steaua_ Indig0_ Pilum @fade'],
  raw_line => ':Budapest.Hu.Eu.Undernet.org 353 somenick = #html :somenick Indig0 Wildblue @HTML @CSS @Luch1an @Steaua_ Indig0_ Pilum @fade',
  command => '353',
  prefix => 'Budapest.Hu.Eu.Undernet.org'
})

irc_rpl_welcome

$self->$callback({
  command => '001',
  params => ['somenick', 'Welcome to the UnderNet IRC Network, somenick'],
  prefix => 'Zurich.CH.EU.Undernet.Org'
  raw_line => ':Zurich.CH.EU.Undernet.Org 001 somenick :Welcome to the UnderNet IRC Network, somenick',
})

irc_rpl_yourhost

$self->$callback({
  command => '002',
  params => ['somenick', 'Your host is irc.example.com, running version u2.10.12.14'],
  prefix => 'irc.example.com'
  raw_line => ':irc.example.com 002 somenick :Your host is irc.example.com, running version u2.10.12.14',
});

irc_479

$self->$callback({
  command => '479',
  params => [ 'nickname', '1', 'Illegal channel name' ],
  prefix => 'example.com',
  raw_line => ':example.com 479 nickname 1 :Illegal channel name',
});

COPYRIGHT

This program is free software, you can redistribute it and/or modify it under the terms of the Artistic License version 2.0.

AUTHOR

Marcus Ramberg - mramberg@cpan.org

Jan Henning Thorsen - jhthorsen@cpan.org