Bot::BasicBot::Pluggable::Module::Twitter - Post message to twitter

    $bot->load( "Twitter" );
    my $twi_handler = $bot->handler( "Twitter" );
    $twi_handler->set(
        {   username => "myusername",
            password => "mypassword",
        }
    );

    !help

    !twitter my message
    !twitter_all

    $twitter_handler->set(
        {   username => "myusername",
            password => "mypassword",
        }
    );

package Bot::BasicBot::Pluggable::Module::Twitter;

use warnings;
use strict;
use Carp;

use Bot::BasicBot::Pluggable::Module;
use base qw(Bot::BasicBot::Pluggable::Module);

use Net::Twitter;

our $VERSION = '0.0.3';

sub init {
    my $self = shift;
}

sub help {
    my $self = shift;
    my $mess = "!twitter <str> : will post a message to twitter";
    $mess
        .= "\n!twitter_all : will return the last 5 public messages from the public timeline";
    return $mess;
}

sub said {
    my ( $self, $mess, $pri ) = @_;

    return unless $pri == 2;

    $self->{ body }    = $mess->{ body };
    $self->{ who }     = $mess->{ who };
    $self->{ channel } = $mess->{ channel };

    if ( $self->{ body } =~ /^!twitter\s(.*)$/ ) {
        my $result = $self->{ twit }->update( $1 );
        if ( !defined $result ) {
            $self->tell( $self->{ channel },
                $self->{ who } . ": an error occurs." );
        }
        else {
            $self->tell( $self->{ channel },
                $self->{ who } . ": consider it noted." );
        }
    }
    elsif ( $self->{ body } =~ /^!twitter_all/ ) {
        my $result = $self->{ twit }->public_timeline;
        my $i      = 0;
        foreach my $t ( @{ $result } ) {
            my $str = $t->{ user }->{ name }. " :". $t->{text};
            $self->tell( $self->{ channel }, $str );
            $i++;
            last if $i == 5;
        }
    }
}

sub set {
    my ( $self, $params ) = @_;

    foreach my $key ( keys %{ $params } ) {
        $self->{ $key } = $$params{ $key };
    }

    croak "Error: no twitter username specified" unless $self->{ username };
    croak "Error: no twitter password specified" unless $self->{ password };

    $self->{ twit } = Net::Twitter->new(
        username => $self->{ username },
        password => $self->{ password }
    );

    return $self;
}

1;
__END__