package Wrong; *{'Right::new'} = sub { ... SUPER ... };