Perlでメソッドをoverloadする方法 ref: http://qiita.com/items/afeed58219d5af3cce9a