Add basic auth

Author: elpete

models/HyperRequest.cfc

@@ -1,9 +1,11 @@
 component accessors="true" {
 
+    property name="baseUrl" default="";
     property name="url" default="";
     property name="method" default="GET";
+    property name="username" default="";
+    property name="password" default="";
     property name="maximumRedirects" default="*";
-    property name="baseUrl" default="";
     property name="body" default="";
     property name="bodyFormat" default="json";
     property name="referrer";
@@ -90,6 +92,12 @@ component accessors="true" {
         return variables.headers.keyExists( lcase( name ) );
     }
 
+    function withBasicAuth( username, password ) {
+        setUsername( username );
+        setPassword( password );
+        return this;
+    }
+
     function setProperties( properties = {} ) {
         properties.each( function( key, value ) {
             invoke( this, "set#key#", { 1 = value } );
@@ -180,7 +188,9 @@ component accessors="true" {
             result = "local.res",
             url = getFullUrl(),
             method = getMethod(),
-            redirect = false
+            redirect = false,
+            username = getUsername(),
+            password = getPassword()
         ) {
             for ( var name in variables.headers ) {
                 cfhttpparam(