File Coverage

blib/lib/Plack/Middleware/Curlizer.pm

Criterion	Covered	Total	%
statement	36	36	100.0
branch	5	6	83.3
condition	1	3	33.3
subroutine	8	8	100.0
pod	1	1	100.0
total	51	54	94.4

package Plack::Middleware::Curlizer;
use strict;
use warnings;

use String::ShellQuote qw/shell_quote/;
use Plack::Request;
use parent 'Plack::Middleware';
use Plack::Util::Accessor qw/
    callback
/;

our $VERSION = '0.01';

sub call {
    my($self, $env) = @_;

    my $req = Plack::Request->new($env);

    my $curl = $self->_build_curl_cmd($req);

    if ($self->callback && ref($self->callback) eq 'CODE') {
        $self->callback->($curl, $req, $env);
    }

    my $res = $self->app->($env);
}

sub _build_curl_cmd {
    my ($self, $req) = @_;

    my @cmd = ('curl', $req->uri);

    unless ($req->method eq 'GET') {
        push @cmd, '-X', $req->method;
    }

    my $http_header_str = $req->headers->as_string;
    my @headers = split "\n", $http_header_str;

    for my $h (@headers) {
        my ($k, $v) = split /:\s+/, $h;
        push @cmd, '-H', qq|$k: $v|;
    }

    if ($req->method eq 'POST') {
        push @cmd, '--data', $req->content;
    }

    return shell_quote @cmd;
}

1;

__END__