Generally, I think, modern Perl is when rather than doing OOP with "bless" they use the Moose module.