Select Code to Download

sub nick_exists {
  return $db->do( "select 1 from members where nickname="   
    . $db->quote($_[0])
  );
}

BEGIN {
my $ss = $db->prepare( 'select 1 from members where nickname=?' ) or d
+ie;
...
    $res and defined $res->[0] ? 1 : 0;
}
}

use Memoize;
memoize('nick_exists');