2Re: Understanding and building modules

And while we are at it, change:

sub auth {
    my ($uname, $passwd, $dbsecret, $salt); 
    $uname = shift;
    $passwd = shift;
    ...
}
[download]

sub auth {
    my ($self, $uname, $passwd) = @_; 
    my ($dbsecret, $salt);
    ...
}
[download]

or the method call will not work. Here is a little test script i came up with. Looks like the problem isn't in the constructor as i originally suspected, but instead in that wacky method call/instantiation.

ref new Foo      or warn "example 1 is not an object\n";
ref new Foo->foo or warn "example 2 is not an object\n";

package Foo;
sub new { bless {} }
sub foo { "foo" }
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

Comment on 2Re: Understanding and building modules Select or Download Code