File Coverage

blib/lib/HTTP/Body/Builder/UrlEncoded.pm

Criterion	Covered	Total	%
statement	38	41	92.6
branch	6	8	75.0
condition			n/a
subroutine	10	11	90.9
pod	3	5	60.0
total	57	65	87.6

package HTTP::Body::Builder::UrlEncoded;
use strict;
use warnings;
use utf8;
use 5.008_005;

use Carp ();
use URI;

sub new {
    my $class = shift;
    my %args = @_==1 ? %{$_[0]} : @_;
    my $content = delete $args{content};
    my $self = bless {
        %args
    }, $class;
    if ($content) {
        for my $key (keys %{$content}) {
            for my $value (ref $content->{$key} ? @{$content->{$key}} : $content->{$key}) {
                $self->add_content($key => $value);
            }
        }
    }
    return $self;
}

sub add_content {
    my ($self, $name, $value) = @_;
    push @{$self->{content}}, $name, $value;
}

sub content_type {
    my $self = shift;
    return 'application/x-www-form-urlencoded';
}

sub add_file {
    Carp::croak "You cannot add file with application/x-www-form-urlencoded.";
}

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

    my $uri = URI->new('http:');
    $uri->query_form($self->{content});
    my $content = $uri->query;

    # HTML/4.01 says that line breaks are represented as "CR LF" pairs (i.e., `%0D%0A')
    $content =~ s/(?
    $content;
}

1;
__END__