File Coverage

blib/lib/EWS/Contacts/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::Contacts::ResultSet;
BEGIN {
  $EWS::Contacts::ResultSet::VERSION = '1.143070';
}
use Moose;
use MooseX::Iterator;

use EWS::Contacts::Item;

has items => (
    is => 'ro',
    isa => 'ArrayRef[EWS::Contacts::Item]',
    required => 1,
);

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

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

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

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->items );
}

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