File Coverage

blib/lib/Plack/Middleware/Curlizer.pm

Criterion	Covered	Total	%
statement	38	41	92.6
branch	6	8	75.0
condition	1	3	33.3
subroutine	9	10	90.0
pod	2	2	100.0
total	56	64	87.5

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

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

our $VERSION = '0.02';

sub prepare_app {
    my ($self) = @_;

    unless ($self->callback) {
        $self->callback(sub{
            my ($curl) = @_;
            print "$curl\n";
        });
    }
}

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__