eval "package $pkg; *new = sub { (shift)->SUPER::new( \%\$fields ); }"