From 96fd49218a5c3676725c490b0b9f9873efac8e04 Mon Sep 17 00:00:00 2001 From: Rene Krenn Date: Fri, 3 Feb 2023 13:54:40 +0100 Subject: [PATCH] MT#56555 OAuth2: EWS SOAP GetAttachment implementation Client generator role for the EWS "GetAttachment" SOAP method. Change-Id: Ia5ec78cbfd5798fcf094292fef0739740f59fc7e (cherry picked from commit fa1dcafe9c2d5d762af19142fad4c615accad9b4) --- .../EWS/Client/Role/GetAttachment.pm | 25 +++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 lib/NGCP/BulkProcessor/Downloaders/EWS/Client/Role/GetAttachment.pm diff --git a/lib/NGCP/BulkProcessor/Downloaders/EWS/Client/Role/GetAttachment.pm b/lib/NGCP/BulkProcessor/Downloaders/EWS/Client/Role/GetAttachment.pm new file mode 100644 index 0000000..0abd6f5 --- /dev/null +++ b/lib/NGCP/BulkProcessor/Downloaders/EWS/Client/Role/GetAttachment.pm @@ -0,0 +1,25 @@ +package EWS::Client::Role::GetAttachment; +use strict; +use warnings; +BEGIN { + $EWS::Client::Role::GetAttachment::VERSION = '1.143070'; +} +use Moose::Role; + +has GetAttachment => ( + is => 'ro', + isa => 'CodeRef', + lazy_build => 1, +); + +sub _build_GetAttachment { + my $self = shift; + return $self->wsdl->compileClient( + operation => 'GetAttachment', + transport => $self->transporter->compileClient( + action => 'http://schemas.microsoft.com/exchange/services/2006/messages/GetAttachment' ), + ); +} + +no Moose::Role; +1; \ No newline at end of file