http://www.perlmonks.org?node_id=359312


in reply to OO: sharing data across inheritance

What I would do is call SUPER::new->() (or whatever the constructor for your base class is) then manipulate the reference that comes out of that and then bless it into the child package. This is just off the top of my head but I would check here perltooc, which is class data in perl faq or here.