01/01/2005

     (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' =>
[download]

12/24/2004

      1 package QsOutput;
      2
      3 use Env;
      4 use POSIX;
      5 use strict;
      6
      7 our($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
      8
      9 my  $Revision = substr(q$Revision:  $,1);
     10 my  $ts       = sub { strftime('%c',localtime()); };
     11
     12    @ISA       = qw(Exporter);
     13    $VERSION   = $Revision;
     14    @EXPORT_OK = qw($DEBUGLVL);
     15    @EXPORT    = qw(debug);
     16
     17 our $DEBUGLVL = 0;
     18 print $DEBUGLVL,"\n";
     19
     20 1;
     21
     22 # debug         {{{
     23 # prints debug messages
     24 # returns(void)
     25
     26 sub debug
     27 {
     28     my $msg   = shift;
     29     my $pdbg  = shift || 0;
     30     my $dlvl  = shift || 0;
     31
     32 print "DBG -- dlvl: $dlvl\n";
     33     if ( $dlvl >= $DEBUGLVL )
     34     {
     35         if ( $pdbg )
     36         {
     37             if ( $msg =~ /\n$/ )
     38             {
     39                 print &$ts ." : Debug($dlvl): $msg";
[download]

And from my main:

    379 use QsOutput qw($DEBUGLVL = 4);
[download]

What do I have wrong? -- I'm getting this error:

"=" 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.
[download]

-- END --

(from home node revision -- last revised 20040701)

Well, I said I would fill it out later so I am now filling it out...beit that it is later now.

I am from Los Angeles California. I graduated high school in 1991 from Tennessee of all places. Ever since I have been obsessed with becoming a police officer (go figure). However, that dream has never materialized. So, I, instead, started working in a field that, until I started working in it, was a hobby. That would be the computer industry.

I started out at Earthlink Network, moved on to Disney Corporation, then moved to North Carolina to get married which put me into the hands of a complete loser of a boss who knew every theory about my work but had no practical knowledge of what was going on. Isn't it just always the way? Anyway, so here I am now working for a telephone company in North Carolina and am quite happy. My job is developing scripts. Everything here was in ksh (88 not 93) and I can script pretty well in shell but I decided I wanted more power. So, I moved on to Perl. I am totally loving it but have a long way to go. This is why I am here among the monks. This site absolutely hands down rules!
How do I create a module?