Maybe I'm just being dense ... and I know it's kinda silly but for Product::Real ....

sub create {
  return shift;
}
[download]

sometimes you have to do some wild contortions if you painted yourself into a corner. So now you have the PaintedCorner pattern :-) (or is that an AntiPattern?)

Update: Hey ... no joking ... the OP may be an antipattern