This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use v5.10; | |
use AnyEvent; | |
use Benchmark ':all'; | |
use DBI; | |
use Parallel::ForkManager; | |
use IO::Select; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
ね | |
た | |
ば | |
れ | |
ぼ | |
う | |
し | |
ね | |
た | |
ば |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!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( |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
use strict; | |
use warnings; | |
use Furl; | |
my $furl = Furl->new( agent => 'Moznion/1.0' ); | |
my $wait = 3; | |
my %last_vote_counts; | |
while (1) { |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
皆様, | |
産総研の江渡です.お世話になっております. | |
第130回SIGHCI研究会の参加募集です. | |
今回は招待講演が3件もあり,充実しています. | |
今回は特に,ニコニコ動画の開発者として有名な戀塚昭彦氏に来ていただける | |
ことになりました.ニコニコ動画の裏側に,どのようなインタラクション上の | |
工夫があるかについてお話ししていただきます. |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
use strict; | |
use warnings; | |
use Test::More tests => 4; | |
do { | |
package Class1; | |
use Mouse; | |
has l => ( | |
is => 'ro', |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
use strict; | |
use warnings; | |
use Test::More tests => 2; | |
do { | |
package Class1; | |
use Mouse; | |
has A => ( | |
is => 'ro', |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
package X; | |
use Moose; | |
has foo => ( | |
is => 'rw', | |
); | |
package A; | |
use Moose; | |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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. |
OlderNewer