Help for this page

Select Code to Download


  1. or download this
    ( my $string= q{
    ...
} ) =~ s/(?=^|(\n))\n[^\S\n]+/defined $1 ? "\n" : ''/ge;
  2. or download this
        $db->select(
        [ "this", "that", "theother", "COUNT(*) as things" ],
...
        "LIMIT $size OFFSET $skip",
        "HAVING 1 < count(*)",
    );
  3. or download this
        $db->prepare( join ' ',
        "SELECT", join( ', ',
...
        "LIMIT $size OFFSET $skip",
        "HAVING 1 < count(*)",
    );