ap

#!/usr/bin/env perl

use warnings;
use strict;
use Git::Raw ();
use Archive::Peek::Libarchive ();
use Getopt::Std 'getopts';

getopts 'd:', \my %opt;
my $git = Git::Raw::Repository->open( $opt{'d'} // die 'need git directory, specify using -d' );

ap

ap

Now posted: http://blogs.perl.org/users/aristotle/2013/06/toolchain-decade.html

IRC conversation about the original draft:

[03:22:37] <aristotle> I just wrote https://gist.github.com/ap/5695633 and I’d be grateful for any corrections and critique before I post it
[03:22:39] <+dipsy> [ gist:5695633 ] 
[03:23:20] <aristotle> (a brief summary of the last decade in CPAN installers and authoring tools)
[03:28:09] <aristotle> in particular I don’t want to post nonsense if my outside-looking-in perspective on M::B’s architecture is grossly wrong
[04:45:06] <jberger> aristotle, seems about right
[04:45:51]  I can say, I have used the extensibility to build Alien::Base but its certainly the exception rather than the rule in the M::B world

ap

#!/usr/bin/env perl
use 5.014;
use strict;
use warnings;
use HTTP::Tiny ();
use JSON 'decode_json';

sub get_dists_for_author {
	my ( $author ) = @_;
	my $url = sprintf 'http://api.metacpan.org/v0/release/_search?q=author:%s+AND+status:latest;fields=name;size=200', $author;

ap

#!perl
use Plack::Builder;
builder {
	enable sub {
		my $app = shift;
		sub {
			my $env = shift;
			Plack::Util::response_cb( $app->( $env ), sub {
				my @out = ( 'a' .. 'z' );
				sub { shift @out }

ap

Selecting an Internationalization Framework

Author

Steffen Winkler perl-ws@steffen-winkler.de

Bio

ap

Refer to https://github.com/ap/bashrc

ap

# you need this
alias gg='git grep -E'

# highlighted diff goodness is not just for git repos any more
alias diff='git diff --no-index'

# qf=quickfix
git config --global alias.qf 'commit --amend -C HEAD'

# Git Is My Refactoring IDE: edit all files that contain a particular pattern

ap

" defines a :Sudo command that works largely like :w
" but uses `sudo` to the file using root permissions

function! SudoWrite(file,line1,line2)
	" intercept the external file change reload prompt event
	autocmd FileChangedShell <buffer> :
	" shazzam
	exe 'silent' a:line1 . ',' . a:line2 . 'write !sudo tee 1>/dev/null' strlen(a:file) ? a:file : '%'
	" force-trigger vim's file modification check, then undo the intercept
	checktime | autocmd! FileChangedShell <buffer>

ap

use List::Util 'reduce';

sub pascal {
	my ( $x, @p, @q ) = shift;
	push @p, reduce { push @p, $a + $b; $b } 1, @q = @p, @p = () for 1 .. $x - 1;
	1, @p;
}