]> Dogcows Code - chaz/p5-DBIx-Class-ResultSet-RecursiveUpdate/commitdiff
rename $related_result -> $related_resultset
authorAlexander Hartmaier <alexander.hartmaier@t-systems.at>
Mon, 4 Oct 2010 11:46:44 +0000 (13:46 +0200)
committerAlexander Hartmaier <alexander.hartmaier@t-systems.at>
Mon, 4 Oct 2010 11:46:44 +0000 (13:46 +0200)
lib/DBIx/Class/ResultSet/RecursiveUpdate.pm

index 95813ca963c45e0f9add39dea9bdc18bcb3bc8eb..04685e7a63fbad39516c80ed236291dd3bc58c21 100644 (file)
@@ -185,7 +185,8 @@ sub _get_columns_by_accessor {
 
 sub _update_relation {
     my ( $self, $name, $updates, $object, $info, $if_not_submitted ) = @_;
 
 sub _update_relation {
     my ( $self, $name, $updates, $object, $info, $if_not_submitted ) = @_;
-    my $related_result =
+    # get a related resultset without a condition
+    my $related_resultset =
         $self->related_resultset($name)->result_source->resultset;
     my $resolved;
     if ( $self->result_source->can('_resolve_condition') ) {
         $self->related_resultset($name)->result_source->resultset;
     my $resolved;
     if ( $self->result_source->can('_resolve_condition') ) {
@@ -208,15 +209,15 @@ sub _update_relation {
     # an arrayref is only valid for has_many rels
     if ( ref $updates eq 'ARRAY' ) {
         my @updated_ids;
     # an arrayref is only valid for has_many rels
     if ( ref $updates eq 'ARRAY' ) {
         my @updated_ids;
-        for my $sub_updates ( @{ $updates } ) {
+        for my $sub_updates ( @{$updates} ) {
             my $sub_object = recursive_update(
             my $sub_object = recursive_update(
-                resultset => $related_result,
+                resultset => $related_resultset,
                 updates   => $sub_updates,
                 resolved  => $resolved
             );
             push @updated_ids, $sub_object->id;
         }
                 updates   => $sub_updates,
                 resolved  => $resolved
             );
             push @updated_ids, $sub_object->id;
         }
-        my @related_pks = $related_result->result_source->primary_columns;
+        my @related_pks = $related_resultset->result_source->primary_columns;
         if ( defined $if_not_submitted && $if_not_submitted eq 'delete' ) {
 
             # only handles related result classes with single primary keys
         if ( defined $if_not_submitted && $if_not_submitted eq 'delete' ) {
 
             # only handles related result classes with single primary keys
@@ -248,21 +249,21 @@ sub _update_relation {
                 && defined $object->$name )
             {
                 $sub_object = recursive_update(
                 && defined $object->$name )
             {
                 $sub_object = recursive_update(
-                    resultset => $related_result,
+                    resultset => $related_resultset,
                     updates   => $updates,
                     object    => $object->$name
                 );
             }
             else {
                 $sub_object = recursive_update(
                     updates   => $updates,
                     object    => $object->$name
                 );
             }
             else {
                 $sub_object = recursive_update(
-                    resultset => $related_result,
+                    resultset => $related_resultset,
                     updates   => $updates,
                     resolved  => $resolved
                 );
             }
         }
         elsif ( !ref $updates ) {
                     updates   => $updates,
                     resolved  => $resolved
                 );
             }
         }
         elsif ( !ref $updates ) {
-            $sub_object = $related_result->find($updates)
+            $sub_object = $related_resultset->find($updates)
                 unless (
                 !$updates
                 && ( exists $info->{attrs}{join_type}
                 unless (
                 !$updates
                 && ( exists $info->{attrs}{join_type}
This page took 0.020905 seconds and 4 git commands to generate.