Skip to content

Instantly share code, notes, and snippets.

View tokuhirom's full-sized avatar
💖
Focusing

Tokuhiro Matsuno tokuhirom

💖
Focusing
990 followers · 443 following
View GitHub Profile
@tokuhirom
tokuhirom / perl benchmark.pl --simple-get --serialize-get --simple-get_multi --compress-get --simple-set --serialize-set --compress-set
Created September 26, 2008 03:32
Module Information:
+ Cache::Memcached => 1.24
+ Cache::Memcached::Fast => 0.12
+ Cache::Memcached::libmemcached => 0.02008
+ Memcached::libmemcached => 0.2101
Library Information:
+ libmemcached => 0.21
Server Information:
@tokuhirom
tokuhirom / gist:14541
Created October 3, 2008 10:22
* Changed the --accept option in ttree to match against the full file
path (relative to --src dir) rather than just the file name. This
makes it behave the same way as the --ignore option.
@tokuhirom
tokuhirom / gist:15446
Created October 8, 2008 04:33
#include <stdlib.h>
#include <stdio.h>
int main (int argc, char**argv) {
// ./a.out malloc 10000 100000
int count = atoi(argv[2]);
int size = atoi(argv[3]);
printf("count: %d, size: %d\n", count,size);
if (argv[1][0] == 'm') {
for (int i=0; i<count; i++) {
@tokuhirom
tokuhirom / gist:17122
Created October 16, 2008 12:53
use strict;
use warnings;
use Benchmark qw/cmpthese/;
sub c1 { $_->[0] }
my @a = map {[rand]} (qw/1/x1000);
cmpthese(
1000 => {
@tokuhirom
tokuhirom / gist:17362
Created October 17, 2008 06:06
15:04 (nothingmuch) opbots: trust tokuhirom
15:04 (Bender) OK, nothingmuch
15:04 *Bender mode +o tokuhirom
15:04 (tokuhirom) =)
15:05 *Yappo__ join #kiokudb@perl ([email protected])
15:05 (nothingmuch) opbots: trust Yappo__
15:05 (Bender) OK, nothingmuch
15:05 *Bender mode +o Yappo__
15:06 (Yappo__) :)
@tokuhirom
tokuhirom / f*cking conflict
Created October 20, 2008 02:15
***
This version of Moose conflicts with the version of
MooseX::Params::Validate (0.05) you have installed.
You will need to upgrade MooseX::Params::Validate after installing
this version of Moose.
***
***
@tokuhirom
tokuhirom / test failed@Data::Model
Created November 10, 2008 00:26
undefined
PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'inc', 'blib/lib', 'blib/arch')" t/*.t t/*/*.t xt/*.t
t/00_compile...............ok
t/010_core/sql.............ok
t/020_mock/instance........Can't locate Mock/Simple.pm in @INC (@INC contains: t /lib /home/tokuhirom/project/Data-Model/inc /home/tokuhirom/project/Data-Model/b lib/lib /home/tokuhirom/project/Data-Model/blib/arch /etc/perl /usr/local/lib/pe rl/5.8.8 /usr/local/share/perl/5.8.8 /usr/lib/perl5 /usr/share/perl5 /usr/lib/pe rl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at t/020_mock/instance.t
@tokuhirom
tokuhirom / where is Mock::Simple?
Created November 10, 2008 00:27
t/
|-- 00_compile.t
|-- 010_core
| `-- sql.t
|-- 020_mock
| |-- instance.t
| `-- memory-basic.t
|-- Utils.pm
`-- lib
`-- Mock
@tokuhirom
tokuhirom / gist:23765
Created November 11, 2008 06:17
=== lib/Remedie/Log.pm
==================================================================
--- lib/Remedie/Log.pm (revision 31599)
+++ lib/Remedie/Log.pm (local)
@@ -16,7 +16,7 @@
sub unimport {
my $package = caller(0);
foreach my $name qw(TRACE DEBUG ERROR INFO WARN FATAL) {
- no strict 'refs';
+ no strict 'refs'; ## no critic.
@tokuhirom
tokuhirom / gist:31397
Created December 3, 2008 02:20
1..5
ok 1 - extend Mouse class with Moose
not ok 2 - The object isa Headers # TODO Moose not yet aware of Mouse meta
# Failed (TODO) test 'The object isa Headers'
# at t/501_moose_coerce_mouse.t line 48.
# The object isn't defined
not ok 3 # TODO Moose not yet aware of Mouse meta
# Failed (TODO) test at t/501_moose_coerce_mouse.t line 49.
# got: undef
# expected: 'bar'