Extensão Perl para testar avisos de métodos
