+ my $rec = $data->{items}->[ $id ];
+ $rec->{_row_id} ||= $id;
+ if ( $code ) {
+ $rec = Storable::dclone $rec;
+ eval $code;
+ if ( $@ ) {
+ warn "ERROR evaling\n$code\n$@";
+ undef $code;
+ $self->stash('eval_error', $@) if $@;
+ } else {
+ warn "EVAL $code ",dump($rec);
+ }
+ }
+ push @$sorted_items, $rec;