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

Grinnz

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

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

  my $sth;
  while ($query) {

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

THIS... IS... MARKDOWN

foo	bar
1	2
3	4

Grinnz

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

Grinnz

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

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

The 'each' function documentation is missing some information.

1. When called in scalar context in a while loop, the condition is wrapped
implicitly in a 'defined' check, much like with 'readline'.

e.g. `while (my $key = each %hash) { ... }` becomes
`while (defined(my $key = each %hash)) { ... }`, and
`while (each %hash) { ... }` becomes `while (defined($_ = each %hash)) { ... }`
(on 5.18+)

Grinnz

> mojo get 'http://localhost:3000//fred/fish'                 
[Tue Feb 20 16:28:38 2018] [debug] GET "/fish"                                               
[Tue Feb 20 16:28:38 2018] [debug] Routing to a callback                                     
[Tue Feb 20 16:28:38 2018] [debug] 200 OK (0.000438s, 2283.105/s)                            
fred⏎                                           

Grinnz

use strict;
use warnings;
use Mojo::UserAgent;
use Mojo::Asset::File;
 
# Build a normal transaction
my $ua = Mojo::UserAgent->new;
my $tx = $ua->build_tx(POST => 'http://example.com');
 
# Prepare body