use strict; use warnings; use utf8; use Term::Screen; use Time::HiRes qw/sleep/; use Data::Dumper; my $scr = Term::Screen->new or die "KUSOTTAREEEEEEEEEEEEEEEEEEEEE!"; my $text; for my $i (1..100) { if ($scr->key_pressed && $scr->getch eq …

ライト、ついてますか―問題発見の人間学作者: ドナルド・C・ゴース,G.M.ワインバーグ,木村泉出版社/メーカー: 共立出版発売日: 1987/10メディア: 単行本購入: 47人 クリック: 456回この商品を含むブログ (187件) を見る 読みますた。

脳には妙なクセがある作者: 池谷裕二出版社/メーカー: 扶桑社発売日: 2012/08/01メディア: 単行本購入: 1人 クリック: 123回この商品を含むブログ (9件) を見る 面白かった。

メンヘラちゃん (上)作者: 琴葉とこ出版社/メーカー: イースト・プレス発売日: 2012/10/17メディア: コミック購入: 1人 クリック: 143回この商品を含むブログ (4件) を見る メンヘラちゃん (下)作者: 琴葉とこ出版社/メーカー: イースト・プレス発売日: 2012…

package Hoge; use strict; use warnings; sub new { ... } 1; package Hoge::new; use strict; use warnings; sub run { ... } 1; use strict; use warnings; use Hoge; use Hoge::new; Hoge::new->run(); とやるとエラーが出る。 use strict; use warnings…

俺得フレームワークMaltsのMalts::Setupの話。 Maltsのskeleton generatorです。まだpushしてないけど！ $ malts init ModuleName TemplateNameという感じでDist::Makerっぽく出来ます。Maltsは俺得フレームワークなので、Defalutテンプレートは"俺がハッピ…

package MyApp::Types; use strict; use warnings; use utf8; use Mouse::Util::TypeConstraints; subtype 'PositiveInt' => as 'Int' => where { $_ > 0 } => message { "($_)は正の数ではありません" }; subtype 'UserId' => as 'PositiveInt' => where { …