<p>Olá pessoal, estou com um problema na criação de métodos no Perl, a minha estrutura atual é a seguinte:</p>
<p>C:\perl\lib\Teste\Controller</p>
<p>Na pasta controller (business manager) tenho o arquivo <a href="http://cliente.pm">cliente.pm</a></p>
<p>package Teste::Controller::Cliente;<br>sub Consulta {<br>    use Teste::Model::Cliente; <br>    my ($res, $conn) = Teste::Model::Cliente::Consulta();<br>    return($res, $conn);<br>}<br>========================================================================= </p>

<p>C:\perl\lib\Teste\Model</p>
<p>Na pasta Model (Banco de Dados) tenho dois arquivos o <a href="http://cliente.pm">cliente.pm</a></p>
<p>package Teste::Model::Cliente;<br>sub Consulta {<br>    use Teste::Model::MySql; <br>    my $db = Teste::Model::MySql::Conecta();<br>    if ($db ne &quot;&quot;)<br>    {<br>        my $conn = Teste::Model::MySql::Query($db, &quot;SELECT id_cliente, nome FROM cliente&quot;);<br>
        my (@fields) = (&quot;id_cliente&quot;, &quot;nome&quot;);  <br>        my %results;<br>        @results{@fields} = ();<br>        $conn-&gt;bind_columns(map { \$results{$_} } @fields);  <br>        return (\%results, sub { $conn-&gt;fetch() });<br>
    }<br>    else<br>    {<br>        return (&quot;false&quot;, &quot;false&quot;);<br>    }  <br>}<br>====================================================<br> <br>E o outro arquivo MySql.pm</p>
<p>package Teste::Model::MySql;<br>use DBI;</p>
<p>my $driver   = &quot;mysqlPP&quot;;<br>my $server   = &quot;localhost&quot;;<br>my $database = &quot;banco&quot;;<br>my $user     = &quot;usuario&quot;;<br>my $password = &quot;senha&quot;;<br> <br>sub Conecta<br>{<br>
   my $url = &quot;DBI:$driver:$database:$server&quot;;<br>   my $dbh = DBI-&gt;connect( $url, $user, $password,<br>                               { PrintError =&gt; 0 });;<br>   return($dbh);<br>}<br>sub Query<br>{<br>   my($conn, $consulta) = @_;<br>
   my $sql = qq{ $consulta };<br>   my $sth = $conn-&gt;prepare( $sql );<br>   $sth-&gt;execute() ;  <br>   return($sth);<br>}<br>========================================================</p>
<p>pasta onde estaria o site web</p>
<p>C:\inetpub\wwwroot\ListaCliente.pl<br> <br>use Teste::Controller::Cliente;<br>print &quot;Content-type: text/html\n\n&quot;;<br>print &quot;&lt;html&gt;\n&quot;;<br>print &quot;&lt;head&gt;\n&quot;;<br>print &quot;  &lt;title&gt;Lista Clientes&lt;/title&gt;\n&quot;;<br>
print &quot;&lt;/head&gt;\n&quot;;<br>print &quot;&lt;body&gt;\n\n&quot;;<br>my ($res, $conn) = Teste::Controller::Cliente::Consulta();<br>if ($res ne &quot;false&quot;) <br>{<br>    while ($conn-&gt;()) {<br>        print &quot;$res-&gt;{id_cliente} - \n&quot;;<br>
        print &quot;$res-&gt;{nome} \n&quot;;<br>        print &quot;&lt;br&gt;&quot;;<br>    }<br>}<br>  <br>print &quot;&lt;/body&gt;\n&quot;;<br>print &quot;&lt;/html&gt;\n&quot;;<br>==========================================================</p>

<p>Essa estrutura até funciona mas quando eu manipulo os registros na camada controller (Cliente.pm) eu nao consigo listar novamente os registros na camada de visualização(ListaCliente.pl) </p>
<p>Gostaria de saber se alguem tem um exemplo melhor de como dividir a aplicação em camadas, e como eu poderia modificar essa estrutura de uma forma mais simplificada.</p>
<p>Estou usando esta estrutura em uma maquina com windows2003 + IIS + MySql.</p>
<p>Obrigado...</p>