File Coverage

blib/lib/Email/Folder/Exchange.pm

Criterion	Covered	Total	%
statement	16	18	88.8
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	22	24	91.6

package Email::Folder::Exchange;
use base qw(Email::Folder);

use strict;
use warnings;

our $VERSION = '2.0';

use Email::Folder;
use Email::Folder::Exchange::WebDAV;
use Email::Folder::Exchange::EWS;
use Data::Dumper;

use URI;
use LWP::UserAgent;

sub new {
  my ($self, $class, $url, $username, $password) = ({}, @_);
	bless $self, $class;

	# try EWS first
	my $folder;
	eval {
		$folder = Email::Folder::Exchange::EWS->new($url, $username, $password);
	};
	if($@ =~ /Not Found/) {
	  # try WebDAV second
    $folder = Email::Folder::Exchange::WebDAV->new($url, $username, $password);
	}
	# re-raise
	die $@ if $@;

	return $folder;
}

1;

__END__