Ditto regarding karlgoethebier's query on the propriety of OO here. And if OO is needed, didn't you get into trouble in the first place by violating the DRY principle? bless blesses into the current package by default anyway, so one might just have written
    bless $self;
in the  new() constructor definition, or maybe
    bless $self, __PACKAGE__;
if one wanted to be very explicit.

But an important aspect of OO is class inheritance, and to support future inheritance capability, shouldn't one write the constructor, assuming this is a base class, as something like:

sub new {
  my $class = shift;
  ;;
  my $object = $class->initialized_object(@_);
  return bless $object => $class;
  }
[download]