一度 bless で祝福されたオブジェクトをもう一度 bless で祝福するとどうなるんだろうと思ってやってみた。 #!/usr/bin/env perl use strict; use warnings; package Animal; sub new { my ($class, $args) = @_; bless $args, $class; } package Iron; sub …