in reply to Building modules, my mental block

Do you perhaps mean sub auth {?

You probably should check that your module can compile; try $ perl -cw path/to/Mymodules/Auth.pm. Of course, I'd expect Perl to give you an error message along those lines, so I suspect you haven't posted the exact code or error output. Perhaps that would help us diagnose the trouble.

Update: Ah, you're not shifting off the package name when you call the packaged sub as a class method!

Replies are listed 'Best First'.
Re: Re: Building modules, my mental block
by neilwatson (Priest) on Apr 19, 2004 at 20:19 UTC
    Ah, you're not shifting off the package name when you call the packaged sub as a class method!

    Can you explain that in simpler terms?

    Neil Watson
    watson-wilson.ca

      Sure. This call:

      my $auth = Mymodules::Auth->auth($username, $passwd);

      is a method call. See any of the Perl documentation about OO for why this is. The important thing is that it passes three arguments. The first argument is the invocant, the string Mymodules::Auth.

      The sub you're calling is not a method, in that it doesn't account for the possibility of an invocant.

      sub auth { my $username = shift @_; my $passwd = shift @_;

      $username will end up containing Mymodules::Auth, $passwd will end up containing what you passed as the username, and the password will stick around in @_.

      Instead, if you plan to call this as a class method, deal with the invocant:

      sub auth { my ($class, $username, $passwd) = @_; # ... more code here }

      Still, I can't explain why this causes the error message you kinda sorta don't really quote. You'll have to post more code and the exact error message you receive; you know the drill.

Re: Re: Building modules, my mental block
by neilwatson (Priest) on Apr 19, 2004 at 20:05 UTC
    Sorry, the lack of sub was just a typo here. The trouble still exist.

    Neil Watson
    watson-wilson.ca