HTTP::Request::Common output format.

[KSHYAMKUMAR]

while going through the HTTP::Request::Common module in cpan http://search.cpan.org/~ether/HTTP-Message-6.11/lib/HTTP/Request/Common.pm i came across the below output for some scripts. Could someone guide me on how to see the output in the format provided in the page ??

Code

 POST 'http://www.perl.org/survey.cgi',
       Content_Type => 'form-data',
       Content      => [ name  => 'Gisle Aas',
                         email => '[e-mail]',
                         gender => 'M',
                         born   => '1964',
                         init   => ["$ENV{HOME}/.profile"],
                       ]

Output

POST http://www.perl.org/survey.cgi
  Content-Length: 388
  Content-Type: multipart/form-data; boundary="6G+f"

  --6G+f
  Content-Disposition: form-data; name="name"

  Gisle Aas
  --6G+f
  Content-Disposition: form-data; name="email"

  [e-mail]
  --6G+f
  Content-Disposition: form-data; name="gender"

[Your Mother]

# Piece of pie; easy as cake :P
my $post = POST ...
print $post->as_string, $/;

[KSHYAMKUMAR]

Thanks. Could you suggest how to achive this using REST::Client POST request as well?

use strict;
use warnings;
use REST::Client;
use Data::Dumper;


my $server = '...';
my $port = '...';
my $path = '/cdx/abc/gsa/deliverables';
my $application_id = '...';
my $application_password = '...';
my $host = 'localhost';

my %fields = (
  deliverable_file => ["$ENV{PWD}/sample.xml"],
  data_transaction_code => "SOA",
  file_name => "RRR-xxxxxxxxxx.mmddyyyy-hhmmss.ext",
  agency_task_order_parameter => "12345667890",
  contractor_service_request_number => "123456780123456789" ,
  deliverable_type => "Notification",
  data_transaction_file_date => "2016-01-21",
  tags => ["tagSample1", "tagSample2"]
);

my $url = "http://$host:$port/cdx/abc/gsa/deliverables";

#print Dumper(\@INC) . "\n";
my $client = REST::Client->new();
# add the headers '-H' lines
$client->addHeader('ABC_APP_ID', $application_id);
$client->addHeader('IABC_APP_PASSWORD',   $application_password);
 $client->addHeader('Content-Type', 'form-data' );
 # add the fields '-F' lines
 print( $client->buildQuery(%fields));
 $client->POST($url);

[Your Mother]

And if you are planning to use that in more than one or two places, I'd monkey patch it so it's easier to maintain, and maybe submit a patch to the author–

use REST::Client;
sub REST::Client::response { +shift->{_res} }

my $uri = "...";
my $client = REST::Client->new();
# ...some setup...
print $client->POST($uri)
    ->response
    ->request
    ->as_string;

Update, shortened call to what is available by removing the ->request

Update to update, lengthened call to what was there before because it was right. :P

[Your Mother]

The module doesn't afford what you want but it's in there if you dig it out.

# Ewwwwwwwwwwww...
print $client->{_res}->request->as_string, $/;