<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-&gt;search($query, { rows =&gt; 1, select =&gt; [\1] })-&gt;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">&lt;<a href="mailto:garrison@zeta.org.au" target="_blank">garrison@zeta.org.au</a>&gt;</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) &lt;<a href="mailto:ekki@plicht.de">ekki@plicht.de</a>&gt; wrote:<br>
<br>
&gt;I am thinking of setting up a special resultset which contains only<br>
&gt;the key as a returned value by SELECT, but I am wondering if there is<br>
&gt;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-&gt;find( $key );<br>
    return $row ? 1 : 0;<br>
}<br>
<br>
<br>
Elsewhere:<br>
<br>
my $got_row = $schema-&gt;resultset(&#39;RSClass&#39;)-&gt;key_exists($key);<br>
<br>
<br>
Charlie<br>
<span class="HOEnZb"><font color="#888888"><br>
--<br>
   Charlie Garrison  &lt;<a href="mailto:garrison@zeta.org.au">garrison@zeta.org.au</a>&gt;<br>
   <a href="http://github.com/cngarrison" target="_blank">github.com/cngarrison</a>   <a href="http://metacpan.org/author/CNG" target="_blank">metacpan.org/author/CNG</a><br>
<br>
O&lt; ascii ribbon campaign - stop html mail<br>
<a 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 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 href="http://irc.perl.org#dbix-class" target="_blank">irc.perl.org#dbix-class</a><br>
SVN: <a 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 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>