cvsuser 05/03/31 12:04:02
Modified: App-Repository/lib/App/SessionObject RepositoryObjectSet.pm
Log:
rename _check_age() to _clear_cache_if_objects_expired()
Revision Changes Path
1.5 +7 -7
p5ee/App-Repository/lib/App/SessionObject/RepositoryObjectSet.pm
Index: RepositoryObjectSet.pm
===================================================================
RCS file:
/cvs/public/p5ee/App-Repository/lib/App/SessionObject/RepositoryObjectSet.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- RepositoryObjectSet.pm 31 Mar 2005 13:57:24 -0000 1.4
+++ RepositoryObjectSet.pm 31 Mar 2005 20:04:01 -0000 1.5
@@ -1,6 +1,6 @@
#############################################################################
-## $Id: RepositoryObjectSet.pm,v 1.4 2005/03/31 13:57:24 spadkins Exp $
+## $Id: RepositoryObjectSet.pm,v 1.5 2005/03/31 20:04:01 spadkins Exp $
#############################################################################
package App::SessionObject::RepositoryObjectSet;
@@ -57,7 +57,7 @@
&App::sub_exit() if ($App::trace);
}
-sub _check_age {
+sub _clear_cache_if_objects_expired {
&App::sub_entry if ($App::trace);
my ($self, $options) = @_;
if (defined $options->{max_age} && $self->{objects}) {
@@ -138,7 +138,7 @@
$key_name ||= "ie1";
my $key_columns = shift;
- $self->_check_age($options) if (defined $options->{max_age} &&
$self->{objects});
+ $self->_clear_cache_if_objects_expired($options) if (defined
$options->{max_age} && $self->{objects});
my $index = $self->{index}{$key_name};
if (!$index) {
@@ -175,7 +175,7 @@
$key_name ||= "ak1";
my $key_columns = shift;
- $self->_check_age($options) if (defined $options->{max_age} &&
$self->{objects});
+ $self->_clear_cache_if_objects_expired($options) if (defined
$options->{max_age} && $self->{objects});
my $unique_index = $self->{unique_index}{$key_name};
if (!$unique_index) {
@@ -200,7 +200,7 @@
&App::sub_entry if ($App::trace);
my ($self, $column, $options) = @_;
- $self->_check_age($options) if (defined $options->{max_age} &&
$self->{objects});
+ $self->_clear_cache_if_objects_expired($options) if (defined
$options->{max_age} && $self->{objects});
my $values = $self->{column_values}{$column};
if (!$values) {
@@ -235,7 +235,7 @@
my $key_name = ref($_[0]) ? "ak1" : shift;
my $key_columns = shift;
- $self->_check_age($options) if (defined $options->{max_age} &&
$self->{objects});
+ $self->_clear_cache_if_objects_expired($options) if (defined
$options->{max_age} && $self->{objects});
my $unique_index = $self->get_unique_index($key_name, $key_columns);
my $object = $unique_index->{$key};
@@ -256,7 +256,7 @@
my $key_name = ref($_[0]) ? "ie1" : shift;
my $key_columns = shift;
- $self->_check_age($options) if (defined $options->{max_age} &&
$self->{objects});
+ $self->_clear_cache_if_objects_expired($options) if (defined
$options->{max_age} && $self->{objects});
my ($objects);
if ($key) {
