| 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 | -  |  |  |