File Coverage

blib/lib/Prophet/Collection.pm

Criterion	Covered	Total	%
statement	18	30	60.0
branch	0	4	0.0
condition			n/a
subroutine	6	10	60.0
pod	3	3	100.0
total	27	47	57.4

package Prophet::Collection;
use Any::Moose;
use Params::Validate;
use Prophet::Record;

use overload '@{}' => sub { shift->items }, fallback => 1;
use constant record_class => 'Prophet::Record';

has app_handle => (
    is  => 'rw',
    isa => 'Prophet::App|Undef',
    required => 0,
    trigger => sub {
        my ($self, $app) = @_;
        $self->handle($app->handle);
    },
);

has handle => (
    is  => 'rw',
    isa => 'Prophet::Replica',
);

has type => (
    is      => 'rw',
    isa     => 'Str',
    lazy    => 1,
    default => sub {
        my $self = shift;
        $self->record_class->new(app_handle => $self->app_handle)->record_type;
    },
);

has items => (
    is         => 'rw',
    isa        => 'ArrayRef',
    default    => sub { [] },
    auto_deref => 1,
);

sub count    { scalar @{ $_[0]->items } }
sub add_item {
    my $self = shift;
    push @{ $self->items }, @_;
}

=head1 NAME

Prophet::Collection

=head1 DESCRIPTION

This class allows the programmer to search for L
objects matching certain criteria and to operate on those records
as a collection.

=head1 METHODS

=head2 new { handle => L, type => $TYPE }

Instantiate a new, empty L object to find items of type
C<$TYPE>.

=head2 matching $CODEREF

Find all Ls of this collection's C where $CODEREF
returns true.

=cut

sub matching {
    my $self    = shift;
    my $coderef = shift;
    # return undef unless $self->handle->type_exists( type => $self->type );
    # find all items,
    Carp::cluck unless defined $self->type;

    my $records = $self->handle->list_records( record_class => $self->record_class, type => $self->type );

    # run coderef against each item;
    # if it matches, add it to items
    for my $record (@$records) {
        $self->add_item($record) if ( $coderef->($record) );
    }

    # XXX TODO return a count of items found

}

=head2 items

Returns a reference to an array of all the items found

=head2 add_item

=head2 count

=cut

__PACKAGE__->meta->make_immutable;
no Any::Moose;

1;