CPAN::Groonga

pan:TOBYINK';
	$Plack::Middleware::Auth::Bitcard::VERSION   = '0.002';
}

use Carp;
use JSON qw(to_json from_json);
use Plack::Response;
use Plack::Request;
use Plack::Util;
use Plack::Util::Accessor 

ard->api_secret . $user->{username});
		$res->cookies->{bitcard} = to_json($user);
	}
	else
	{
		$res->cookies->{bitcard} = to_json({});
	}
	$req->cookies->{bitcard_return_to} = { value => "-" };
	ret

$self = shift;
	my ($req, $env) = @_;
	
	return unless $req->cookies->{bitcard};
	my $user = from_json($req->cookies->{bitcard});
	
	return unless $user->{username};
	return unless sha1_hex($self->bit