view release on metacpan or  search on metacpan

lib/Farly/Object/Aggregate.pm  view on Meta::CPAN

186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
        if ( $object->matches($search) ) {
            return $object->get('__AGG__');
        }
    }
 
    #return an empty List on no match
    return Farly::Object::List->new();
}
 
# input = search object and new __AGG__
sub update {
    my ( $self, $search, $list ) = @_;
 
    confess "Farly::Object::List required"
      unless defined($list);
 
    confess "Farly::Object::List required"
      unless $list->isa('Farly::Object::List');
 
    foreach my $object ( $self->iter() ) {
        if ( $object->matches($search) ) {