Teste do modulo Perl Class::Accessor do CPAN