2006-12-16 色つきテスト Perl package Bob::Must::Die; use base qw(Death::Note); sub lol{ my $s = shift; return "lol"; }