'seu idiota' foi sensacional... Da até pra imaginar alguém usando isso e chorando depois da mensagem... uhauahauahauaha!
On Mon, Sep 2, 2013 at 11:10 AM, Solli Honorio <[email protected]> wrote: > Pessoal, > > Estou tentando configurar uma mensagem padronização no Data::Manager, mas > não está funcionando. Alguém aqui já utilizou o Data::Manager para saber se > é possível fazer isto que eu quero ? > > O código abaixo, estou criando uma mensagem e adicionando no Data::Manger, > porquê eu imaginei que quando ocorrer o problema dentro do escopo e msgid, > eu teria o texto padronizado, mas o que estou recebendo é mais uma pilha de > mensagem, mesmo quando não existe o erro. > > <code> > #!/usr/bin/env perl > use common::sense; > use Data::Manager; > use Data::Verifier; > use Data::Printer; > > my $msg = Message::Stack->new; > $msg->add({ > msgid => 'missing_name_last', > level => 'error', > scope => 'name1', > subject => 'name_last', > text => 'Não foi informado o campo name_last, seu idiota !'} ); > > my $dm = Data::Manager->new( { messages => $msg } ); > my $dv = Data::Verifier->new( > filters => [ qw(trim) ], > profile => { > name => { > required => 1, > type => 'Str', > filters => [ qw(collapse) ] > }, > age => { > type => 'Int' > }, > sign => { > required => 1, > type => 'Str' > } > } > ); > > }; > > > $dm->set_verifier('name1', $verifier); > $dm->verify('name1', { name_last => 'Honorio', name_first => 'Solli' }); > > my $results = $dm->get_results('name1'); > my $stack = $dm->messages_for_scope('name1'); > > say $results->success; > > say "Is invalid name_first ", $results->is_invalid('name_first'); > say "Is invalid name_last ", $results->is_invalid('name_last'); # yes > > say "Is missing name_first ", $results->is_missing('name_first'); # no > say "Is missing is_missing ", $results->is_missing('name_last'); # yes > > say "Missing count ", $results->missing_count; > > say "Count : ", $stack->count ; > p $stack->get_message( 0 ); > p $stack->get_message( 1 ); > > </code> > > > -- > "o animal satisfeito dorme". - Guimarães Rosa > > =begin disclaimer > Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ > SaoPaulo-pm mailing list: [email protected] > L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> > =end disclaimer > > -- André Garcia Carneiro Software Engineer (11)982907780
=begin disclaimer Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ SaoPaulo-pm mailing list: [email protected] L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> =end disclaimer
