soh335

use strict;
use warnings;
use utf8;

use AnyEvent;
use Coro;
use Coro::AnyEvent;
use AnyEvent::WebService::Lingr;
use AnyEvent::WebService::ImKayac;
use Encode qw/encode_utf8/;

soh335

Running Makefile.PL
syntax error at Makefile.PL line 49, near ")"
  (Might be a runaway multi-line () string starting on line 43)
Bareword "tests_recursive" not allowed while "strict subs" in use at Makefile.PL line 39.
Execution of Makefile.PL aborted due to compilation errors.

soh335

use strict;
use warnings;
use DBI;
use Time::Piece;

my $dbh = DBI->connect("DBI:mysql:database=test;host=localhost;", "root", "") or die $DBI::errstr;

my @words = qw/hgoe fuga yap unk piyo gep/;
my $base_time = Time::Piece->strptime("2010-01-01 00:00:00", "%Y-%m-%d %T");

soh335

use strict;
use warnings;

use Net::Twitter;
use AnyEvent;
use AnyEvent::WebService::ImKayac;
use Config::Pit;
use Path::Class qw/file/;
use FindBin;
use Array::Diff;

soh335

package Hoge::Server::Template;

use strict;
use warnings;
use utf8;

use Router::Simple;
use Text::Xslate;
use Text::Xslate::Bridge::TT2Like;
use Hoge;

soh335

async {
	# The evil thread
	$Coro::main->ready;
};

my $done = Coro::Signal->new;

async {
    print "Please wait.\n";
    cede;

soh335

#!/bin/sh
exec setuidgid sugyan multilog t n1 s1048576 .

soh335

use strict;
use warnings;

use AnyEvent;
use AnyEvent::Twitter::Stream;
use AnyEvent::Twitter;
use Config::Pit;
use List::Util qw/first/;

my $conf = pit_get("quick-favorite");

soh335

use strict;
use warnings;

use Benchmark qw/:all/;
use Cache::Memcached::Fast;
use Geo::Hash::XS;
use Geo::Hash;

my $memd = Cache::Memcached::Fast->new({
        servers => ["localhost:11211"]

soh335

use strict;
use warnings;

use Benchmark qw/:all/;
use Cache::Memcached::Fast;
use Geo::Hash::XS;
use Geo::Hash;

my $memd = Cache::Memcached::Fast->new({
        servers => ["localhost:11211"]