PerlのTest Tips　メソッド内で面倒な関数が呼ばれているから、回避したい場合 ref: http://qiita.com/kayama0fa@github/items/240dc61ba06460c7767d