<div dir="ltr">Pessoal,<div><br></div><div>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 ?</div>

<div><br></div><div>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.</div>

<div><br></div><div><code></div><div><div><font face="courier new, monospace">#!/usr/bin/env perl</font></div><div><font face="courier new, monospace">use common::sense;</font></div><div><font face="courier new, monospace">use Data::Manager;</font></div>

<div><font face="courier new, monospace">use Data::Verifier;</font></div><div><font face="courier new, monospace">use Data::Printer;</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">my $msg = Message::Stack->new;</font></div>

<div><font face="courier new, monospace">$msg->add({</font></div><div><font face="courier new, monospace">    msgid   => 'missing_name_last',</font></div><div><font face="courier new, monospace">    level   => 'error',</font></div>

<div><font face="courier new, monospace">    scope   => 'name1',</font></div><div><font face="courier new, monospace">    subject => 'name_last',</font></div><div><font face="courier new, monospace">    text    => 'Não foi informado o campo name_last, seu idiota !'} );</font></div>

<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">my $dm = Data::Manager->new( { messages => $msg } );</font></div><div><font face="courier new, monospace">my $dv = Data::Verifier->new(</font></div>

<div><font face="courier new, monospace">    filters => [ qw(trim) ],</font></div><div><font face="courier new, monospace">        profile => {</font></div><div><font face="courier new, monospace">            name => {</font></div>

<div><font face="courier new, monospace">                required => 1,</font></div><div><font face="courier new, monospace">                type     => 'Str',</font></div><div><font face="courier new, monospace">                filters  => [ qw(collapse) ]</font></div>

<div><font face="courier new, monospace">            },</font></div><div><font face="courier new, monospace">            age  => {</font></div><div><font face="courier new, monospace">                type        => 'Int'</font></div>

<div><font face="courier new, monospace">            },</font></div><div><font face="courier new, monospace">            sign => {</font></div><div><font face="courier new, monospace">                required    => 1,</font></div>

<div><font face="courier new, monospace">                type        => 'Str'</font></div><div><font face="courier new, monospace">            }</font></div><div><font face="courier new, monospace">        }</font></div>

<div><font face="courier new, monospace">    );</font></div></div><div><font face="courier new, monospace"><br></font></div><div><pre style="font-size:12px;margin-top:0px;margin-bottom:0px;color:rgb(51,51,51);line-height:18px">

<div class="" id="LC116" style="padding-left:10px"><span class=""><font face="courier new, monospace">};</font></span></div></pre></div><div><font face="courier new, monospace"><br></font></div><div><div><font face="courier new, monospace">$dm->set_verifier('name1', $verifier);</font></div>

<div><font face="courier new, monospace">$dm->verify('name1', { name_last => 'Honorio', name_first => 'Solli' });</font></div><div><font face="courier new, monospace"><br></font></div><div>

<font face="courier new, monospace">my $results = $dm->get_results('name1');</font></div><div><font face="courier new, monospace">my $stack   = $dm->messages_for_scope('name1');</font></div><div><font face="courier new, monospace"><br>

</font></div><div><font face="courier new, monospace">say $results->success;</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">say "Is invalid name_first ", $results->is_invalid('name_first');</font></div>

<div><font face="courier new, monospace">say "Is invalid name_last ",  $results->is_invalid('name_last');  # yes</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">say "Is missing name_first ", $results->is_missing('name_first'); # no</font></div>

<div><font face="courier new, monospace">say "Is missing is_missing ", $results->is_missing('name_last'); # yes</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">say "Missing count ", $results->missing_count;</font></div>

<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">say "Count : ",  $stack->count ;</font></div><div><font face="courier new, monospace">p $stack->get_message( 0 );</font></div>

<div><font face="courier new, monospace">p $stack->get_message( 1 );</font></div></div><div><br></div><div></code></div><div><br></div><div><div><br></div>-- <br>"o animal satisfeito dorme". - Guimarães Rosa
</div></div>