anchor.diff:  		_ -> error
   	end.
   
  +%%
  +%% Copy an object from one container to another
  +%%
   copy_object(State, SourceContainer, SourceObject, DestinationContainer, DestinationObject) ->
   	Headers = [{"Destination", DestinationContainer ++ "/" ++ DestinationObject}],
   	{ok, Code, _Header, _Content} = send_authed_query(State, "/" ++ SourceContainer ++ "/" ++ SourceObject, Headers, copy),
   
  -	io:format("Code: ~p~n", [Code]),
   	case list_to_integer(Code) of
   		201 -> ok;
   		404 -> {error, does_not_exist};
   		_ -> error
   	end.
   
  +%%
  +%% Move an object from one container to another
  +%%
   move_object(State, SourceContainer, SourceObject, DestinationContainer, DestinationObject) ->
   	case copy_object(State, SourceContainer, SourceObject, DestinationContainer, DestinationObject) of
   		ok -> delete_object(State, SourceContainer, SourceObject);
   		_ -> error
   	end.
   
  +%%
  +%% delete an object from a container
  +%%
   delete_object(State, Container, Object) ->
   	{ok, Code, _Header, _Content} = send_authed_query(State, "/" ++ Container ++ "/" ++ Object, delete),
   
  
positive.code: 		_ -> {error, Content}
  	end.
  
  get_object(State, Container, Object) ->
  	{ok, Code, Header, Content} = send_authed_query(State, "/" ++ Container ++ "/" ++ Object, get),
  
  
negative.code: 		_ -> error
  	end.
  
  %%
  %% Create an object with passed binary data
  %% 
  create_object(State, Container, Object, Data) ->
  	create_object(State, Container, Object, Data, [], []).
  
  %%
  %% Create an object with passed binary data and any Metadata
  %%
  create_object(State, Container, Object, Data, Metadata) ->
  	create_object(State, Container, Object, Data, Metadata, []).
  
  %%
  %% Create an object with passed binary data, Metatdata, and any passed options
  %%
  create_object(State, Container, Object, Data, Metadata, Options) ->
  	%get any options that will be passed to ibrowse (chunked etc.)
  	ConnOptions = get_object_options(Options),
  