App-Twimap

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

            { homepage => 'http://search.cpan.org/dist/App-Twimap/', },
    },
    'meta-spec' => {
        version => '2',
        url     => 'http://search.cpan.org/perldoc?CPAN::Meta::Spec',
    },
    module_name => 'App::Twimap',
    requires    => {
        'Algorithm::TokenBucket'     => 0,
        'Config::Tiny'               => 0,
        'DateTime'                   => 0,
        'DateTime::Format::Strptime' => 0,
        'Email::Date::Format'        => 0,
        'Email::MIME'                => 0,
        'Email::MIME::Creator'       => 0,
        'Encode'                     => 0,
        'HTML::Entities'             => 0,
        'List::Util'                 => 0,
        'LWP::UserAgent'             => 0,
        'Mail::IMAPClient'           => 0,
        'Moose'                      => 0,
        'Net::Twitter'               => '4.00006',

META.json  view on Meta::CPAN

   "prereqs" : {
      "configure" : {
         "requires" : {
            "Module::Build" : "0.40"
         }
      },
      "runtime" : {
         "requires" : {
            "Algorithm::TokenBucket" : "0",
            "Config::Tiny" : "0",
            "DateTime" : "0",
            "DateTime::Format::Strptime" : "0",
            "Email::Date::Format" : "0",
            "Email::MIME" : "0",
            "Email::MIME::Creator" : "0",
            "Encode" : "0",
            "HTML::Entities" : "0",
            "LWP::UserAgent" : "0",
            "List::Util" : "0",
            "Mail::IMAPClient" : "0",
            "Moose" : "0",
            "Net::Twitter" : "4.00006",

META.yml  view on Meta::CPAN

name: App-Twimap
provides:
  App::Twimap:
    file: lib/App/Twimap.pm
    version: 0.03
  App::Twimap::Tweet:
    file: lib/App/Twimap/Tweet.pm
requires:
  Algorithm::TokenBucket: 0
  Config::Tiny: 0
  DateTime: 0
  DateTime::Format::Strptime: 0
  Email::Date::Format: 0
  Email::MIME: 0
  Email::MIME::Creator: 0
  Encode: 0
  HTML::Entities: 0
  LWP::UserAgent: 0
  List::Util: 0
  Mail::IMAPClient: 0
  Moose: 0
  Net::Twitter: 4.00006

lib/App/Twimap/Tweet.pm  view on Meta::CPAN

package App::Twimap::Tweet;
use Moose;
use DateTime;
use DateTime::Format::Strptime;
use Email::Date::Format qw(email_date);
use HTML::Entities;
use Text::Wrap qw(wrap);

has 'data'        => ( is => 'ro', isa => 'HashRef', required => 1 );
has 'expand_urls' => ( is => 'ro', isa => 'Bool',    default  => 1 );
has 'oembed_urls' => ( is => 'ro', isa => 'Bool',    default  => 1 );

my $_parser = DateTime::Format::Strptime->new(
    pattern  => '%a %b %d %T %z %Y',
    locale   => 'en_GB',
    on_error => 'croak',
);

sub id {
    my $self  = shift;
    my $tweet = $self->data;
    return $tweet->{id_str};
}