jberger

package MyApp;
use Mojo::Base 'Mojolicious';
use Log::Dispatch;

sub setup {
  my $self = shift;
  ...
  
  # Setup syslog logging
  my $ident = 'some identity string';

gabrielelana

# -*- mode: ruby -*-
# vi: set ft=ruby :

PASSWORD_PATH = ".password"
PASSWORD_ID_PATH = ".password_id"

# Make sure to have installed vagrant-triggers plugin
# > vagrant plugin install vagrant-triggers

# After the first `vagrant up` stop the VM and execute the following steps

ksafranski

Intro

TCL-Expect scripts are an amazingly easy way to script out laborious tasks in the shell when you need to be interactive with the console. Think of them as a "macro" or way to programmaticly step through a process you would run by hand. They are similar to shell scripts but utilize the .tcl extension and a different #! call.

Setup Your Script

The first step, similar to writing a bash script, is to tell the script what it's executing under. For expect we use the following:

#!/usr/bin/expect

kraih

package Mojolicious::Plugin::Coro;
use Mojo::Base 'Mojolicious::Plugin';
use Coro;
use Mojo::IOLoop;

# Wrap application in coroutine and reschedule main coroutine in event loop
sub register {
  my ($self, $app) = @_;

  my $subscribers = $app->plugins->subscribers('around_dispatch');

kraih

#!/usr/bin/env perl
use Mojolicious::Lite;
use Coro;
use Mojo::IOLoop;

# Magical class for calling a method non-blocking (with a closure) and
# rescheduling the current coroutine until it is done
package with::coro {
  use Coro;

andreas-marschke

package Mojolicious::Command::minify;
use Mojo::Base 'Mojolicious::Commands';
use File::Find;
use File::Slurp;

has description => "Minify scripts in public/ directory.\n";
has hint => <<"EOF";
                                                                                                                                                              
Minifies all Javascript and CSS files with the .js instead of the .min.js extension.                                                                          
EOF                                                                                                                                                           

kraih

#
# Open 10k concurrent WebSocket connections with the client and server running
# in the same process and perform 10k WebSocket message roundtrips
#
# Tested on OS X 10.9.2 (MacBook Air) with Perl 5.18.2 and EV 4.17 (kqueue)
#
# 560.9MB memory usage, 0% CPU usage once roundtrips are finished after 36s
# (with all 20k sockets still open)
#
# Get the latest version of Mojolicious from http://github.com/kraih/mojo