.
.
  sub auth {
    my (\$self, \$username, \$password) = \@_;