No Act on ACT | Linuxia Wiki

Apache / mod_perl
- slow
- memory footprint
- deployment related code
PSGI
- runs on any webserver supporting PSGI
- fast (Nginx)
- simple configuration (Nginx)
- no deployment related code

Apache version

Apache/1.3.42 (Unix) mod_perl/1.31

more than 6 years old

Dancer2 Advantages

Clean OO interface
Routes
Hooks
Engines
Multiple Applications
- Web application
- REST API
- Admin interface

Manual SQL vs DBIx::Class

Manual SQL
- error prone
- compatibility problems
- less secure
DBIx::Class
- Business logic
- works on dozens of RDBMS
- usually faster
- more secure

More Reasons for "No act on ACT"

Single Point of Failure
Development
Responsiveness
No https://

Single Point of Failure

Baltimore Perl Workshop
Eventbrite

Development

Last commit on ACT: July 2015 https://github.com/book/Act
Last commit on ACT in the box: September 2015

Hackathon in Lyon

Responsiveness

Picture by Guillaume Brocker, CC BY-SA 3.0

Perl Dancer Conference Website

https://github.com/interchange/Perl-Dancer-Conference

Web Application Features

Maps with Leaflet
Cropping Photos
Administration
SEO / Modern Design
Dancer2::Debugger

Maps with Leaflet

Venue on Frontpage
Leaflet library
Leaflet code
User map

Venue on Frontpage

Leaflet Library

Leaflet Javascript library

Leaflet Code

var map = L.map('map').setView([48.20078,16.36826], 13);
L.tileLayer('https://api.tiles.mapbox.com/v4/{id}/{z}/{x}/{y}.png?access_token={accessToken}', {
  attribution: 'Map data &copy; <a href="http://openstreetmap.org">OpenStreetMap</a> contributors, <a href="http://creativecommons.org/licenses/by-sa/2.0/">CC-BY-SA</a>, Imagery Â© <a href="http://mapbox.com">Mapbox</a>',
  maxZoom: 18,
  id: 'petermottram.mp1dpak2',
  accessToken: 'pk.eyJ1IjoicGV0ZXJtb3R0cmFtIiwiYSI6IjE1NWI5NjRjN2IxNjNkYTM1MzI3YzY5M2E0YjZjMDc0In0.T0bpnZGXCQBSW_SOv_nWHA'
}).addTo(map);
var marker2 = L.marker([48.18246, 16.38075]).addTo(map);
marker2.bindPopup("<b>Hotel Schani Wien</b><br>Karl-Popper-StraÃŸe 22<br>Conference Venue<br>21/22 Oct");
$("#marker2").click(function(){
    marker2.openPopup();
    return false;
});

User Map

Cropping photos

You can drag and drop or uplad your photo and crop it in our website.

Current photo

/profile/photo

Ballerina

Cropping I

Cropping II

Final Result

Jcrop Library

Jcrop - jQuery Image Cropping Plugin

SEO / Modern Web Design

Secure site with HTTPS
Speaking links

Secure site with HTTPS

More secure and gives users more confidence
Small ranking boost with Google
Free certificates with Let's Encrypt

Speaking Links I

No act on ACT

Speaking Links II

ACT: http://act.yapc.eu/ye2016/talk/6780
PDC: https://www.perl.dance/talks/40-no-act-on-act

Administration

Users
Talks
Tickets
Events
News

Navigation

Development

Dancer2::Debugger

Dancer2::Debugger Presentation

DBIx::Class Techniques

Set Based DBIx::Class http://www.perladvent.org/2012/2012-12-21.html
- Truth of ResultSet
- Chaining
- Relationship traversal
- Predefined searches
Hashref Inflation

Truth of ResultSet

This doesn't execute SQL:

my $talks = $schema->resultset('Talk')->search(...);

This does:

my $first_talk = $schema->resultset('Talk')
                 ->search(...)->first;

Chaining

my $talks = $schema->resultset('Talk')
   ->search({-bool          => 'accepted'})
   ->search({conferences_id => 1})
   ->search({room           => { '!=' => '' }),
   ->search({start_time     => {
            '>=' => '2015-10-22 00:00:00'
            '<=' => '2015-10-23 00:00:00'
            }}),
);

