semifor

# $ tweet Hi mom!
#
# Put this in ~/.bashrc or wherever.
# If it doesn't work, make sure your ~/.netrc is right
#
# The Perl version

tweet() {
    perl -MNet::Twitter::Lite -E'say Net::Twitter::Lite->new(ssl=>1,netrc=>1)->update("@ARGV")->{id}' $*
}

semifor

#!/usr/bin/perl
use warnings;
use strict;

use Net::Twitter::Lite;

use lib '../../files/perl/lib';
use Base::Roots qw(get_data);

my %consumer_tokens = (

semifor

#!/usr/bin/perl
use strict;
use warnings FATAL => qw( all );

use Net::Twitter::Lite::WithAPIv1_1;
use Lingua::EN::Inflect qw(NO NUMWORDS);
use HTML::Entities qw(encode_entities_numeric);
use Try::Tiny;

use lib '../files/lib';