ian-kent

package ReactiveAPI

import org.specs2.mutable.Specification
import play.api.mvc.{Action, Results}
import play.api.test.{WithApplication, FakeApplication}
import play.api.cache.Cache

class ExampleSpec extends Specification with Results {
  val appWithRoutes = FakeApplication(withRoutes = {
    case ("GET", "/") => Action{ Ok }

ian-kent

package wrappers

import play.api._
import play.api.mvc._
import scala.concurrent._
import scala.concurrent.Future
import play.mvc.Http.Status
import ExecutionContext.Implicits.global
import play.libs.Akka
import akka.actor.{Actor, Props}

ian-kent

#!/usr/bin/env perl

BEGIN {
    $ENV{'HTTP_PROXY'} = '<INSERT PROXY>';
    $ENV{'HTTPS_PROXY'} = '<INSERT PROXY>';
    $ENV{'MOJO_PROXY'} = 1;
    $ENV{'MOJO_USERAGENT_DEBUG'} = 1;
}

use Mojolicious::Lite;

ian-kent

$r->bridge('/:something')->to(cb => sub {
  my $something = shift->stash('something');
  my $type = type_of_something($something);
  if($type eq 'girl') {
    # route to foo#bar
  } elsif ($type eq 'boy') {
    # route to baz/qux
  }
});

ian-kent

use Mango;

use strict;
use warnings;

print "Mango version: $Mango::VERSION\n";

my $mango = Mango->new($ENV{MANGO_URI} // "mongodb://localhost:27017");
my $db = $mango->db('test_db');
my $collection = $db->collection('test_collection');

ian-kent

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

my $r = app->routes;
$r->get('/')->to(cb => sub {
  my $self = shift;
  $self->render(text => 'test');
});

my $b = $r->bridge('/#arg1/#arg2')->to(cb => sub {

ian-kent

package MooseRole;
use Moose::Role;

sub dosomething {
    my ($field, %args) = @_;
    my $package = caller;
    use Data::Dumper;
    print Dumper $package->meta->get_attribute($field);
}

ian-kent

String found where operator expected at test.pl line 14, near "dosomething 'test'"
        (Do you need to predeclare dosomething?)
syntax error at test.pl line 14, near "dosomething 'test'"
Execution of test.pl aborted due to compilation errors.

ian-kent

package obj2;
sub new { my ($package, %args) = @_; bless { %args }, 'obj2' };
sub render { shift->{obj}->() };

package obj;
sub new { bless {}, 'obj' };
sub capture { return obj2->new(obj => pop) }

package main;

ian-kent

package main;

use Data::Dumper;
use Text::Xslate;

my $count = 0;
my $macro = undef;
my $xslate = Text::Xslate->new(
    path => {
        'test.tx' => qq{