Alice

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

  Fliggy: 0
  IRC::Formatting::HTML: 0.28
  JSON: 2.12
  List::MoreUtils: 0
  Net::SSLeay: 0
  Plack: 0
  Plack::Session: 0
  Protocol::WebSocket: 0.00906
  SQL::Abstract: 0
  Text::MicroTemplate: 0.09
  Try::Tiny: 0
  perl: 5.8.0
resources:
  license: http://dev.perl.org/licenses/
version: 0.20

MYMETA.yml  view on Meta::CPAN

  Fliggy: 0
  IRC::Formatting::HTML: 0.28
  JSON: 2.12
  List::MoreUtils: 0
  Net::SSLeay: 0
  Plack: 0
  Plack::Session: 0
  Protocol::WebSocket: 0.00906
  SQL::Abstract: 0
  Text::MicroTemplate: 0.09
  Try::Tiny: 0
  perl: 5.008
version: 0.20

Makefile.PL  view on Meta::CPAN

use inc::Module::Install;
name 'Alice';
perl_version '5.008';
author 'Lee Aylward <leedo@cpan.org>';
all_from 'lib/Alice.pm';
license 'perl';

requires 'Class::Throwable';
requires 'List::MoreUtils';
requires 'Any::Moose';
requires 'Try::Tiny';
requires 'EV';
requires 'AnyEvent' => '5.2';
requires 'AnyEvent::AIO';
requires 'AnyEvent::IRC' => '0.95';
requires 'AnyEvent::HTTP';
requires 'Fliggy';
requires 'Plack';
requires 'Plack::Session';
requires 'DBD::SQLite';
requires 'SQL::Abstract';

lib/Alice/Role/Commands.pm  view on Meta::CPAN

package Alice::Role::Commands;

use Any::Moose 'Role';

use List::MoreUtils qw/none/;
use Try::Tiny;
use Class::Throwable qw/NetworkRequired InvalidNetwork ChannelRequired
                        InvalidArguments UnknownCommand/;

our %COMMANDS;
my $SRVOPT = qr/\-(\S+)\s*/;

sub commands {
  return grep {$_->{eg}} values %COMMANDS;
}

lib/Alice/Role/IRCEvents.pm  view on Meta::CPAN

package Alice::Role::IRCEvents;

use AnyEvent;
use Any::Moose 'Role';
use IRC::Formatting::HTML qw/irc_to_html/;
use AnyEvent::IRC::Util qw/split_prefix/;
use List::Util qw/min/;
use Try::Tiny;
use Class::Throwable qw/InvalidNetwork DisconnectError ConnectError/;

our %EVENTS;

sub build_events {
  my ($self, $irc) = @_;

  return +{
    map {
      my $event = $_;

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

package 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 is_connected => (is => 'rw', default => 0);
has channels => (is => 'rw', default => sub {{}});
has user_prefix => (
  is => 'rw',
  lazy => 1,
  default => sub{$_[0]->nick."!".$_[0]->nick."\@host"}
);