memememomo’s gists

memememomo / Mojolicious.pm

Created April 11, 2014 15:56

Mojoliciousアプリ全体のエラー処理をする ref: http://qiita.com/uchiko/items/350bfd4ac1ed38279415

	sub _exception {
	my ($next, $c) = @_;
	local $SIG{__DIE__}
	= sub { ref $_[0] ? CORE::die($_[0]) : Mojo::Exception->throw(@_) };
	$c->render_exception($@) unless eval { $next->(); 1 };
	}

memememomo / MyApp.pm

Created April 10, 2014 11:09

MojoliciousでJSON::XSを使う ref: http://qiita.com/uchiko/items/6dceff5360b31d9baea2

	use Mojolicious::Lite;
	use Mojo::JSON::XS;

	...

	app->renderer->add_handler(json => sub {
	my ($self, $c, $output, $options) = @_;
	$$output = Mojo::JSON::XS->new->encode($options->{json});
	});

memememomo / parse_param.js

Last active August 29, 2015 13:58

inputのnameで配列表記されているものをjavascriptのデータ構造に変換する

	var is_array = function(value) {
	return value &&
	typeof value === 'object' &&
	typeof value.length === 'number' &&
	typeof value.splice === 'function' &&
	!(value.propertyIsEnumerable('length'));
	}

	function parse_param(params) {
	var build_hash;

memememomo / sample.pl

Created April 9, 2014 10:54

Perlでタイムアウトを設定して外部コマンドを実行する ref: http://qiita.com/memememomo/items/72a10e1bbe04b57f5666

	use strict;
	use warnings;
	use POSIX qw( SIGKILL );

	my $TIMEOUT = 10;
	my $cmd = "sleep 15";

	my $pid = fork();
	if (!defined($pid)) { die "failed to fork"; }
	if ($pid == 0) {

memememomo / basic.t

Created April 9, 2014 10:30

Test::MojoでビルドされたアプリにPhantomJSでアクセスする ref: http://qiita.com/memememomo/items/cc0ae8bb1d82be75315e

memememomo / Poll.pm

Created April 5, 2014 19:18

Mojo::Reactor::Pollのソースを読んだときに調べたこと ref: http://qiita.com/memememomo/items/bee6630be8453a891fe1

	# タイムアウト設定
	$poll->poll($timeout);

	# Read OKとなったハンドルに対してコールバックを実行
	++$i and $self->_sandbox('Read', $self->{io}{fileno $_}{cb}, 0)
	for $poll->handles(POLLIN \| POLLPRI \| POLLHUP \| POLLERR);

	# Write OKとなったハンドルに対してコールバックを実行
	++$i and $self->_sandbox('Write', $self->{io}{fileno $_}{cb}, 1)
	for $poll->handles(POLLOUT);

memememomo / main.c

Created April 5, 2014 09:46

入力を安全に受け取る ref: http://qiita.com/memememomo/items/34e86058872b2fe508bb

memememomo / file1.txt

Created March 21, 2014 02:34

Mojo::JSONの挙動について ref: http://qiita.com/memememomo/items/39f34587c5eb4222448a

JSON文字列に変換する + utf8フラグを外す

memememomo / base.t

Created March 13, 2014 10:59

Test::Mojoで、JSONを返すAPIをテストする。 ref: http://qiita.com/uchiko/items/70c132bab5e66783e474

	use strict;
	use warnings;
	use utf8;
	use Test::More;
	use Test::Mojo;

	use File::Basename;

	$ENV{MOJO_HOME} = dirname(__FILE__) . '/../';
	require "$ENV{MOJO_HOME}/myapp.pl";

memememomo / file0.txt

Created February 26, 2014 10:54

開発用サーバmorboを使う ref: http://qiita.com/memememomo/items/5001510744beb051e4cf

	$ morbo script/myapp # Mojoliciousアプリの場合
	$ morbo myapp.pl # Mojolicious::Liteアプリの場合

Uchiko memememomo