(package main)
      6 my $irc_handler = QsIRC->new ({
      7                               'nick'    => 'testnick',
      8                               'mode'    => '+x',
      9                               'port'    => 6667,
     10                               'email'   => 'n@n.com',
     11                               'anick'   => 'alt_nick',
     12                               'nsnick'  => 'no',
     13                               'nspass'  => 'no_again',
     14                               'server'  => server.com',
     15                               'channels'=> '#zap',}

+++

     1 package QsIRC;
     ...
     27 sub new
     28 {
     29     my $deref   = $_[8];
     30
     31     #$nick      = $$_[0]{nick};
     32     #$mode      = $$_[0]{mode};
     33     #$port      = $$_[0]{port};
     34     #$email     = $$_[0]{email};
     35     #$anick     = $$_[0]{anick};
     36     #$nsnick    = $$_[0]{nsnick};
     37     #$nspass    = $$_[0]{nspass};
     38     $server    = $deref->server;
     39     #$channels  = $$_[0]{channels};
     40
     41     POE::Session->new( 'QsIRC' =>