View gist:81a06d2842cb5b754942
for my $source_name (__PACKAGE__->sources) {
my $method_name = lc($source_name =~ s/(?<=.)(?=[A-Z])/_/axmsgr);
s/(?<![aeiou])y$/ies/axms or s/(?:ss|s|sh|ch|x)\K\z/es/axms or s/\z/s/axms
for $method_name; # XXX: perhaps use Lingua::EN::Inflect or similar?
my $method = sub {
my $rs = shift->resultset($source_name);
return @_ ? $rs->search_rs(@_) : $rs;
no strict 'refs';
*$method_name = $method;
View slab.c
/* Trivial (and totally untested) slab allocator */
struct slab;
struct slab {
struct slab *prev;
void *buf;
size_t avail, orig_size;
struct slab *slab_create(size_t initial_size) {
View gist:0330448a68672b71170b

(Originally from Evelyn Rose’s “Complete International Jewish Cookbook”, ISBN 1861057326.)


This is enough for a 20 cm tin, about 5 cm deep. Mix 175 g self-raising flour (or plain flour with 1½ tsp baking powder), 125 g butter, 50 g icing sugar, 1 egg yolk, and 1 tbsp water, until the ingredients form a dough of a suitable texture. Chill for 30 minutes, then roll out on a floured board to fit your desired tin. Return to the fridge while you prepare the filling.


Separate 2 eggs. Beat the yolks with 450 g curd cheese, ½ teaspoon vanilla, juice and rind of half a lemon, 50 g melted butter, 50 g caster sugar, 2 level tbsp cornflour, and 150 ml soured cream, until smooth and thick. Whisk the whites to stiff peaks, then whisk in an additional 2 tsp caster sugar. Fold the whites into the cheese mixture, then fill the prepared pastry. Ensure the top is smooth and level.

View gist:6688183
diff --git i/lib/DBIx/Class/Schema/Loader/ w/lib/DBIx/Class/Schema/Loader/
index b37223c..9c1f295 100644
--- i/lib/DBIx/Class/Schema/Loader/
+++ w/lib/DBIx/Class/Schema/Loader/
@@ -2393,6 +2393,11 @@ sub _make_column_accessor_name {
return $accessor;
+sub _table_is_view {
+ #my ($self, $table) = @_;
View gist:6268974
sub call_with_timeout {
my ($timeout, $callback) = @_;
my $timeout_expired;
my $completed = eval {
local $SIG{ALRM} = sub { $timeout_expired = 1; die "alarm\n" };
my $completed = eval {
alarm $timeout;
View gist:1957998
#!/usr/bin/env perl
use strict;
use warnings;
use Carp qw(cluck);
use autodie ':all';
use Getopt::Long 2.33 qw(:config auto_help);
use File::Find::Rule;
use File::Basename 'basename';