<br>Fiz esse teste:<br><br>"Can't locate object method "<font face="courier new, monospace">retorna_hora_do_banco</font>" via package "DBIx::Class::ResultSet"<br><br><br>sub <font face="courier new, monospace">retorna_hora_do_banco</font> {<br>
my ($self) = @_;<br> <br> return "Ola mundo";<br> <br>}<br><br><br>Coloquei no arquivo Myapp/lib/Schema/Schema.pm<br><br><br><br><div class="gmail_quote">Em 20 de agosto de 2012 17:04, Renato Santos <span dir="ltr"><<a href="mailto:renato.cron@gmail.com" target="_blank">renato.cron@gmail.com</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Me confundi um pouco.... Explique o que você está querendo dizer cmo Model, afinal, o model faz parte do MVC, e não do Schema do DBIC. Embora seja con<b>fundido </b>quase sempre..<div>
<br></div><div>Se vc precisa de alguma funcao, por exemplo, rodar uma SQL de preguiça escrita a mão, vc pode adicionar ela no Schema, assim todos podem acessar lá:<br>
<div><br></div><div>de uma row pra um schema:<br>$row->result_source->schema</div></div><div><br></div><div>de uma <span style="background-color:rgb(221,221,221);color:rgb(0,102,153);font-family:arial,sans-serif;font-size:medium">DBIx::Class::Row</span> OU <span style="background-color:rgb(221,221,221);color:rgb(0,102,153);font-family:arial,sans-serif;font-size:medium">DBIx::Class::Resultset </span>pra um schema:</div>
<div>$OBJECT->result_source->schema</div><div><br></div><div>--------</div><div>então você pode fazer no Schema.pm algo assim:<br><br></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">sub retorna_hora_do_banco {</font></div>
<div><font face="courier new, monospace"> </font></div><div><font face="courier new, monospace"> my $res = eval {</font></div><div><font face="courier new, monospace"> $self->storage->dbh->selectrow_hashref( "select current_time() as foo",</font></div>
<div><font face="courier new, monospace"> undef, @args );</font></div><div><font face="courier new, monospace"> };</font></div><div><font face="courier new, monospace"> do { print $@; return undef } if $@;</font></div>
<div><font face="courier new, monospace"> return $res;</font></div><div><font face="courier new, monospace"> </font></div><div><font face="courier new, monospace">}</font></div><div> </div><div>ps: nao testei a funcao, mas é basicamente isso.... mas cara.. na boa!</div>
<div><br></div><div>--------</div><div><br></div><div>outra hipotese, é vc estar falando disso:</div><div><br></div><div><a href="http://search.cpan.org/%7Ezarquon/Catalyst-Manual-5.9004/lib/Catalyst/Manual/Tutorial/04_BasicCRUD.pod#Create_a_ResultSet_Class" target="_blank">http://search.cpan.org/~zarquon/Catalyst-Manual-5.9004/lib/Catalyst/Manual/Tutorial/04_BasicCRUD.pod#Create_a_ResultSet_Class</a></div>
<div><br><div class="gmail_quote">2012/8/20 Jose Nilton <span dir="ltr"><<a href="mailto:jniltinho@gmail.com" target="_blank">jniltinho@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div><div class="h5">
<br>Outra coisa, como eu faço para criar um query SQL no Model, e como faço para criar outras funções SQL no Model que possa ser acessada do Controller.<br><br>Desculpe essas perguntas bobas, coisa de iniciante no Catalyst<br>
<br><br><div class="gmail_quote">Em 20 de agosto de 2012 16:51, Jose Nilton <span dir="ltr"><<a href="mailto:jniltinho@gmail.com" target="_blank">jniltinho@gmail.com</a>></span> escreveu:<div><div><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Boa tarde a todos,<br><br>Gostaria de saber como eu faço para listar só alguns campos da tabela:<br><br>Exemplo:<br><br>Banco: agencia<br>Tabelas: users<br>Campos: id, login, email, password, adm, active, create.<br><br>
Não quero selecionar todos os campos, quero id, login, email, active.<br>
<br>Obrigado<span><font color="#888888"><br clear="all"></font></span><br></blockquote></div></div></div><div><div><br clear="all"><br>-- <br>.................................................................<br>
"Com Deus todas as coisas são possíveis"<br>
</div></div><br></div></div><div class="im">=begin disclaimer<br>
Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
<br></div></blockquote></div><br><br clear="all"><div class="im"><div><br></div>-- <br><div><span style="color:rgb(51,51,51);font-size:x-small">Saravá,</span></div><div><span style="color:rgb(51,51,51);font-size:x-small">Renato CRON</span></div>
<div><div style="text-align:right"><font color="#333333" size="1"><a href="http://www.renatocron.com/blog/" target="_blank">http://www.renatocron.com/blog/</a></font></div></div><div style="text-align:right"><font color="#333333" size="1"><a href="http://twitter.com/#%21/renato_cron" target="_blank">@renato_cron</a></font></div>
<br>
</div></div>
<br>=begin disclaimer<br>
Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
<br></blockquote></div><br><br clear="all"><br>-- <br>.................................................................<br> "Com Deus todas as coisas são possíveis"<br>