yanick

#!/usr/bin/perl

use Cache::Memcached;
use YAML;
use YAML::Dumper;

print YAML::Dumper->new->dump( 
    Cache::Memcached->new( servers => [ "localhost:11211" ] )
                    ->get( shift ) 
);

yanick

#!/usr/bin/env perl 

use strict;
use warnings;

use URI;
use URI::QueryParam;
use LWP::Simple qw/ get /;
use File::Temp qw/ tempfile /;
use Email::Sender::Simple qw(sendmail);

yanick

#!/usr/bin/perl 

use 5.10.0;

use strict;
use warnings;

sub hash_map(&+) {
    my( $sub, $hash ) = @_;
    my @mapped;

yanick

package XML::Writer::SelfContained;

=pod

Tired of giving a output to XML::Writer? Me too. This allows to do

    use 5.10.0;

    use XML::Writer::SelfContained;

yanick

extends perl

## ROUTE DEFINITIONS

snippet get "GET route" !b
get '/${1}' => sub {
    ${2:${VISUAL:...;}}
};
endsnippet

yanick

$ perl bin/rt-to-github.pl puppies App-Cmd
github issues:
ticket 81512
ticket 57808
ticket 59656
ticket 73901


And then https://github.com/yanick/puppies/issues

yanick

# in your main application class (e.g. lib/S****T***.pm):

sub rs {
  my ( $c, $table ) = @_;
  my $model = 'DBIx::' . $table;
  return $c->model($model);
}

yanick

package LockedLockFile;

use strict;
use warnings;

use Moose;

use Path::Tiny;
use File::Flock::Tiny;

yanick

"How can I seek Death?" asked the disciple to the master.

The master smiled. "How can you make mountains rise? How 
do you make the sea ebbs at tides? How do you make time flow?"

The disciple frowned. And frowned some more. And then, 
in a moment of enlightenment, thought of 'autodie', had 
an aneurysm, and died.

yanick

$ cpan-release-counts --user YANICK
 2005 (  3) #
 2006 ( 17) ######
 2007 ( 22) ########
 2008 ( 28) ###########
 2009 ( 15) ######
 2010 ( 45) ##################
 2011 ( 57) ######################
 2012 ( 76) ##############################
 2013 (125) ##################################################