App-Alice

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

  DBD::SQLite: 0
  File::Copy: 0
  File::ShareDir: 0.01
  IRC::Formatting::HTML: 0.27
  JSON: 2.12
  List::MoreUtils: 0
  Plack: 0
  Plack::Session: 0
  SQL::Abstract: 0
  Text::MicroTemplate: 0.09
  Try::Tiny: 0
  Twiggy: 0
  perl: 5.8.0
resources:
  license: http://dev.perl.org/licenses/
version: 0.19

Makefile.PL  view on Meta::CPAN

use inc::Module::Install;
name 'App-Alice';
perl_version '5.008';
author 'Lee Aylward <leedo@cpan.org>';
all_from 'lib/App/Alice.pm';
requires 'List::MoreUtils' => '0';
requires 'Any::Moose' => '0';
requires 'Try::Tiny' => '0';
requires 'AnyEvent' => '5.2';
requires 'AnyEvent::IRC' => '0.95';
requires 'AnyEvent::HTTP' => '0';
requires 'Twiggy' => '0';
requires 'Plack' => '0';
requires 'Plack::Session' => '0';
requires 'DBD::SQLite' => '0';
requires 'SQL::Abstract' => '0';
requires 'AnyEvent::DBI' => '0';
requires 'IRC::Formatting::HTML' => '0.27';

lib/App/Alice/HTTPD.pm  view on Meta::CPAN

use IRC::Formatting::HTML qw/html_to_irc/;

use App::Alice::Stream;
use App::Alice::Commands;

use JSON;
use Encode;
use utf8;
use Any::Moose;
use Try::Tiny;

has 'app' => (
  is  => 'ro',
  isa => 'App::Alice',
  required => 1,
);

has 'httpd' => (is  => 'rw');
has 'ping_timer' => (is  => 'rw');

lib/App/Alice/Stream.pm  view on Meta::CPAN

package App::Alice::Stream;

use JSON;
use Time::HiRes qw/time/;
use Try::Tiny;
use Any::Moose;

use strict;
use warnings;

has queue => (
  is  => 'rw',
  isa => 'ArrayRef[HashRef]',
  default => sub { [] },
);

lib/App/Alice/Test/MockIRC.pm  view on Meta::CPAN

package App::Alice::Test::MockIRC;

use Any::Moose;
use AnyEvent::IRC::Util qw/parse_irc_msg prefix_nick mk_msg/;
use Try::Tiny;

has cbs => (is => 'rw', default => sub {{}});
has nick => (is => 'rw');
has user_prefix => (
  is => 'rw',
  lazy => 1,
  default => sub{$_[0]->nick."!".$_[0]->nick."\@host"}
);

has events => (