Sugarを介さずMouseを使う - Islands in the byte stream (legacy)
「MouseはいいけどDSLはちょっと」とbonnuさんやxaicronに言われたのですが、実はDSLを介さずにもMouseは使えます。使い方はMouse.pmを読むとだいたいわかります。 要はインターフェイスがバックエンドと分離しているから好きなように変えられるってことです。 以下は例ですが、真面目にやるならextends()やwith()のサポートもしたほうがいいですね。 package MouseX::Lite; use 5.14.0; use strict; use warnings; use Mouse (); use Data::Util (); sub import { my $class = shift; $class->define_class(scalar(caller), @_); return; } sub define_class { my $class = sh
system関数を大量に使うスクリプトのデバッグ - Shohei Yoshida's Diary
system関数を大量に使うスクリプトを書いたとき、ディレクトリを消すというような 処理がある場合に、実行するのが怖い。コメントアウトして、実行するコマンドを 表示するというのも面倒。なんで環境変数により, system関数を一時的に置き換える ようにしてみた。本当に怖い場合は、明示的に指定した場合にのみ実行、そうでない 場合は表示のみにする方が良いかもしれません。 コード #!perl use strict; use warnings; BEGIN { if ($ENV{DEBUG}) { no warnings 'redefine', 'once'; my $count = 0; *CORE::GLOBAL::system = sub { print "[$count] ", "@_", "\n"; $count++; }; } }; system "du", "-s", "-h";
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Good night, Posterous
