diegok

#!/usr/bin/env perl

use v5.10;
use Mojo::DOM;

my $dom = Mojo::DOM->new('<p id="my:id"></p><p id="my.id"></p>');

say $dom->at('#my\:id') ? 'Ok with :' : 'Broken with :';
say $dom->at('#my\.id') ? 'Ok with .' : 'Broken with .';

diegok

#!/usr/bin/env perl

use strict;
use Resque;
use Company::Config;
use Getopt::Long::Descriptive;
require UNIVERSAL::require;

my $opt = getopt();
$_->require for @{$opt->module||[]};

diegok

package Company::Task::Example;
# ABSTRACT: Example task class using moose

sub perform {
    my $job = shift;
    Company::Task::Example::Run->new( job => $job, %{$job->args->[0]} )->run;
}

package Company::Task::Example:Run;
use Moose;

diegok

Keybase proof

I hereby claim:

• I am diegok on github.
• I am diegok (https://keybase.io/diegok) on keybase.
• I have a public key whose fingerprint is 7DF4 25CF F890 59DF 80E3 5F60 0480 2176 2A4E A430

To claim this, I am signing this object:

diegok

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

my $backend = Mojo::URL->new('https://soysuper.com');

any '/' => \&proxy;
any '/*path' => \&proxy;

sub proxy {
    my $c    = shift;

diegok

var Promise = require('promise'),
    ua      = require('request'),
    cheerio = require('cheerio');

function http_get(url) {
  return new Promise(function(resolve, reject) {
    ua(url, function (err, res, body) {
      if (err) { reject(err) }
      else {
        resolve({

diegok

$_REPL->load_plugin($_) for qw(
    History         Colors
    FancyPrompt     Refresh
    Interrupt       OutputCache
    DDC             Nopaste

    CompletionDriver::Keywords
    CompletionDriver::LexEnv
    CompletionDriver::Methods
    CompletionDriver::INC

diegok

package Mojolicious::Plugin::DBIC;
use Mojo::Base 'Mojolicious::Plugin';

our $VERSION = '0.01';

my  $schemas = {};

sub register {
  my ($self, $app, $cfg) = @_;

diegok

#!/usr/bin/env perl

use 5.12.0;
use Mojo::UserAgent;
use Compress::Zlib;

my $ua = Mojo::UserAgent->new;
$ua->on( start => sub {
    my ( $ua, $tx ) = @_;

diegok

$_REPL->load_plugin($_) for qw(
    History         Colors
    FancyPrompt     Refresh
    Interrupt       OutputCache
    DDC             Nopaste

    CompletionDriver::Keywords
    CompletionDriver::LexEnv
    CompletionDriver::Methods
    CompletionDriver::INC