Skip to content

Instantly share code, notes, and snippets.

Yuji Shimada xaicron

Block or report user

Report or block xaicron

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
View gist:9930396
diff --git a/lib/File/ b/lib/File/
index d1dbc52..196acfc 100644
--- a/lib/File/
+++ b/lib/File/
@@ -364,8 +364,8 @@ require File::Spec;
# Should ideally be my() not our() but local() currently
# refuses to operate on lexicals
-our %SLnkSeen;
-our ($wanted_callback, $avoid_nlink, $bydepth, $no_chdir, $follow,
View gist:9383765
$ mysqlenv install 5.6.16
run: mysql-build 5.6.16 /Users/shimada.yuji/.mysqlenv/mysqls/5.6.16
Unpacking tarball...
Installing mysql-5.6.16...
Installed mysql-5.6.16 to /Users/shimada.yuji/.mysqlenv/mysqls/5.6.16
run: scripts/mysql_install_db
Installing MySQL system tables...2014-03-06 15:24:10 0 [Warning] TIMESTAMP with implicit DEFAULT value is deprecated. Please use --explicit_defaults_for_timestamp server option
(see documentation for more details).
2014-03-06 15:24:10 7939 [Warning] Buffered warning: Could not increase number of max_open_files to more than 256 (request: 12800)
View gist:9341932
use strict;
use warnings;
use Plack::Request;
use Benchmark qw(cmpthese :hireswallclock);
package Plack::Request::Fast {
use parent 'Plack::Request';
use HTTP::Headers::Fast;
use URI::Escape::XS;
xaicron / gist:5633906
Created May 23, 2013
Furl で https の接続先を差し替える人 See also:
View gist:5633906
use strict;
use warnings;
no warnings 'redefine';
use Furl::HTTP;
use Data::Dumper;
# monkey patch :)
*Furl::HTTP::connect_ssl = sub {
package Furl::HTTP;
View gist:5539690
#!/usr/bin/env bash
CONFIGURE_OPTIONS=$MYSQL_BUILD_CONFIGURE_OPTS || $(cat "./share/mysql-build/default_configure_options");
CONFIGURE_OPTIONS=$(cat "./share/mysql-build/default_configure_options");
#!/usr/bin/env zsh
set -e
if [ ! -d ~/tmp ]; then
#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';
my @methods = ();
push @methods, qw{ GET POST PUT DELETE }; # HTTP/1.0
push @methods, qw{ OPTIONS TRACE CONNECT }; # HTTP/1.1
push @methods, qw{
View gist:5338474
#!/usr/bin/env perl
use strict;
use warnings;
sub delete {
warn 'tagomoris';
my %foo = (tago => 'moris');
View gist:5219799
autoload => 'Module::Install',
call => 'Module::Install',
find_extensions => 'Module::Install',
load => 'Module::Install',
load_extensions => 'Module::Install',
preload => 'Module::Install',
ack => 'Module::Install::AckXXX',
ack_xxx => 'Module::Install::AckXXX',
copy => 'Module::Install::Admin',
View gist:5168137
$VAR1 = {
'event_id' => 13882441,
'message' => {
'speaker_id' => 'perl',
'icon_url' => '',
'nickname' => 'perl bot',
'local_id' => undef,
'public_session_id' => '15b94a',
'room' => 'perl_jp',
'timestamp' => '2013-03-15T07:40:07Z',
You can’t perform that action at this time.