File Coverage

blib/lib/EWS/DistributionList/ResultSet.pm

Criterion	Covered	Total	%
statement	13	24	54.1
branch	0	2	0.0
condition			n/a
subroutine	5	8	62.5
pod	1	2	50.0
total	19	36	52.7

package EWS::DistributionList::ResultSet;
BEGIN {
  $EWS::DistributionList::ResultSet::VERSION = '1.143070';
}
use Moose;
use MooseX::Iterator;

use EWS::DistributionList::Mailbox;

has mailboxes => (
    is       => 'ro',
    isa      => 'ArrayRef[EWS::DistributionList::Mailbox]',
    required => 1,
);

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

    # promote hashes returned from Exchange into Item objects
    $params->{mailboxes} = [ map { EWS::DistributionList::Mailbox->new($_) } @{ $params->{mailboxes} } ];
    return $params;
}

sub count {
    my $self = shift;
    return scalar @{ $self->mailboxes };
}

has iterator => (
    is      => 'ro',
    isa     => 'MooseX::Iterator::Array',
    handles => [
        qw/
            next
            has_next
            peek
            reset
            /
    ],
    lazy_build => 1,
);

sub _build_iterator {
    my $self = shift;
    return MooseX::Iterator::Array->new( collection => $self->mailboxes );
}

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