Grinnz

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;

Grinnz

set autoindent
set const
set historylog
set morespace
set nowrap
set smarthome
set smooth
set tabsize 4
include "/usr/share/nano/*.nanorc"

Grinnz

use File::Basename ();
use File::Spec;
use lib File::Spec->catdir(File::Spec->rel2abs(File::Basename::dirname(__FILE__)), 'path', 'to', 'lib');

Grinnz

THIS... IS... MARKDOWN

foo	bar
1	2
3	4

Grinnz

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 {

Grinnz

use strict;
use warnings;
use DBI;
use Test::More;

sub run {
  my ($sql, $query) = @_;

  my $sth;
  while ($query) {

Grinnz

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;
  }
};