Skip to content

Instantly share code, notes, and snippets.

#!/usr/bin/env perl
use strict;
use warnings;
use v5.10;
use AnyEvent;
use Benchmark ':all';
use DBI;
use Parallel::ForkManager;
use IO::Select;
@yappo
yappo / gfx.pl
Last active August 29, 2015 13:58
#!perl -w
use strict;
use Text::Xslate;
use Text::Xslate::Util qw(hash_with_default);
my $DEBUG = 1;
# bad pratice
{
my %vars;
my $vars_ref = $DEBUG ? hash_with_default(
use strict;
use warnings;
use Furl;
my $furl = Furl->new( agent => 'Moznion/1.0' );
my $wait = 3;
my %last_vote_counts;
while (1) {
@yappo
yappo / gist:11389
Created September 18, 2008 06:32 — forked from hirose31/gist:11387
memslap --concurrency=20 --execute-number=100000 --initial-load=100000 --servers=mcd1 --test get
set/s get/s
=============================
1.2.6 14457 59459
binprot ASCII 13923 92950
binprot BINARY 13985 102328
@yappo
yappo / gist:20009
Created October 27, 2008 02:55 — forked from eto/gist:20008
皆様,
産総研の江渡です.お世話になっております.
第130回SIGHCI研究会の参加募集です.
今回は招待講演が3件もあり,充実しています.
今回は特に,ニコニコ動画の開発者として有名な戀塚昭彦氏に来ていただける
ことになりました.ニコニコ動画の裏側に,どのようなインタラクション上の
工夫があるかについてお話ししていただきます.
use strict;
use warnings;
use Test::More tests => 4;
do {
package Class1;
use Mouse;
has l => (
is => 'ro',
use strict;
use warnings;
use Test::More tests => 2;
do {
package Class1;
use Mouse;
has A => (
is => 'ro',
package X;
use Moose;
has foo => (
is => 'rw',
);
package A;
use Moose;
Writing Makefile for HTTP::Headers::Fast
cp lib/HTTP/Headers/Fast.pm blib/lib/HTTP/Headers/Fast.pm
Manifying blib/man3/HTTP::Headers::Fast.3pm
TOKUHIROM/HTTP-Headers-Fast-0.05.tar.gz
/usr/bin/make -- OK
Running make test
PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'inc', 'blib/lib', 'blib/arch')" t/*.t t/*/*.t t/*/*/*.t t/*/*/*/*.t
t/00_compile................ok
t/01-compat.................1/4
# Failed test at t/01-compat.t line 21.