App-Twitch

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "JSON" : "2.5",
            "Moose" : "1.15",
            "MooseX::Daemonize" : "0.12",
            "MooseX::Getopt" : "0.33",
            "MooseX::LogDispatch" : "1.2002",
            "MooseX::POE" : "0.208",
            "MooseX::SimpleConfig" : "0.09",
            "Net::Twitter" : "3.14",
            "POE" : "1.294",
            "POE::Component::Client::HTTP" : "0.895",
            "POE::Component::Client::Keepalive" : "0.263",
            "POE::Component::FeedAggregator" : "0.902",
            "POE::Component::WWW::Shorten" : "1.20",
            "String::Truncate" : "1.100570",
            "Text::Keywords" : "0.004",
            "Text::Trim" : "1.02",
            "Text::Tweet" : "0.004",
            "URI" : "1.56",
            "WWW::Shorten" : "3.02",
            "WWW::Shorten::Bitly" : "1.14",
            "YAML::LibYAML" : "0.34"

META.yml  view on Meta::CPAN

  JSON: 2.5
  Moose: 1.15
  MooseX::Daemonize: 0.12
  MooseX::Getopt: 0.33
  MooseX::LogDispatch: 1.2002
  MooseX::POE: 0.208
  MooseX::SimpleConfig: 0.09
  Net::Twitter: 3.14
  POE: 1.294
  POE::Component::Client::HTTP: 0.895
  POE::Component::Client::Keepalive: 0.263
  POE::Component::FeedAggregator: 0.902
  POE::Component::WWW::Shorten: 1.20
  String::Truncate: 1.100570
  Text::Keywords: 0.004
  Text::Trim: 1.02
  Text::Tweet: 0.004
  URI: 1.56
  WWW::Shorten: 3.02
  WWW::Shorten::Bitly: 1.14
  YAML::LibYAML: 0.34

Makefile.PL  view on Meta::CPAN

    'JSON' => '2.5',
    'Moose' => '1.15',
    'MooseX::Daemonize' => '0.12',
    'MooseX::Getopt' => '0.33',
    'MooseX::LogDispatch' => '1.2002',
    'MooseX::POE' => '0.208',
    'MooseX::SimpleConfig' => '0.09',
    'Net::Twitter' => '3.14',
    'POE' => '1.294',
    'POE::Component::Client::HTTP' => '0.895',
    'POE::Component::Client::Keepalive' => '0.263',
    'POE::Component::FeedAggregator' => '0.902',
    'POE::Component::WWW::Shorten' => '1.20',
    'String::Truncate' => '1.100570',
    'Text::Keywords' => '0.004',
    'Text::Trim' => '1.02',
    'Text::Tweet' => '0.004',
    'URI' => '1.56',
    'WWW::Shorten' => '3.02',
    'WWW::Shorten::Bitly' => '1.14',
    'YAML::LibYAML' => '0.34'

dist.ini  view on Meta::CPAN

String::Truncate = 1.100570
POE::Component::FeedAggregator = 0.902
WWW::Shorten = 3.02
WWW::Shorten::Bitly = 1.14
Text::Trim = 1.02
Net::Twitter = 3.14
Text::Tweet = 0.004
Text::Keywords = 0.004
YAML::LibYAML = 0.34 
POE::Component::Client::HTTP = 0.895
POE::Component::Client::Keepalive = 0.263
POE::Component::WWW::Shorten = 1.20
HTML::ExtractContent = 0.10
Encode::Detect = 1.01
Encode = 2.42

Moose = 1.15
POE = 1.294
MooseX::POE = 0.208
MooseX::LogDispatch = 1.2002
MooseX::Getopt = 0.33

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

with qw(
	MooseX::Getopt
	MooseX::SimpleConfig
	MooseX::LogDispatch
	MooseX::Daemonize
);

use POE qw(
	Component::Client::HTTP
	Component::Client::Keepalive
	Component::FeedAggregator
	Component::WWW::Shorten
);

use HTTP::Request;
use Text::Trim;
use URI;
use POSIX;
use IO::All;
use String::Truncate qw(elide);

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

	},
);

has _http_alias => (
	is => 'rw',
	isa => 'Str',
	traits => [ 'NoGetopt' ],
	default => sub { 'http' },
);

has _keepalive => (
	isa => 'POE::Component::Client::Keepalive',
	is => 'ro',
	traits => [ 'NoGetopt' ],
	lazy => 1,
	default => sub {
		my ( $self ) = @_;
		$self->logger->debug($self->logger_prefix.'Startup POE::Component::Client::Keepalive');
		POE::Component::Client::Keepalive->new(
			keep_alive    => 20, # seconds to keep connections alive
			max_open      => 100, # max concurrent connections - total
			max_per_host  => 100, # max concurrent connections - per host
			timeout       => 10, # max time (seconds) to establish a new connection
		)
	},
);

has _shorten => (
	isa => 'POE::Component::WWW::Shorten',
	is => 'ro',

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

	$self->_twitter if !$self->dryrun;
	$self->_tweet;
	$self->_keywords;
	$self->_feedaggregator;
	$self->_shorten if !$self->dryrun;
	$self->logger->info($self->logger_prefix.'Startup HTTP Service...');
	POE::Component::Client::HTTP->spawn(
		Agent				=> $self->http_agent,
		Alias				=> $self->_http_alias,
		Timeout				=> 30,
		ConnectionManager	=> $self->_keepalive,
		FollowRedirects		=> 5,
	);
	$self->_max_feeds_count;
	my $running_config_dumpfile = $self->tmpdir.'/'.$self->configfile;
	$running_config_dumpfile =~ s/\.yml/\.running_config\.yml/;
	DumpFile($running_config_dumpfile,$self->running_config);
	chmod 0600, $running_config_dumpfile;
	$self->yield('add_feed');
}