NAME

Text::Tweet - Optimize a tweet based on given keywords

VERSION

version 0.004

SYNOPSIS

use Text::Tweet;

my $tweeter = new Text::Tweet({
  maxlen => 140,
  marker => '#',
  hashtags_at_end => 0,
  keywords => [ 'Perl', 'Twitter', 'Facebook', 'Private' ],
});

my $tweet = $tweeter->make(
  'This is my Perl Twitter Facebook Tweet',
  \'http://some.url/'
);
# This is my #Perl #Twitter #Facebook Tweet http://some.url/ #private

my $next_tweet = $tweeter->make_without_keywords(
  'This is my Perl Twitter Facebook Tweet',
  \'http://some.url/',
  [ 'Tweet' ]
);
# This is my Perl Twitter Facebook #Tweet http://some.url/

my $other_tweeter = new Text::Tweet({
  hashtags_at_end => 1,
});

my $other_tweet = $other_tweeter->make(
  'This is my Perl Twitter Facebook Tweet',
  \'http://some.url/',
  [ 'Perl', 'Twitter', 'Facebook' ]
);
# This is my Perl Twitter Facebook Tweet http://some.url/ #perl #twitter #facebook

DESCRIPTION

This package is nothing more than a little helper for making a more optimized tweet. It is supposed to be part of some bigger application, for example for automatic Tweet generation out of RSS, or integrated via Ajax on a webpage to offer more effective tweets for the user.

CONTRIBUTORS

edenc - giving API design hints

AUTHOR

Torsten Raudssus <torsten@raudssus.de> http://www.raudssus.de/

COPYRIGHT AND LICENSE

This software is copyright (c) 2011 by Raudssus Social Software.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.