-sub _fold_status {
- my ($self) = @_;
-
- $self->{folded_status} = [];
-
- for my $status_obj (@{ $self->status }) {
- $self->{folded_status}->[ $status_obj->row ] ||= {};
- $self->{folded_status}->[ $status_obj->row ]{information} ||= [];
- $self->{folded_status}->[ $status_obj->row ]{errors} ||= [];
- push @{ $self->{folded_status}->[ $status_obj->row ]{ $status_obj->type } }, $status_obj->value;
- }