File Coverage

blib/lib/Office365/EWS/Client.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

use strict;
use warnings;
package Office365::EWS::Client;
use Moose;
use Office365::EWS::Client::GAL;
extends 'EWS::Client';
with qw/
    Office365::EWS::Client::Role::SOAP
    Office365::EWS::Client::Role::FindPeople
    Office365::EWS::GAL::Role::Reader
/;
has gal => (
    is => 'ro',
    isa => 'Office365::EWS::Client::GAL',
    lazy_build => 1,
);
sub _build_gal {
    my $self = shift;
    return Office365::EWS::Client::GAL->new({ client => $self });
}
no Moose;
1;

# ABSTRACT: Office 365 Exchange Web Services client

__END__

=pod

=encoding UTF-8

=head1 NAME

Office365::EWS::Client - Office 365 Exchange Web Services client

=head1 VERSION

version 1.142410

=head1 SYNOPSIS

Set up your Office 365 Exchange Web Services client.

 use Office365::EWS::Client;
 use DateTime;

 my $ews = Office365::EWS::Client->new({
     server         => 'pod12345.outlook.com',
     username       => '[e-mail]',
     password       => 's3krit', # or set in $ENV{EWS_PASS}
 });

Then perform operations on the Exchange server:

 my $entries = $ews->calendar->retrieve({
     start => DateTime->now(),
     end   => DateTime->now->add( months => 1 ),
 });

 print "I retrieved ". $entries->count ." items\n";

 while ($entries->has_next) {
     print $entries->next->Subject, "\n";
 }

 my $contacts = $ews->contacts->retrieve;

 my $gal = $ews->gal->retrieve( { querystring => "John Doe" } );
 if ( $gal->count() > 0 ) {
   while ($gal->has_next) {
     my $entry = $gal->next;
     print $entry->DisplayName, "\n";
     print $entry->EmailAddress->{EmailAddress}, "\n\n";
   }
 }

=head1 DESCRIPTION

This module acts as a client to the Office 365 Exchange Web Services API. From
here you can access calendar and contact entries using the capabilities of
L<EWS::Client>.

=head1 AUTHOR

Jesse Thompson <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2014 by Jesse Thompson.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut