Patch for Issue #5, use Content-Type charset to decode content

lib/LibCurl/Easy.pm6

@@ -407,7 +407,18 @@ class LibCurl::Easy
         state $v = LibCurl::version.new.info
     }
 
-    method content($encoding = 'utf-8') returns Str { $!buf.decode($encoding) }
+    method content($encoding is copy = 'utf-8') returns Str
+    {
+        with self.receiveheaders<Content-Type>
+        {
+            # Should be a stricter grammar, but dump regex will work for now
+            if /charset \s* '=' \s* \\? <['"]>? (<-[\\"']>*) \\? <['"]>? /
+            {
+                $encoding = $0.Str;
+            }
+        }
+        $!buf.decode($encoding)
+    }
 
     method error() returns Str { nativecast(Str, $!errorbuffer) }
 

xt/04-content.t

@@ -0,0 +1,49 @@
+use v6;
+
+use Test;
+use Test::When <online>;
+
+use LibCurl::Easy;
+
+my $version = LibCurl::Easy.version;
+
+my $curl = LibCurl::Easy.new(URL => 'http://greenbytes.de/tech/tc/httpcontenttype/textplainutf8.asis')
+    .perform;
+
+is $curl.content, "Umlaute: äöüÄÖÜ Euro: €\n",
+    'Check decoded content, charset=UTF-8';
+
+
+$curl.URL('http://greenbytes.de/tech/tc/httpcontenttype/textplainutf8qs.asis')
+    .perform;
+
+is $curl.content, "Umlaute: äöüÄÖÜ Euro: €\n",
+    'Check decoded content, charset="UTF-8"';
+
+$curl.URL('http://greenbytes.de/tech/tc/httpcontenttype/textplainutf8ws.asis')
+    .perform;
+
+is $curl.content, "Umlaute: äöüÄÖÜ Euro: €\n",
+    'Check decoded content, charset = UTF-8';
+
+
+$curl.URL('http://greenbytes.de/tech/tc/httpcontenttype/textplainutf8qsa.asis')
+    .perform;
+
+is $curl.content, "Umlaute: äöüÄÖÜ Euro: €\n",
+    "Check decoded content, charset='UTF-8'";
+
+$curl.URL('http://greenbytes.de/tech/tc/httpcontenttype/textplainutf8extparam.asis')
+    .perform;
+
+is $curl.content, "Umlaute: äöüÄÖÜ Euro: €\n",
+    'Check decoded content, charset="UTF-8"';
+
+
+$curl.URL('http://greenbytes.de/tech/tc/httpcontenttype/textplainutf8extparamqs1.asis')
+    .perform;
+
+is $curl.content, "Umlaute: äöüÄÖÜ Euro: €\n",
+    'Check decoded content, charset=\"UTF-8\"';
+
+done-testing;