clkao

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

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

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

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

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

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

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

package Sub::Chained;
use Moose;

sub chained {
    __PACKAGE__->new();
}

sub AUTOLOAD {
    my $self = shift;
    my $name = our $AUTOLOAD;

clkao

commit bef3ee559c86026c74c1bf935b0fc97819166198
Author: Chia-liang Kao <[email protected]>
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

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.