Skip to content

Instantly share code, notes, and snippets.

View nothingmuch's full-sized avatar
🤔

Yuval Kogman nothingmuch

🤔
View GitHub Profile
#!/bin/bash
#
# PS1 magic
#
# Mostly copied from YUVAL KOGMAN version, added my own __git_ps1 stuff
# Original: http://gist.github.com/621452
#
# See video demo of this at http://vimeo.com/15789794
#
# To enable save as .bash_prompt in $HOME and add to .bashrc:
#!/usr/bin/perl
use strict;
use warnings;
use Scalar::Util qw(refaddr);
use Test::More;use Test::Exception;
use KiokuDB;
#!perl -w
use strict;
use Benchmark qw(:all);
use Sub::Call::Tail;
no warnings 'recursion';
sub rec_sum {
if ( $_[0] == 0 ) {
return 0;
=pod
=head1 NAME
Moose::Manual::Contributing - How to get involved in Moose
=head1 GETTING INVOLVED
Moose is a pretty open project and we are always willing to accept bug fixes,
more tests and documentation patches. Commit bits are given out freely, and
#!/usr/bin/perl -w
use strict;
use KiokuDB;
use KiokuDB::Backend::DBI;
{
package test;
use Moose;