package Narwhal::RouteBuilder::HTTPMethod;
use Moose;

with 'OX::RouteBuilder';

sub compile_routes {
    my $self = shift;

    my $spec = $self->route_spec;
    my $params = $self->params;

    my ($defaults, $validations) = $self->extract_defaults_and_validations($params);
    $defaults = { %$spec, %$defaults };

    my $s = $self->service;

    return [
        $self->path,
        defaults    => $defaults,
        target      => sub {
            my ($req) = @_;

            my %match = %{ $req->env->{'plack.router.match'}->mapping };
            my $a = $match{action};
            my $component = $s->get_dependency($a)->get;
            my $method = lc($req->method);

            if ($component->can($method)) {
                return $component->$method(@_);
            }
            elsif ($component->can('any')) {
                return $component->any(@_);
            }
            else {
                return [
                    500,
                    [],
                    ["Component $component has no method $method"]
                ];
            }

        },
        validations => $validations,
    ];
}

sub parse_action_spec {
    my $self = shift;
    my ($action_spec) = @_;
    return if ref($action_spec);
    return unless $action_spec =~ /^http-method:(\w+)$/;
    return {
        action => $1,
    };
}

__PACKAGE__->meta->make_immutable;
no Moose;

1;