Changeset 570

Timestamp:

01/05/10 08:13:33 (14 years ago)

Author:

nanardon

Message:

• cache some schema data, taking care to delete cache on commit/rollback

Location:

LATMOS-Accounts/lib/LATMOS/Accounts/Bases

Files:

• Sql.pm (modified) (2 diffs)
• Sql/objects.pm (modified) (4 diffs)

LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm

@@ -98 +98 @@
         $self->log(LA_DEBUG, 'DB::COMMIT');
     }
+    $self->{__cache} = undef;
     $self->db->commit;
 }
@@ -109 +110 @@
         $self->log(LA_DEBUG, 'DB::ROLLBACK');
     }
+    $self->{__cache} = undef;
     $self->db->rollback;
 }

LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/objects.pm

@@ -91 +91 @@
 sub _inline_fields {
     my ($self, $for, $base) = @_;
+    if ($base->{__cache}{$self->object_table}) {
+        return %{$base->{__cache}{$self->object_table}};
+    }
     my @res;
     my $sth = $base->db->prepare(
@@ -105 +108 @@
     }
     my %fields = map { $_ => $_ } @res;
+    $base->{__cache}{$self->object_table} = \%fields;
     %fields
 }
@@ -122 +126 @@
     my @attr;
     if ($class->has_extended_attributes) {
+        if ($base->{__cache}{_extended_field}{$class}) {
+            return map { $_ => $_ }
+               @{$base->{__cache}{_extended_field}{$class}};
+        }
         my $sth = $base->db->prepare_cached(
             sprintf(
@@ -132 +140 @@
             push(@attr, $res->{canonical});
         }
+        $base->{__cache}{_extended_field}{$class} = \@attr;
         return map { $_ => $_ } @attr;
     } else {