cvs commit: p5ee/App-Repository/lib/App/SessionObject RepositoryObjectSet.pm

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