... because in the parent constructor, the object instance is still a parent, not a child.

Are you sure? Try adding

  print "The instance is a ", ref($self), "\n";
[download]

right after you bless.