use feature ':5.10';
use POE qw(Component::IRC::Qnet::State);
-
-use NDIRC::CommonStates;
eval "require NDIRC::$ARGV[0]";
die $@ if $@;
$irc->service_bots(QBOT => 'P@cservice.netgamers.org');
+my $bot = eval "new NDIRC::$ARGV[0]";
+
POE::Session->create(
- package_states => [
- 'NDIRC::CommonStates' => [ qw(_default _start irc_001 sig_DIE sig_usr1 sig_usr2
- signal_handler irc_disconnected irc_invite auth) ],
- "NDIRC::$ARGV[0]" => [ qw(irc_public irc_msg refresh irc_join) ],
+ object_states => [
+ $bot => [ qw(_default _start irc_001 sig_DIE sig_usr1 sig_usr2
+ signal_handler irc_disconnected irc_invite auth
+ irc_public irc_msg refresh irc_join) ],
],
heap => { irc => $irc },
);