File Coverage

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

Criterion	Covered	Total	%
statement	32	35	91.4
branch	2	4	50.0
condition			n/a
subroutine	10	11	90.9
pod	3	5	60.0
total	47	55	85.4

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]} : @_;
    bless {
        %args
    }, $class;
}

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__