結論

こう書く。
no warnings 'redefine';

経緯

MovableTypeをいじっていたらこんな警告が出てしまいました。

Subroutine MT::Template::SUPER::text redefined at /mt/extlib/Data/ObjectDriver/BaseObject.pm line 638.

sub AUTOLOADというサブルーチンの中で発生していたようです。
Perlのオートロードまわりはよくわかっていないのですが、とりあえず上記のように書いたら警告を抑制することができました。