<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Windows-1252">
</head>
<body bgcolor="#FFFFFF" text="#000000">
I'd additinally restrict the columns returned to the pk columns to save bytes going over the wire and using HRI to not instantiate a result object.<br>
<br>
Looks like a nice addition to DBIC::Helpers!<br>
<br>
<div class="moz-cite-prefix">On 2015-02-12 08:22, QE :: Felix Ostmann wrote:<br>
</div>
<blockquote cite="mid:CABJt-j81JNQt2AJh2hUBH_LXnbAQP7FFx_7QRgCc8FmTUkjjRw@mail.gmail.com" type="cite">
<div dir="ltr">
<div class="gmail_default" style="">
<div class="gmail_default" style=""><font face="arial,
helvetica, sans-serif">We are using this function in our ResultSet.pm:</font></div>
<div class="gmail_default" style=""><font face="arial,
helvetica, sans-serif"><br>
</font></div>
<div class="gmail_default" style=""><font face="arial,
helvetica, sans-serif">sub exists {</font></div>
<div class="gmail_default" style=""><font face="arial,
helvetica, sans-serif"> my ($self, $query) = @_;</font></div>
<div class="gmail_default" style=""><font face="arial,
helvetica, sans-serif"><br>
</font></div>
<div class="gmail_default" style=""><font face="arial,
helvetica, sans-serif"> return $self->search($query, { rows => 1, select => [\1] })->single;</font></div>
<div class="gmail_default" style=""><font face="arial,
helvetica, sans-serif">}</font></div>
<div class="gmail_default" style=""><font face="arial,
helvetica, sans-serif"><br>
</font></div>
<div class="gmail_default" style=""><font face="arial,
helvetica, sans-serif"><br>
</font></div>
<div class="gmail_default" style="">Have a nice day</div>
<div class="gmail_default" style="">Felix</div>
<div class="gmail_default" style=""><br>
</div>
</div>
<div class="gmail_extra"><br>
<div class="gmail_quote">2015-02-12 1:05 GMT+01:00 Charlie Garrison <span dir="ltr">
<<a moz-do-not-send="true" href="mailto:garrison@zeta.org.au" target="_blank">garrison@zeta.org.au</a>></span>:<br>
<blockquote class="gmail_quote" style="margin:0 0 0
.8ex;border-left:1px #ccc solid;padding-left:1ex">
Good morning,<br>
<span class=""><br>
On 11/2/15 at 10:58 PM +0100, Ekki Plicht (DF4OR) <<a moz-do-not-send="true" href="mailto:ekki@plicht.de">ekki@plicht.de</a>> wrote:<br>
<br>
>I am thinking of setting up a special resultset which contains only<br>
>the key as a returned value by SELECT, but I am wondering if there is<br>
>a faster method.<br>
<br>
</span>Put a method in your ResultSet class, eg:<br>
<br>
sub key_exists {<br>
my ($self, $key) = @_;<br>
my $row = $self->find( $key );<br>
return $row ? 1 : 0;<br>
}<br>
<br>
<br>
Elsewhere:<br>
<br>
my $got_row = $schema->resultset('RSClass')->key_exists($key);<br>
<br>
<br>
Charlie<br>
<span class="HOEnZb"><font color="#888888"><br>
--<br>
Charlie Garrison <<a moz-do-not-send="true" href="mailto:garrison@zeta.org.au">garrison@zeta.org.au</a>><br>
<a moz-do-not-send="true" href="http://github.com/cngarrison" target="_blank">github.com/cngarrison</a> <a moz-do-not-send="true" href="http://metacpan.org/author/CNG" target="_blank">metacpan.org/author/CNG</a><br>
<br>
O< ascii ribbon campaign - stop html mail<br>
<a moz-do-not-send="true" href="http://www.ietf.org/rfc/rfc1855.txt" target="_blank">http://www.ietf.org/rfc/rfc1855.txt</a><br>
</font></span>
<div class="HOEnZb">
<div class="h5"><br>
<br>
_______________________________________________<br>
List: <a moz-do-not-send="true" href="http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class" target="_blank">
http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class</a><br>
IRC: <a moz-do-not-send="true" href="http://irc.perl.org#dbix-class" target="_blank">
irc.perl.org#dbix-class</a><br>
SVN: <a moz-do-not-send="true" href="http://dev.catalyst.perl.org/repos/bast/DBIx-Class/" target="_blank">
http://dev.catalyst.perl.org/repos/bast/DBIx-Class/</a><br>
Searchable Archive: <a moz-do-not-send="true" href="http://www.grokbase.com/group/dbix-class@lists.scsys.co.uk" target="_blank">
http://www.grokbase.com/group/dbix-class@lists.scsys.co.uk</a><br>
</div>
</div>
</blockquote>
</div>
<br>
</div>
</div>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset> <br>
<pre wrap="">_______________________________________________
List: <a class="moz-txt-link-freetext" href="http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class">http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class</a>
IRC: irc.perl.org#dbix-class
SVN: <a class="moz-txt-link-freetext" href="http://dev.catalyst.perl.org/repos/bast/DBIx-Class/">http://dev.catalyst.perl.org/repos/bast/DBIx-Class/</a>
Searchable Archive: <a class="moz-txt-link-freetext" href="http://www.grokbase.com/group/dbix-class@lists.scsys.co.uk">http://www.grokbase.com/group/dbix-class@lists.scsys.co.uk</a></pre>
</blockquote>
<br>
<br>
<font face="Verdana" color="Purple" size="2"><br>
*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*<br>
T-Systems Austria GesmbH Rennweg 97-99, 1030 Wien<br>
Handelsgericht Wien, FN 79340b<br>
*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*<br>
Notice: This e-mail contains information that is confidential and may be privileged.<br>
If you are not the intended recipient, please notify the sender and then<br>
delete this e-mail immediately.<br>
*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*<br>
</font>
</body>
</html>