1 package DBIx::Data::Collection::Set;
4 use Method::Signatures::Simple;
5 use Data::Perl::Stream::Array;
7 has _store => (is => 'ro', required => 1, init_arg => 'store');
9 has _class => (is => 'ro', predicate => '_has_class');
11 has _member_cache => (is => 'rw', lazy_build => 1);
13 method _build__member_cache {
14 my $stream = $self->_new_raw_stream;
16 while (my ($raw) = $stream->next) {
17 push @cache, $self->_inflate($raw);
22 method _new_raw_stream {
23 $self->_store->new_select_command([])->execute;
26 method _inflate ($raw) {
27 bless($raw, $self->_class) if $self->_has_class;
32 @{$self->_member_cache};
36 Data::Perl::Stream::Array->new(array => $self->_member_cache);