sub new {
   if (ref $class eq 'base') {
      //return derived object built from base class object
   }

   //return derived object built from parameters
 }