AnyEvent-IRC-Server

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

# =========================================================================
# THIS FILE IS AUTOMATICALLY GENERATED BY MINILLA.
# DO NOT EDIT DIRECTLY.
# =========================================================================

use 5.008_001;

use strict;
use warnings;
use utf8;

use Module::Build;
use File::Basename;
use File::Spec;
use CPAN::Meta;
use CPAN::Meta::Prereqs;

my %args = (
    license              => 'perl',
    dynamic_config       => 0,

examples/proxy.pl  view on Meta::CPAN

#!/usr/bin/perl
use strict;
use warnings;
use utf8;

use Encode;
use AE;
use AnyEvent::IRC::Server;
use AnyEvent::IRC::Client;
use Lingua::JA::Gal;
use opts;
use Data::Dumper;

opts my $port => 'Int';

examples/proxy.pl  view on Meta::CPAN

        $ic->enable_ping(60);
    },
    publicmsg => sub {
        my ( $self, $channel, $msg ) = @_;
        my ( undef, $message ) = @{$msg->{params}};
        my $nick = $msg->{prefix};
        $nick =~ s/\!.*$//;

        $ircd->daemon_cmd_privmsg(
            $nick => $channel,
            encode('utf8', Lingua::JA::Gal->gal(decode('utf8',$message))),
        );
    }
);
$ic->send_srv( 'JOIN', '#yokohama.pm' );
$ic->connect(
    'irc.freenode.net', 6667 => {
        nick => 'galbot',
        user => 'galbot',
        real => 'galbot',
    }

examples/twitter.pl  view on Meta::CPAN

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use feature 'say';

use Encode;
use AE;
use AnyEvent::Twitter::Stream;
use AnyEvent::IRC::Server;
use Config::Pit;
use opts;

my $conf = pit_get('twitter.com', require => {