Help for this page

Select Code to Download


  1. or download this
         (package main)
          6 my $irc_handler = QsIRC->new ({
    ...
         40
         41     POE::Session->new( 'QsIRC' =>
    
  2. or download this
          1 package QsOutput;
          2
    ...
         37             if ( $msg =~ /\n$/ )
         38             {
         39                 print &$ts ." : Debug($dlvl): $msg";
    
  3. or download this
        379 use QsOutput qw($DEBUGLVL = 4);
    
  4. or download this
    "=" is not exported by the QsOutput module
    Can't continue after import errors at /home/zap/frag/cmds/qservwatch l
    +ine 379
    BEGIN failed--compilation aborted at /home/zap/frag/cmds/qservwatch li
    +ne 379.