use feature ':5.10';
use POE qw(Component::IRC::Qnet::State);
-
-use NDIRC::CommonStates;
eval "require NDIRC::$ARGV[0]";
+die $@ if $@;
+
# We create a new PoCo-IRC object
my $irc = POE::Component::IRC::Qnet::State->spawn(
nick => $ARGV[0],
$irc->service_bots(QBOT => 'P@cservice.netgamers.org');
-$ND::scanchan = '#testarmer';
-$ND::defchan = '#testarlite';
-$ND::memchan = '#testarmer';
+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 },
);