|
Lines 167-183
sub search_related {
Link Here
|
| 167 |
=cut |
167 |
=cut |
| 168 |
|
168 |
|
| 169 |
sub delete { |
169 |
sub delete { |
| 170 |
my ($self) = @_; |
170 |
my ( $self, $params ) = @_; |
| 171 |
|
171 |
|
| 172 |
if ( Class::Inspector->function_exists( $self->object_class, 'delete' ) ) { |
172 |
if ( Class::Inspector->function_exists( $self->object_class, 'delete' ) ) { |
| 173 |
my $objects_deleted; |
173 |
my $objects_deleted; |
| 174 |
$self->_resultset->result_source->schema->txn_do( sub { |
174 |
$self->_resultset->result_source->schema->txn_do( |
| 175 |
$self->reset; # If we iterated already over the set |
175 |
sub { |
| 176 |
while ( my $o = $self->next ) { |
176 |
$self->reset; # If we iterated already over the set |
| 177 |
$o->delete; |
177 |
while ( my $o = $self->next ) { |
| 178 |
$objects_deleted++; |
178 |
$o->delete($params); |
|
|
179 |
$objects_deleted++; |
| 180 |
} |
| 179 |
} |
181 |
} |
| 180 |
}); |
182 |
); |
| 181 |
return $objects_deleted; |
183 |
return $objects_deleted; |
| 182 |
} |
184 |
} |
| 183 |
|
185 |
|
| 184 |
- |
|
|