Relationship Traversal

# countries dropdown
$tokens->{countries} = [
   $users->search_related(
     'addresses',
     {
        type => 'primary',
     },
   )->search_related(
      'country', undef,
      {
         columns  => [ 'country_iso_code', 'name' ],
         distinct => 1,
         order_by => 'country.name',
      }
   )->hri->all
];

Hashref Inflator

# countries dropdown
$tokens->{countries} = [
    rset('Country')->search( undef,
        { columns => [ 'country_iso_code', 'name' ],
          order_by => 'name' } )
      ->hri->all
];
unshift @{ $tokens->{countries} },
   { country_iso_code => undef, name => "Select Country" };

Predefined Searches

User class:

sub last_conference_attended {
    my $self = shift;
    my $conference = $self->conferences->search({}, {
        order_by => { -desc => 'start_date' },
    })->first;
}

Web application:

my $conference = $user->last_conference_attended;

Dancer2

Code structure
Hooks
Plugins
Plack::Middleware

Code Structure

Main module
Multiple modules for routes

Main Module

use Dancer2;

use PerlDance::Routes::Account;
use PerlDance::Routes::Admin;
use PerlDance::Routes::Data;
use PerlDance::Routes::PayPal;
use PerlDance::Routes::Profile;
use PerlDance::Routes::Survey;
use PerlDance::Routes::Talk;
use PerlDance::Routes::User;
use PerlDance::Routes::Wiki;

Route module I

use Dancer2 appname => 'PerlDance';

use Dancer2::Plugin::Auth::Extensible;
use Dancer2::Plugin::DataTransposeValidator;
use Dancer2::Plugin::DBIC;
use Dancer2::Plugin::Email;
use Dancer2::Plugin::Deferred;
use Dancer2::Plugin::Interchange6;
use Dancer2::Plugin::TemplateFlute;

prefix '/profile';

Route module II

get '/talk/create' => sub {
    my $tokens = {
        title => "New Talk",
    };

    $tokens->{form} = form('create-update-talk');
    $tokens->{form}->reset;
    $tokens->{form}->fill( duration => 40 );

    add_durations_token($tokens);

    template 'profile/create_update_talk', $tokens;
};

Hooks used

hook 'before_template_render' => sub {
  my $tokens = shift;

  if ( my $user = logged_in_user ) {
    $tokens->{logged_in_user} = schema->current_user;
  }

  $tokens->{conference_name} = setting('conference_name');
};

Plugins used

Dancer2::Plugin::Auth::Extensible: User Authentication
Dancer2::Plugin::DataTransposeValidator: Form validation
Dancer2::Plugin::DBIC: DBIx::Class Wrapper
Dancer2::Plugin::Deferred: Flash messages after redirect
Dancer2::Plugin::Email: Sending emails
Dancer2::Plugin::Interchange6: Cart and other business functions
Dancer2::Plugin::TemplateFlute: Form handling

Plack Middleware

Joy of PSGI middleware

Cross-site request forgery (CSRF/XSRF)

Plack::Middleware::XSRFBlock

# bin/app.psgi

use Plack::Builder;
use PerlDance;
my $app = PerlDance->to_app;

builder {
    enable 'Session';
    enable 'XSRFBlock',
      cookie_name    => 'PerlDance-XSRF-Token',
      meta_tag       => 'xsrf-meta',
      cookie_options => { httponly => 1, };
    enable 'XForwardedFor',
      trust => [qw( 127.0.0.1 10.0.0.0/8 172.16.0.0/20 192.168.0.0/16 )];
    $app;
}

Summary

Modern Perl
Missing features
Perl Dancer Conference 2016
Call for developers
Ask questions

Modern Perl

Missing features

Multilingual GH #8
Drag and drop schedule tool
Multisite
Multiple speakers GH #104

Perl Dancer Conference 2016

Call for developers

https://github.com/interchange/Perl-Dancer-Conference

Questions

Questions?