From a83905eac1261405b3ac64bdebde99537b196ec5 Mon Sep 17 00:00:00 2001
From: Don Lewis <dl-fsi@catspoiler.org>
Date: Tue, 26 Jun 2018 19:23:26 -0700
Subject: [PATCH] Add createHdr() method which allows a header to be passed to
 the Salesforce create API.

---
 README.md             | 10 +++++++++
 lib/WWW/Salesforce.pm | 51 +++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 61 insertions(+)

diff --git a/README.md b/README.md
index 34b00ce..9aaab2c 100644
--- a/README.md
+++ b/README.md
@@ -143,6 +143,16 @@ the envelope result.
 $r->envelope->{Body}->{createResponse}->{result}->{success};
 ```
 
+## createHdr( header, HASH )
+
+Adds one new individual objects to your organization's data with the specfied header. This takes as input the header and a HASH containing the fields (the keys of the hash) and the values of the record you wish to add to your organization.
+The hash must contain the 'type' key in order to identify the type of the record to add.
+
+Returns a SOAP::Lite object.  Success of this operation can be gleaned from
+the envelope result.
+
+    $r->envelope->{Body}->{createResponse}->{result}->{success};
+
 ## delete( ARRAY )
 
 Deletes one or more individual objects from your organization's data.
diff --git a/lib/WWW/Salesforce.pm b/lib/WWW/Salesforce.pm
index de0b86e..299b86c 100644
--- a/lib/WWW/Salesforce.pm
+++ b/lib/WWW/Salesforce.pm
@@ -295,6 +295,57 @@ sub create {
 }
 
 
+=head2 createHdr( header, HASH )
+
+Adds one new individual objects to your organization's data with the specfied header. This takes as input the header and a HASH containing the fields (the keys of the hash) and the values of the record you wish to add to your organization.
+The hash must contain the 'type' key in order to identify the type of the record to add.
+
+Returns a SOAP::Lite object.  Success of this operation can be gleaned from
+the envelope result.
+
+    $r->envelope->{Body}->{createResponse}->{result}->{success};
+
+=cut
+
+sub createHdr {
+    my $self = shift;
+    my $header = shift ->uri($SF_URI);
+    my (%in) = @_;
+
+    if ( !keys %in ) {
+        die("Expected a hash of arrays.");
+    }
+    my $client = $self->_get_client(1);
+    my $method =
+      SOAP::Data->name("create")->prefix($SF_PREFIX)->uri($SF_URI)
+      ->attr( { 'xmlns:sfons' => $SF_SOBJECT_URI } );
+
+    my $type = $in{'type'};
+    delete( $in{'type'} );
+
+    my @elems;
+    foreach my $key ( keys %in ) {
+        push @elems,
+          SOAP::Data->prefix('sfons')->name( $key => $in{$key} )
+          ->type( WWW::Salesforce::Constants->type( $type, $key ) );
+    }
+
+    my $r = $client->call(
+        $method => SOAP::Data->name( 'sObjects' => \SOAP::Data->value(@elems) )
+          ->attr( { 'xsi:type' => 'sfons:' . $type } ),
+        $self->_get_session_header(),
+        $header
+    );
+    unless ($r) {
+        die "could not call method $method";
+    }
+    if ( $r->fault() ) {
+        die( $r->faultstring() );
+    }
+    return $r;
+}
+
+
 =head2 delete( ARRAY )
 
 Deletes one or more individual objects from your organization's data.