The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
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;