Get method sends headers if provided

Fixes #14

META6.json

@@ -1,14 +1,15 @@
 {
-    "perl"        : "6.*",
-    "name"        : "LWP::Simple",
-    "version"     : "0.090",
-    "description" : "LWP::Simple quick & dirty implementation for Rakudo Perl 6",
-    "depends"     : [ "MIME::Base64", "URI" ],
-    "provides"    : {
+    "perl"         : "6.*",
+    "name"         : "LWP::Simple",
+    "version"      : "0.090",
+    "description"  : "LWP::Simple quick & dirty implementation for Rakudo Perl 6",
+    "depends"      : [ "MIME::Base64", "URI" ],
+    "test-depends" : [ "JSON::Tiny" ],
+    "provides"     : {
         "LWP::Simple" : "lib/LWP/Simple.pm"
     },
-    "author"      : "Cosimo Streppone",
-    "authority"   : "perl6",
-    "source-url"  : "git://github.com/perl6/perl6-lwp-simple.git"
+    "author"       : "Cosimo Streppone",
+    "authority"    : "perl6",
+    "source-url"   : "git://github.com/perl6/perl6-lwp-simple.git"
 }
 

lib/LWP/Simple.pm

@@ -29,7 +29,7 @@ method base64encode ($user, $pass) {
 }
 
 method get (Str $url, %headers = {}) {
-    self.request_shell(RequestType::GET, $url)
+    self.request_shell(RequestType::GET, $url, %headers)
 }
 
 method delete (Str $url, %headers = {}) {

t/get-headers.t

@@ -0,0 +1,24 @@
+use v6;
+use Test;
+
+use LWP::Simple;
+use JSON::Tiny;
+
+plan 2;
+
+if %*ENV<NO_NETWORK_TESTING> {
+    diag "NO_NETWORK_TESTING was set";
+    skip-rest("NO_NETWORK_TESTING was set");
+    exit;
+}
+
+my %headers =
+    "Accept"     => "application/json",
+    "User-Agent" => "Perl 6",
+;
+
+my $html = LWP::Simple.get('http://httpbin.org/get', %headers);
+my %json = from-json $html;
+
+is %json<headers><User-Agent>, "Perl 6", "User agent header is sent by GET";
+is %json<headers><Accept>, "application/json", "Accept header is sent by GET";