App-Tweet

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
name:         App-Tweet
version:      1.02
version_from: lib/App/Tweet.pm
installdirs:  site
requires:
    Config::YAML:                  0
    Crypt::Blowfish:               0
    Crypt::CBC:                    0
    File::HomeDir:                 0
    File::Slurp:                   0
    File::Spec:                    0
    File::Touch:                   0
    FindBin:                       0
    Getopt::Long:                  0
    IO::Interactive:               0
    Log::Log4perl:                 0
    Net::Twitter:                  0
    Pod::Usage:                    0

Makefile.PL  view on Meta::CPAN

WriteMakefile(
    NAME          => 'App::Tweet',
    AUTHOR        => 'Josh McAdams <josh dot mcadams at gmail dot com>',
    VERSION_FROM  => 'lib/App/Tweet.pm',
    ABSTRACT_FROM => 'lib/App/Tweet.pm',
    EXE_FILES     => ['bin/tweet'],
    PL_FILES      => {},
    PREREQ_PM     => {
        'Config::YAML'     => 0,
        'Crypt::Blowfish'  => 0,
        'Crypt::CBC'       => 0,
        'File::HomeDir'    => 0,
        'File::Slurp'      => 0,
        'File::Spec'       => 0,
        'File::Touch'      => 0,
        'FindBin'          => 0,
        'Getopt::Long'     => 0,
        'IO::Interactive'  => 0,
        'Log::Log4perl'    => 0,
        'Net::Twitter'     => 0,
        'Pod::Usage'       => 0,

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

package App::Tweet;

use warnings;
use strict;

use Config::YAML;
use Crypt::CBC;
use File::HomeDir;
use File::Slurp;
use File::Spec;
use File::Touch;
use IO::Interactive qw(is_interactive);
use Log::Log4perl qw(:easy);
use Net::Twitter;
use String::Random;
use Term::Prompt;

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

sub _read_configuration_file {
    my ( $config_file, $args ) = @_;

    DEBUG "trying to read config file [$config_file]";

    my $cipher_key = _get_cipher_key();

    DEBUG "using cipher [$cipher_key]";

    my $cipher = Crypt::CBC->new( -key => $cipher_key, -cipher => 'Blowfish' );

    if ( not -e $config_file ) {
        DEBUG "creating config file [$config_file]";
        touch $config_file if not -e $config_file;
        chmod oct(600), $config_file;
    }

    my $config = Config::YAML->new( config => $config_file, );

    $config->{username} = $args->{username} if exists $args->{username};