Select Code to Download

#!/usr/bin/perl
use strict;
...
$ perl restClient.pl
$VAR1 = 'Not a SCALAR reference at /usr/local/share/perl/5.22.1/LWP/Pr
+otocol/http.pm line 260.
';

package ClientRest;

...
}

1;

$ curl -u user:password -H "Content-Type: multipart/form-data" -H "Acc
+ept: application/json" -H "Expect:" -F file=@test.txt -X POST http://
+127.0.0.1:8000/upload/ | jq '.'
  % Total    % Received % Xferd  Average Speed   Time    Time     Time
+  Current
...
  "language": "perl",
  "style": "emacs"
}

$ perl restClient.pl
$VAR1 = 'Not a SCALAR reference at /usr/local/share/perl/5.22.1/LWP/Pr
+otocol/http.pm line 260.
';

else {
    # Set (or override) Content-Length header
...
    hlist_remove(\@h, 'Content-Length');
    }
}

my $headers = { "Content" => ['file' => [$options{file}]],
        "Content-type" => 'multipart/form-data',
        "Authorization" => 'Basic ' .
            encode_base64($options{username} . ':' . $options{password
+}) };

# module part
sub postSnippets {
...
          'url' => 'http://127.0.0.1:8000/snippets/2/',
          'owner' => 'user'
        };

$VAR1 = '{"detail":"Multipart form parse error - Invalid boundary in m
+ultipart: None"}';

sub postSnippetsFile {
    my ( $self, %options ) = @_;
...
                $headers );
    return $self->{_client}->responseContent();
}