view release on metacpan or  search on metacpan

lib/Authen/Simple/Twitter.pm  view on Meta::CPAN

=head2 authenticate( $username, $password )

Returns true on success and false on failure.

=cut

sub check {
    my ( $self, $username, $password ) = @_;

    $self->net_twitter->credentials(
        $username, $password,
        $self->net_twitter->{apihost},
        $self->net_twitter->{apirealm}
    );

    if ( my $response = $self->net_twitter->verify_credentials() ) {

        $self->log->debug(qq/Successfully authenticated user '$username'./)
          if $self->log;

        return 1;
    }

    $self->log->debug(qq/Failed to authenticate user '$username'./)
      if $self->log;