[Perl] 色つきテスト
package MyTest; use strict; use warnings; sub new { bless({},shift) } sub hoge { shift->{hoge} = shift } sub DESTROY {}
package MyTest; use strict; use warnings; sub new { bless({},shift) } sub hoge { shift->{hoge} = shift } sub DESTROY {}