clkao’s gists

clkao / client.js

Created May 26, 2010 13:37

	function log_it(stuff) {
	$("#log").append(stuff+'<br/>');
	}

	$(function() {
	var hippie = new Hippie( document.location.host, 5, function() {
	log_it("connected");
	},
	function() {
	log_it("disconnected");

clkao / gist:410026

Created May 22, 2010 12:10

use feature qw(switch);
use List::MoreUtils qw(firstidx);
my @a = 11..20; 

given(1) {
    when(1) {
#        my $_;
        my $i = firstidx { $_ % 5 == 0 } @a;
        print "$i $a[$i]\n";
    }
}

clkao / gist:386870

Created May 2, 2010 03:28

	#!/usr/bin/env perl
	use warnings;
	use strict;
	use Test::TCP ();
	use Test::More ;
	use Plack::Request;
	use Plack::Loader;
	use Plack::Util;
	use Data::Dumper;

clkao / gist:379005

Created April 26, 2010 05:29

	t/53-todo-pl.t (Wstat: 256 Tests: 6 Failed: 1)
	Failed test: 1
	Non-zero exit status: 1
	t/44-encodings.t (Wstat: 65280 Tests: 255 Failed: 3)
	Failed tests: 253-255
	TODO passed: 16
	Non-zero exit status: 255
	Parse errors: Bad plan. You planned 338 tests but ran 255.
	t/75-imap.t (Wstat: 1792 Tests: 133 Failed: 7)
	Failed tests: 124-126, 128, 130-132

clkao / gist:365982

Created April 14, 2010 15:55

	[clkao@mtl-2:hiveminder clkao (plack)]$ ~/perl5.10/bin/perl -I ~/git/Plack/lib -I ~/git/AnyMQ/lib -I ~/git/AnyMQ-AMQP/lib -I ~/git/bps/jifty/lib -I ~/git/bps/jifty-plugin-oauth/lib -I ~/git/bps/jifty-plugin-monitoring/lib -I ~/git/Web-Hippie/lib ~/git/Plack/scripts/plackup -s Standalone -E deployment -p 8008 -e 'enable "ReverseProxy"'
	Can't use string ("1") as a subroutine ref while "strict refs" in use at /Users/clkao/perl5.10/lib/site_perl/5.10.1/Plack/Middleware/ReverseProxy.pm line 54.
	Can't use string ("1") as a subroutine ref while "strict refs" in use at /Users/clkao/perl5.10/lib/site_perl/5.10.1/Plack/Middleware/ReverseProxy.pm line 54.
	Can't use string ("1") as a subroutine ref while "strict refs" in use at /Users/clkao/perl5.10/lib/site_perl/5.10.1/Plack/Middleware/ReverseProxy.pm line 54.
	^C
	[clkao@mtl-2:hiveminder clkao (plack)]$ ~/perl5.10/bin/perl -I ~/git/Plack/lib -I ~/git/AnyMQ/lib -I ~/git/AnyMQ-AMQP/lib -I ~/git/bps/jifty/lib -I ~/git/bps/jifty-plugin-oauth/lib -I ~/git/bps/jifty

clkao / gist:365882

Created April 14, 2010 14:45

	starman -E deployment -e 'enable "ReverseProxy"' --workers 6

	Can't use string ("1") as a subroutine ref while "strict refs" in use at /home/beta-hiveminder/perl/lib/site_perl/current/Plack/Middleware/ReverseProxy.pm line 54.

clkao / gist:363580

Created April 12, 2010 13:58

	commit 25079da736b4c9d9389af5d2a367cc435456520f
	Author: Chia-liang Kao <[email protected]>
	Date: Mon Apr 12 21:56:27 2010 +0800

	Delayed loader.

	diff --git a/lib/Plack/Loader/Delayed.pm b/lib/Plack/Loader/Delayed.pm
	new file mode 100644
	index 0000000..8ab1a94
	--- /dev/null

clkao / gist:348729

Created March 30, 2010 03:37

	[clkao@mtl-2:AnyMQ clkao (master)]$ perlbrew installed
	perl-5.12.0-RC0
	/Users/clkao/bin/perl
	/Users/clkao/bin/perl
	/usr/bin/perl
	/opt/local/bin/perl
	/opt/local/bin/perl

clkao / gist:346615

Created March 28, 2010 06:53

	use Jifty;
	my $app;
	sub {
	my $env = shift;
	unless ($app) {
	Jifty->new;
	$app = Jifty->handler->psgi_app;
	}
	$app->($env);
	}

clkao / gist:345671

Created March 27, 2010 03:01

	/usr/bin/perl ~/bin/cpanm -l /tmp/test-cpanm --self-upgrade
	Initializing git repository for /usr/local/share/perl/5.10.0
	hi ExtUtils::MakeMaker at /loader/0xb2aaf0/App/cpanminus/script.pm line 813, <DATA> line 642.
	hi 6.42 at /loader/0xb2aaf0/App/cpanminus/script.pm line 818.
	hi Module::Build at /loader/0xb2aaf0/App/cpanminus/script.pm line 813.
	hi 0.2808_01 at /loader/0xb2aaf0/App/cpanminus/script.pm line 818.
	hi ExtUtils::Install at /loader/0xb2aaf0/App/cpanminus/script.pm line 813.
	hi 1.44 at /loader/0xb2aaf0/App/cpanminus/script.pm line 818.
	Fetching http://search.cpan.org/CPAN/authors/id/M/MI/MIYAGAWA/App-cpanminus-0.9928.tar.gz ... OK
	hi App::cpanminus at /loader/0xb2aaf0/App/cpanminus/script.pm line 813.

Chia-liang Kao clkao