dragonchild figured it out, this code works.

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

It avoids the warnings, and all the tests pass. Thanks for the help.