msouth

# bin/script2.pl
#unnecessary use FindBin;
#unnecessary use Cwd qw/realpath/;
use Dancer ':script';

=pod 

Dancer already knows this

#tell the Dancer where the app lives

msouth

use Dancer;
use MyTop::MyMiddle::MeetingAlerts;

use Plack::Builder;

my $app = sub {
    my $env     = shift;
    my $request = Dancer::Request->new(env=>$env);
    Dancer->dance($request);
};

msouth

perl -e 'for $year (2013..2113) {$cal = qx{cal $year}; $cal =~ s/\d{4}//; if ($year eq "2013") {$comp_cal = $cal} else { die "cal $year\n" if $comp_cal eq $cal} }'
cal 2019

msouth

--- a/lib/Dancer/Plugin/SimpleCRUD.pm
+++ b/lib/Dancer/Plugin/SimpleCRUD.pm
@@ -1176,6 +1193,8 @@ sub _ensure_auth {
         Dancer::ModuleLoader->load('Dancer::Plugin::Auth::Extensible')
             or die "Can't use auth settings without"
                 . " Dancer::Plugin::Auth::Extensible!";
+    } else {
+        return $handler;
     }
 

msouth

package Minimal::Reproduce;
use Dancer ':syntax';
use Dancer::Plugin::SimpleCRUD;

our $VERSION = '0.1';

get '/' => sub {
    template 'index';
};

msouth

use utf8;
use v5.10;

my $string = "áéíóú";

binmode(STDOUT, ":utf8");
say $string;

use Encode qw/encode decode/;
my $bob = encode( 'UTF-8', $string);

msouth

# This is the main configuration file of your Dancer app
# env-related settings should go to environments/$env.yml
# all the settings in this file will be loaded at Dancer's startup.

# Your application's name
appname: "Acme::Test::Dancer::Plugin::Database"

# The default layout to use for your application (located in
# views/layouts/main.tt)
layout: "main"

msouth

use Template;

my $tt = Template->new( START_TAG=>'<%', END_TAG=>'%>' );

$tt->process(\*DATA, {}, \*stdout) ;

__DATA__
<% index = 0; last = 0;  %>

index is now <% index %>

msouth

package Foodle;
use Dancer ':syntax';
use Storable;

our $VERSION = '0.1';

get '/' => sub {
    template 'index';
};

msouth

use DBI;
use strict;
use warnings;

my $db_name = shift or die "call as $0 [database_name] [mysql user] [mysql password]";
my $mysql_user = shift || 'root';
my $mysql_password = shift || '';

my $dbh = DBI->connect("dbi:mysql:database=$db_name", $mysql_user, $mysql_password) || die DBI->errstr;