view release on metacpan or  search on metacpan

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

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

    return 0;
}

sub init {
    my ( $self, $parameters ) = @_;

    my $initret = $self->SUPER::init($parameters);

    $self->net_twitter(
        Net::Twitter->new(
            {
                identica => $self->identica,

                clientname => 'Authen::Simple::Twitter',
                clientver  => $VERSION,
                clienturl  => 'http://github.com/mgrdcm/authen-simple-twitter'
            }