yanick

#!/usr/bin/perl 

use 5.20.0;

package JSDoc::Viewer;

use Moose;
use Template::Caribou;
with 'Template::Caribou';

yanick

use strict;
use warnings;

sub hashgregate(&@){
    my $sub = shift;
    my %agg;
    push @{$agg{$sub->($_)}}, $_ for @_;
    return wantarray ? %agg : \%agg;
}

yanick

use Vim::X;
use App::Uni;

use 5.20.0;

use strict;
no warnings;

sub UnicodePicker :Vim(args) {

yanick

// I miss TAP...
function pass() { return expect(true).toBeTruthy() }
function fail() { return expect(false).toBeTruthy() }
function ok(thing) { return expect(thing).toBeTruthy() }
function is(have,expected) { return expect(have).toBe(expected) }

yanick

#!/usr/bin/env perl 

use strict;
use warnings;

use File::Serialize;
use List::Util qw/ pairmap /;
use DDP;

my ( @parent, $tasks, $crew );

yanick

use strict;

use Data::Printer;
sub x { \@_ }

my %foo = 'a'..'d';

my $bar  = x(%foo);

$foo{a} = "banana";

yanick

#!/usr/bin/perl 

use 5.20.0;
use warnings;

use AnyEvent::SMTP::Server 'smtp_server';
use CHI;
use Email::Simple;

my $email_forward_cache = CHI->new(

yanick

// ==UserScript==
// @name        Show time remaining
// @namespace   Yanick
// @description Show the tiem of videos remaining
// @include     https://class.coursera.org/proglang-003/*
// @require       http://ajax.googleapis.com/ajax/libs/jquery/1.9.1/jquery.min.js
// @version     1
// @grant       none
// ==/UserScript==

yanick

$ perl -MMyApp -MCatalystX::Info -E'say CatalystX::Info->new(app => "MyApp")->chained_actions->as_string'

.---------------------------.
|      Chained actions      |
+----------------+----------+
| Path Spec      | Private  |
+----------------+----------+
| /foo/*/bar/*/* | /foo (1) |
|                | => /bar  |
'----------------+----------'

yanick

use 5.20.0;

use utf8;
use experimental 'postderef';

package Approved; 

sub o { '9.9  oh my... suuuuure, why not?' }
sub b { pop }