File Coverage

blib/lib/Ark/Plugin/ReproxyCallback.pm

Criterion	Covered	Total	%
statement	15	26	57.6
branch	0	8	0.0
condition			n/a
subroutine	5	6	83.3
pod	0	1	0.0
total	20	41	48.7

package Ark::Plugin::ReproxyCallback;
use 5.008001;
use strict;
use warnings;

our $VERSION = "0.02";

use Ark::Plugin;

use URI;

sub reproxy {
    my $c = shift;
    my $args = @_ > 1 ? {@_} : $_[0];
    my $res  = $c->response;

    if (my $req = $args->{request}) {
        $res->header('X-Reproxy-Method' => $req->method);
        $res->header('X-Reproxy-URL'    => $req->uri);
        for my $h ($req->headers->header_field_names) {
            $res->header('X-Reproxy-Header-' . $h => $req->header($h));
        }
    }

    if (my $callback = $args->{callback}) {
        $res->header('X-Reproxy-Callback' => $callback);
    }

    $res->body('') unless $res->has_body;
}

after prepare_action => sub {
    my $c = shift;

    if (my $uri = $c->request->header('X-Reproxy-Original-URL')) {
        $c->request->header('X-Reproxy-Callback-URL' => $c->request->uri );
        $c->request->uri(URI->new($uri));
    }
};

1;
__END__