Skip to content

Instantly share code, notes, and snippets.

package Shutterstock::Example::Nonblock;
use Web::Simple;
use Plack::App::File;
use File::ShareDir::ProjectDistDir;
use File::Spec::Functions;
use Imager::Simple;
sub share { our $share ||= dist_dir 'Shutterstock-Example-Nonblock' }
#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
my $foo = chr(0xff);
is(length($foo), 1, "character length of string is 1");
ok(!utf8::is_utf8($foo), "string not utf-8 upgraded");
- Test 1 or 2 more apps
- write tests for getting default_model / default_view from config?
- move block from sub controller to Catalyst::Utils
- kill components class data
- kill initialization in sub setup
- kill duplication: http://paste.scsys.co.uk/123648
- create a sub components that returns all components
- merge with around components => sub {}
- locked hash (Hash::Util)
- block inside sub setup:
/ ?sortOptions Root repository listing.
/<repo> Repository summary page
/<repo>/shortlog Short log
/<repo>/log Full log
/<repo>/heads Branches
/<repo>/tags Tags
/<repo>/reflog Reflog
/<repo>/<commit sha1>/commit Commit
/<repo>/<commit sha1>/diff Commit diff
/<repo>/<commit sha1>/patch Commit patch
@bobtfish
bobtfish / gist:166244
Created August 12, 2009 01:26 — forked from anonymous/gist:166243
Neato git merges display ala http://files.perldition.org/moose.html
#!/usr/bin/env python
REPOPATH="/home/andersg/xmms2-mergetest"
OUTPUTFILE="/var/www/git.xmms.se/merge/index.html"
#OUTPUTFILE="/tmp/merge.html"
BASEREMOTE="origin"
BASEBRANCH=BASEREMOTE + "/master"
import os