]);
$_->destroy for @$objects;
-
- # get reports for the active session that aren't the latest
- $objects = $self->get_all(
- query => [ session_id => $::auth->get_session_id, ],
- sort_by => [ 'id' ],
- );
-
- # skip the last one
- for (0 .. $#$objects - 1) {
- $objects->[$_]->destroy;
- }
}
1;
-