Select Code to Download

sub form_create : Local {
  my ($self, $c) = @_;
...
        $c->stash->{template} = 'books/list.tt2';
    }

    [%- # optional, but both the beginning and the ending TT tags supp
+ort chomping. -%]

...
    [% END -%]
    </table>
~

    [% META title = 'Manual Form Book Create' -%]

...
    <pre>
    Dump of the 'authors' variable:
    </pre>

use strict;
use warnings;
...
        return 'number' if /^\d+$/;
        return 'string';
}

create or replace type body string_agg_type
   is
...
create or replace FUNCTION stragg(input varchar2 )
    RETURN clob
    PARALLEL_ENABLE AGGREGATE USING string_agg_type;

my $p = $cgi->param("pl_copyright") || 'no';
my $p_values = {
      'yes' => '--yes',
      'no'  => '--no' };
my $p_cmd =  exists $p_values->{$p} ? $p_values->{$p} : '--no';

\documentclass[letterpaper,10pt,oneside]{book}
\pagestyle{headings}
...
\end{tabular}

\end{document}

select topic.id, (
SELECT id reply_id FROM (
...
  WHERE r = 1
) from nf_posts topic
where parent_id is null

#!/usr/bin/perl
use strict;
...
    $sock->send($data);
    sleep (rand 5);
}

use strict;
use warnings;
...

    print "Saw: \n$mess\n";
}