use strict;
use warnings;
use lib 'lib';

use Data::Dumper;
use YAML;
use HTTP::Engine;
use String::TT qw( tt );

HTTP::Engine->new(%{ YAML::LoadFile('config.yaml') })->run;

my %karma = {};
sub handle_request {
    my $c = shift;
    _handle_request($c, @_);

    use bytes;
    warn sprintf('%s /%s %s %s', $c->req->method, $c->req->path, $c->res->status, length($c->res->body));
}

sub _handle_request {
    my $c = shift;

    my $method             = $c->req->method;
    my($name, $karma, $pm) = split '/', $c->req->path;

    if ($method eq 'POST') {
        $karma ||= '';
        $pm    ||= '';
        if ($name && $karma eq 'karma' && ( $pm eq 'plus' || $pm eq 'minus' )) {
            $karma{$name} ||= { plus => 0, minus => 0 };
            $karma{$name}->{$pm}++;
        } else {
            $c->res->body('403');
            $c->res->status('403');
            return;
        }
    } elsif ($method eq 'GET' || $method eq 'HEAD') {
        unless ($karma{$name}) {
            $c->res->body('404');
            $c->res->status('404');
            return;
        }
    } else {
        $c->res->body('400');
        $c->res->status('400');
        return;
    }
    my $body = Dump($karma{$name});
    $c->res->body(tt '[% body | html %]');
}