[Perl] Dbix::Class

[Hugues]

Merci Philippe pour ton aide,  je vais regarder + en détails la doc

si tu aimes les quotes, elle est pas mal celle la.

We don't rise to the level of our expectations, we fall to the level of 
our training.

et c'est vrai que je tombe a mon niveau d'entrainement ...

bye

Hugues


Le 28/06/2016 à 12:14, Philippe Bruhat (BooK) a écrit :
> On Tue, Jun 28, 2016 at 10:54:08AM +0200, Hugues wrote:
>> le search ne marche pas
>>
> Les messages d'erreur sont là pour t'aider.
>
>> {
>>     "error" : "DBIx::Class::ResultSet::search_rs(): Odd number of arguments to search at admin.pm line 314\n",
>>     "exception" : "DBIx::Class::Exception"
>> }
> "Odd number of arguments to search" : si on regarde la doc, le arguments
> attendus sont:
>
> https://metacpan.org/pod/DBIx::Class::ResultSet#search
>
>     Arguments: $cond | undef, \%attrs?
>
> La méthode attend un paramètre scalaire (de la forme acceptée par
> SQL::Abstract, ou bien undef), suivi d'un paramètre optionel (une
> référence à un hash) contenant les attributs de la requête.
>
>> my $mobile   = schema('DB')->resultset('Employe')->search( @where , { rows => 1});
>>
> Ici, @where contient deux éléments, donc l'appel revient à
>
>      ->search( $where[0], $where[1], { rows => 1 } );
>
> ce qui est bien impair.
>
>> my $mobile   = schema('DB')->resultset('Employe')->search( \@where , { rows => 1});
>>
> Ici, $cond est \@where, une référence à un table. Le second paramètre,
> \%attr vaut bien { rows => 1 }. L'appel est sémantiquement correct.
>
>> erreur
>>
>> Can't locate object method \"prenom\" via package \"DBIx::Class::ResultSet
>>
> Là encore, le message d'erreur est assez informatif : c'est quoi cette méthod
> prenom que le code cherche à appeler sur la classe DBIx::Class::ResultSet ?
> Il n'y a rien dans le code que tu as montré qui permette de déduire quoi
> que ce soit à ce sujet.
>
>> le find marche,  mais ne passe qu'un seul des deux éléments du where
> Comme indiqué dans la documentation: https://metacpan.org/pod/DBIx::Class::ResultSet#find
>
>      Finds and returns a single row based on supplied criteria.
>
> Autrement, le fait qu'il renvoie un seul élément est le comportement attendu.
>
>> l'autre solution c'est :
>>
>> my $mobile = schema('DB')->resultset('Employe')->find( { TEL_MOBILE =>
>> $l->{'caller'}->{'number'} }, { rows => 1});
>> my $tel    = schema('DB')->resultset('Employe')->find( { TELEPHONE  =>
>> $l->{'caller'}->{'number'} }, { rows => 1});
> L'attribut { rows => 1 } dit explicitement à DBIx::Class que tu veux
> une seule ligne (c'est l'équivalent de LIMIT 1), search ne renverra donc
> jamais plus d'une ligne. Si ça se trouve, ça "marche" depuis le début,
> et ton programme te donne la bonne réponse à une mauvaise question...
>
> Pour faciliter le déboggage avec DBIx::Class, et voir un peu la tête
> des requêtes exécutées, je te conseille l'emploi de la variable
> d'environnement DBIC_TRACE. Quand elle est à 1, DBIC affiche les requête
> sur la sortie d'erreur standard. Je pense que le LIMIT 1 t'aurais sauté
> aux yeux.
>
> Je vais conclure en citant Klortho le magnifique (cf. Acme::MJD) :
>
>      #11919 No.  You must believe the ERROR MESSAGE.  You MUST believe the error message.
>
> et
>
>      #11920 The error message is the Truth.  The error message is God.
>

-------------- section suivante --------------
Une pièce jointe HTML a été nettoyée...
URL: <http://listes.mongueurs.net/mailman/private/perl/attachments/20160628/7852b5f9/attachment.html>