Skip to content

Instantly share code, notes, and snippets.

View yanick's full-sized avatar
🏠
Working from home

Yanick Champoux yanick

🏠
Working from home
View GitHub Profile
@yanick
yanick / gist:9146512
Created February 22, 2014 00:18
Yanick's CPAN releases
$ cpan-release-counts --user YANICK
2005 ( 3) #
2006 ( 17) ######
2007 ( 22) ########
2008 ( 28) ###########
2009 ( 15) ######
2010 ( 45) ##################
2011 ( 57) ######################
2012 ( 76) ##############################
2013 (125) ##################################################
@yanick
yanick / INSTALL.md
Created February 25, 2014 14:56 — forked from namuol/INSTALL.md

rage-quit support for bash

HOW TO INSTALL

Put flip somewhere in your $PATH and chmod a+x it.

Copy fuck into ~/.bashrc.

@yanick
yanick / automoo.pl
Created April 8, 2014 16:42
automoo
use 5.10.0;
sub create_moo {
my ( $class, $prototype ) = @_;
eval join "\n", "package $class;", 'use Moo;',
map { "has $_ => ( is => 'ro' );" } keys %$prototype;
return $class;
@yanick
yanick / DualLived.vimpl
Created April 9, 2014 14:11
Vim::X script coming with its own vim config
""; <<finish;
map ,dl :call DualLived()<CR>
finish
use Vim::X;
sub DualLived :Vim {
vim_msg "hello there";
# Cluster:
cluster {
color 'local';
description '';
name 'local';
interfaces (
"hftp://localhost:41110" => { type => 'readonly', version => "0.20.2" },
"hftp://localhost:41021" => { type => 'execute', version => "0.20.2" },
);
use 5.20.0;
use experimental 'postderef';
use HTTP::Proxy;
use HTTP::Proxy::HeaderFilter::simple;
use Ubic;
use CHI;
@yanick
yanick / MyJSONY.pm
Created July 25, 2014 14:14
A Parse::RecDescent implementation of JSONY
use 5.12.0;
package MyJSONY;
use Parse::RecDescent;
use JSON qw/ to_json from_json /;
use Scalar::Util qw/ looks_like_number /;
@yanick
yanick / azkaban_flow.pl
Created August 6, 2014 15:00
command-line Azkaban flow graphing
#!/usr/bin/env perl -s
=head1 SYNOPSIS
$ azkaban_flow -f=<format> path/to/final/job
=head1 DESCRIPTION
The script reads the Azkaban job file, figure out all its dependencies, traverses them,
and generates the resulting graph.
@yanick
yanick / oll_korrect.pl
Last active August 29, 2015 14:05
==b o.o and ==q ò.ó operators
use 5.20.0;
use utf8;
use experimental 'postderef';
package Approved;
sub o { '9.9 oh my... suuuuure, why not?' }
sub b { pop }
@yanick
yanick / shellshot.bash
Last active August 29, 2015 14:08
CatalystX::Info
$ 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 |
'----------------+----------'