App-HistHub

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

no_index:
  directory:
    - inc
    - t
requires:
  Catalyst::Plugin::ConfigLoader: 0
  Catalyst::Runtime: 5.70
  Catalyst::View::JSON: 0
  Catalyst::View::Template::Declare: 0
  HTTP::Request::Common: 0
  JSON::XS: 0
  Moose: 0
  POE: 0
  POE::Component::Client::HTTPDeferred: 0
  POE::Wheel::FollowTail: 0
resources:
  license: http://dev.perl.org/licenses/
version: 0.01

Makefile.PL  view on Meta::CPAN

use inc::Module::Install;
name 'App-HistHub';
all_from 'lib/App/HistHub.pm';

requires 'Catalyst::Runtime' => '5.70';
requires 'Catalyst::Plugin::ConfigLoader';
requires 'Catalyst::View::Template::Declare';
requires 'Catalyst::View::JSON';
requires 'JSON::XS';
requires 'Moose';
requires 'POE';
requires 'POE::Wheel::FollowTail';
requires 'POE::Component::Client::HTTPDeferred';
requires 'HTTP::Request::Common';

test_requires 'Test::More';

use_test_base;
auto_include;

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

package App::HistHub;
use Moose;

our $VERSION = '0.01';

use POE qw/
    Wheel::FollowTail
    Component::Client::HTTPDeferred
    /;

use JSON::XS ();
use HTTP::Request::Common;
use Fcntl ':flock';

has hist_file => (
    is       => 'rw',
    isa      => 'Str',
    required => 1,
);

has tailor => (

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

    is      => 'rw',
    isa     => 'POE::Component::Client::HTTPDeferred',
    lazy    => 1,
    default => sub {
        POE::Component::Client::HTTPDeferred->new;
    },
);

has json_driver => (
    is      => 'rw',
    isa     => 'JSON::XS',
    lazy    => 1,
    default => sub {
        JSON::XS->new->latin1;
    },
);

has poll_delay => (
    is      => 'rw',
    isa     => 'Int',
    default => sub { 5 },
);

has update_queue => (

lib/App/HistHub/Web/View/JSON.pm  view on Meta::CPAN

package App::HistHub::Web::View::JSON;
use strict;
use base 'Catalyst::View::JSON';

use JSON::XS ();

__PACKAGE__->config(
    allow_callback   => 0,
    expose_stash     => 'json',
    no_x_json_header => 1,
);

sub new {
    my $self = shift->SUPER::new(@_);
    $self->{encoder} = JSON::XS->new->latin1;
    $self;
}

sub encode_json {
    my ($self, $c, $data) = @_;
    $self->{encoder}->encode($data);
}

=head1 NAME