Skip to content

Instantly share code, notes, and snippets.

View clkao's full-sized avatar

Chia-liang Kao clkao

568 followers · 77 following
View GitHub Profile
@clkao
clkao / gist:206770
Created October 10, 2009 10:34
use strict;
use Plack::Builder;
use File::Basename qw(dirname);
use Cwd qw(abs_path);
my $handler = sub {
return [ 404, [ "Content-Type" => "text/plain" ], [ "Not Found" ] ];
};
@clkao
clkao / gist:233510
Created November 13, 2009 01:46
diff --git a/lib/Finance/GeniusTrader/Graphics/Object/BuySellArrows.pm b/lib/Finance/GeniusTrader/Graphics/Object/BuySellArrows.pm
index a79f689..ee9a370 100644
--- a/lib/Finance/GeniusTrader/Graphics/Object/BuySellArrows.pm
+++ b/lib/Finance/GeniusTrader/Graphics/Object/BuySellArrows.pm
@@ -17,6 +17,7 @@ use Finance::GeniusTrader::Graphics::Object;
use Finance::GeniusTrader::Graphics::Driver;
use Finance::GeniusTrader::Graphics::Tools qw(:color);
use Finance::GeniusTrader::Conf;
+use List::Util qw(min max);
@clkao
clkao / gist:260167
Created December 19, 2009 17:52
diff --git a/lib/Plack/Middleware/Session.pm b/lib/Plack/Middleware/Session.pm
index dab15cb..524dcf7 100644
--- a/lib/Plack/Middleware/Session.pm
+++ b/lib/Plack/Middleware/Session.pm
@@ -55,7 +55,7 @@ sub call {
$self->response_cb($res, sub {
my $res = Plack::Response->new(@{$_[0]});
$env->{'plack.session'}->finalize( $res );
- @{$_[0]} = @{$res->finalize};
+ $res;
@clkao
clkao / gist:272957
Created January 9, 2010 15:44
t/68-repeating.t .. 1/82 Can't call method "update_next_repeat" on an undefined value at /Users/clkao/git/bps-private/hiveminder/lib/BTDT/Model/Task.pm line 2475.
@clkao
clkao / gist:274870
Created January 12, 2010 03:31
t/44-encodings.t (Wstat: 2816 Tests: 320 Failed: 11)
Failed tests: 40-42, 44-46, 49-51, 300-301
Non-zero exit status: 11
t/65-old_cookies.t (Wstat: 512 Tests: 8 Failed: 2)
Failed tests: 6, 8
Non-zero exit status: 2
t/76-imap-ical.t (Wstat: 65280 Tests: 39 Failed: 8)
Failed tests: 29-33, 37-39
Non-zero exit status: 255
Parse errors: Bad plan. You planned 75 tests but ran 39.
@clkao
clkao / gist:274871
Created January 12, 2010 03:32
t/44-encodings.t (Wstat: 2816 Tests: 320 Failed: 11)
Failed tests: 40-42, 44-46, 49-51, 300-301
Non-zero exit status: 11
t/65-old_cookies.t (Wstat: 512 Tests: 8 Failed: 2)
Failed tests: 6, 8
Non-zero exit status: 2
t/76-imap-ical.t (Wstat: 65280 Tests: 39 Failed: 8)
Failed tests: 29-33, 37-39
Non-zero exit status: 255
Parse errors: Bad plan. You planned 75 tests but ran 39.
@clkao
clkao / gist:277895
Created January 15, 2010 08:18
sync.github-miyagawa.into=/Users/clkao/git/github/miyagawa
sync.github-miyagawa.github=miyagawa
....
data-model-tutorial [ Clone failed! ]
...trying again, anonymously [ Clone failed! ]
@clkao
clkao / gist:280833
Created January 19, 2010 10:33
package Sub::Chained;
use Moose;
sub chained {
__PACKAGE__->new();
}
sub AUTOLOAD {
my $self = shift;
my $name = our $AUTOLOAD;
@clkao
clkao / gist:281650
Created January 20, 2010 06:09
commit bef3ee559c86026c74c1bf935b0fc97819166198
Author: Chia-liang Kao <clkao@clkao.org>
Date: Wed Jan 20 14:08:10 2010 +0800
Fix Moose::Meta::Method pod that mentioned Class::MOP::Class.
diff --git a/lib/Moose/Meta/Method.pm b/lib/Moose/Meta/Method.pm
index c34c1fc..d864e2b 100644
--- a/lib/Moose/Meta/Method.pm
+++ b/lib/Moose/Meta/Method.pm
@clkao
clkao / gist:289557
Created January 29, 2010 08:24
t/Plack-Response/cookie.t ................... 1/?
# Failed test at t/Plack-Response/cookie.t line 20.
# 'bar=xxx%20yyy; expires=¤­, 29- 1-2010 09:24:28 GMT'
# doesn't match '(?-xism:bar=xxx%20yyy; expires=\w+, \d+-\w+-\d+ \d\d:\d\d:\d\d GMT)'
# Looks like you failed 1 test of 2.