package TwitSend;
###########################################
# TwitSend - Send a Twit to Twitter
# 2009, Mike Schilli <m@perlmeister.com>
###########################################
use strict;
use Net::Twitter;
use YAML qw(LoadFile);
use base qw(Exporter);
our @EXPORT_OK = qw(twit);

###########################################
sub twit {
###########################################
  my($message) = @_;

  my $opts = {};

  if(ref($message) eq "HASH") {
      $opts    = $message;
      $message = $opts->{message};
  }

  if(! defined $message) {
    die "No message given!";
  }

  if(length $message > 140) {
    die "Message needs to be < 140 chars";
  }

  my $home = $opts->{home};

  ($home) = glob "~" unless defined $home;

  my $yaml = LoadFile( "$home/.twitsend" );

  my $nt = Net::Twitter->new(
        traits   => [qw/API::REST/],
        ssl      => 1,
        # identica => 1,
        username => "perlsnapshot",
        password => $yaml->{password},
  );

  $nt->update( $message );
}

1;