paste.perl

        my $paginator = $self->entryClass->getPaginator($self);
        foreach my $entryProperties ( @{ $paginator->getPageData} ) {
            my $entry = $self->entryClass->new($self);
            $entry->setFromHash($entryProperties);
            my $entryData = $entry->fields;
            for my $field (@{ $fields }) {
                my $form = $self->_createForm($fieldConfig->{$field}, $entryData->{$field});
                if ($form->can('getStorageLocation')) {
                    my $storage = $form->getStorageLocation;
                    $storage->delete if $storage;
                }
            }
        }