bobtfish

use strict;
use CPANPLUS::Backend;
my $cb = CPANPLUS::Backend->new;

my %seen;
for my $mod ($cb->search( type => 'package', allow => [qr/^CatalystX/] ) ) {
    ### returns a module object for each .pm in the package, so skip it if
    ### if we've already dealt with the package
    next if $seen{ $mod->package }++;

bobtfish

#!/bin/sh

# Dumbass minicpan replacement - Matt S Trout 2005/6. Perl license.

# Modified to retrieve and extract dists that depend on Catalyst-Runtime
# - Rafael Kitover (May 29 2009)

# Pick one from http://cpan.org/SITES.html#RSYNC

REMOTEHOST='mirror.facebook.com'

bobtfish

#!/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

bobtfish

use strict;
use warnings;

use Test::More;
use Test::Exception;

use Moose ();
use Moose::Object;
use Class::MOP::Class;
use Catalyst::Request;

bobtfish

Things which suck about credential::openid:

Important:

. new method is EVIL - grabs config out of the realm's internals. This needs fixing with back compat so that it'll do that IF NEEDED and warn.. This MUST be fixed..

Unimportant:

. errors_are_fatal - appears not to be used all the places it should be? Why not have a _throw_error method which does the right thing depending on config setting?
. Docs show use of flash, nasty.

bobtfish

// Roundtripping objects in Javascript with Joose:

Joose.Storage.Unpacker.patchJSON();

// Represents a page fragment
Class("Fragment", {
    does: Joose.Storage,
    has: {
        html: {
            is: "rw",

bobtfish

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;

use FCGI;
use File::Temp ();
use FCGI::Client::Connection;
use Getopt::Std;

bobtfish

/ ?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

---
comment: "WWW-Mechanize regularly fails its live tests, turn them off."
match:
distribution: "^PETDANCE/WWW-Mechanize-1.\d+\.tar\.gz"
patches:
- "BOBTFISH/WWW-Mechanize-1.XX-BOBTFISH-01_notests.patch.gz"

bobtfish

#!/usr/bin/perl
#

use LWP::UserAgent;
use JSON 2.07;
my $ua = LWP::UserAgent->new;
$ua->timeout(10);

my $url = "http://bit.ly/1TU8wN";