- or download this
sub nick_exists {
return $db->do( "select 1 from members where nickname="
. $db->quote($_[0])
);
}
- or download this
BEGIN {
my $ss = $db->prepare( 'select 1 from members where nickname=?' ) or d
+ie;
...
$res and defined $res->[0] ? 1 : 0;
}
}
- or download this
use Memoize;
memoize('nick_exists');