File Coverage

blib/lib/EWS/DistributionList/Mailbox.pm

Criterion	Covered	Total	%
statement	10	17	58.8
branch	0	4	0.0
condition			n/a
subroutine	4	5	80.0
pod	1	1	100.0
total	15	27	55.5

package EWS::DistributionList::Mailbox;
BEGIN {
  $EWS::DistributionList::Mailbox::VERSION = '1.143070';
}
use Moose;
use Encode;

has Name => (
    is       => 'ro',
    isa      => 'Str',
    required => 1,
);

has EmailAddress => (
    is       => 'ro',
    isa      => 'Str',
    required => 1,
);

has MailboxType => (
    is  => 'ro',
    isa => 'Str',
);

has RoutingType => (
    is  => 'ro',
    isa => 'Str',
);

sub BUILDARGS {
    my ( $class, @rest ) = @_;
    my $params = ( scalar @rest == 1 ? $rest[0] : {@rest} );

    foreach my $key ( keys %{$params} ) {
        if ( not ref $params->{$key} ) {
            $params->{$key} = Encode::encode( 'utf8', $params->{$key} );
        }
    }

    return $params;
}

__PACKAGE__->meta->make_immutable;
no Moose;
1;