THIS... IS... MARKDOWN
foo | bar |
---|---|
1 | 2 |
3 | 4 |
package Syntax::Keyword::WhileEach::Iterator; | |
use strict; | |
use warnings; | |
use Carp 'croak'; | |
use Scalar::Util 'reftype'; | |
sub new { | |
my ($class, $structure) = @_; | |
my $reftype = reftype $structure; |
set autoindent | |
set const | |
set historylog | |
set morespace | |
set nowrap | |
set smarthome | |
set smooth | |
set tabsize 4 | |
include "/usr/share/nano/*.nanorc" |
use File::Basename (); | |
use File::Spec; | |
use lib File::Spec->catdir(File::Spec->rel2abs(File::Basename::dirname(__FILE__)), 'path', 'to', 'lib'); |
THIS... IS... MARKDOWN
foo | bar |
---|---|
1 | 2 |
3 | 4 |
package MojoUtil; | |
use constant ('UUTF8', $ENV{'MOJO_NO_UUTF8'} ? 0 : eval 'use Unicode::UTF8 0.58 (); 1'); | |
sub decode { | |
my($encoding, $bytes) = @_; | |
my $fallback = sub { | |
die; | |
} | |
; | |
return undef unless eval { | |
do { |
use strict; | |
use warnings; | |
use DBI; | |
use Test::More; | |
sub run { | |
my ($sql, $query) = @_; | |
my $sth; | |
while ($query) { |
use Mojolicious::Lite; | |
helper get_contents => sub { | |
my $c = shift; | |
if ($c->req->method eq 'GET' or $c->req->method eq 'HEAD') { | |
return $c->req->url->query; | |
} else { | |
return $c->req->body; | |
} | |
}; |