snippet.pl

while (my $file = readdir($PSGI_DIR)) {
	next if $file eq 'dev_dev.psgi';
	next if $file =~ m/mock/i;
	next unless $file =~ m/^(.*)_dev\.psgi$/;
	my $name = $1;

	local $@;

	$APPS{$name} = eval "package $name; do '$PATH/$file'"
		or print STDERR "Failed to load $file: $@";
}