Added examples/getinfo.p6 to read the content-type

examples/getinfo.p6

@@ -0,0 +1,28 @@
+#!/usr/bin/env perl6
+use v6;
+
+BEGIN { @*INC.push('lib') };
+
+use Net::Curl;
+use NativeCall;
+
+my $curl = curl_easy_init;
+die "Failed to curl_easy_init" unless $curl;
+
+curl_easy_setopt($curl, CURLOPT_URL, 'http://www.example.com/');
+
+my $res = curl_easy_perform($curl);
+
+if CURLE_OK == $res {
+
+	# ask for the content-type
+	my $ct = CArray[int].new;
+	$res = curl_easy_getinfo($curl, CURLINFO_CONTENT_TYPE, $ct);
+
+    if (CURLE_OK == $res) && $ct {
+        printf("We received Content-Type: %s\n", $ct);
+    }
+
+    # always cleanup
+    curl_easy_cleanup($curl);
+}

lib/Net/Curl.pm6

@@ -7,8 +7,11 @@ use NativeCall;
 
 constant LIB = 'libcurl.so';
 
-constant CURLOPT_URL is export = 10002;
-constant CURLE_OK    is export = 0;
+
+constant CURLINFO_STRING                  = 0x100000;
+constant CURLOPT_URL is export            = 10002;
+constant CURLE_OK    is export            = 0;
+constant CURLINFO_CONTENT_TYPE is export  = CURLINFO_STRING + 18;
 
 # Start a libcurl easy session 
 sub curl_easy_init() 
@@ -44,3 +47,9 @@ sub curl_easy_version()
 	is native(LIB)
 	is export { ... };
 
+# Extract information from a curl handle
+sub curl_easy_getinfo(OpaquePointer, int, CArray[int])
+	returns int
+	is native(LIB)
+	is export { ... };
+