Gecko [ edgpens.lpkmn.gov.my ]

Name	Size	Permission
AbstractSearch.pm	1.09 KB	-rw-rw-rw-
AccessorMapping.pm	2.01 KB	-rw-rw-rw-
AttributeAPI.pm	668 B	-rw-rw-rw-
AutoUpdate.pm	900 B	-rw-rw-rw-
ColumnCase.pm	1.98 KB	-rw-rw-rw-
ColumnGroups.pm	4.43 KB	-rw-rw-rw-
ColumnsAsHash.pm	2.57 KB	-rw-rw-rw-
Constraints.pm	1.77 KB	-rw-rw-rw-
Constructor.pm	673 B	-rw-rw-rw-
Copy.pm	1.06 KB	-rw-rw-rw-
DestroyWarning.pm	451 B	-rw-rw-rw-
GetSet.pm	639 B	-rw-rw-rw-
ImaDBI.pm	3.85 KB	-rw-rw-rw-
Iterator.pm	1.59 KB	-rw-rw-rw-
LazyLoading.pm	2.84 KB	-rw-rw-rw-
LiveObjectIndex.pm	2.48 KB	-rw-rw-rw-
NoObjectIndex.pm	1.03 KB	-rw-rw-rw-
Pager.pm	499 B	-rw-rw-rw-
ReadOnly.pm	288 B	-rw-rw-rw-
Relationship.pm	1.08 KB	-rw-rw-rw-
Relationships.pm	5.45 KB	-rw-rw-rw-
Retrieve.pm	1.94 KB	-rw-rw-rw-
SQLTransformer.pm	3.16 KB	-rw-rw-rw-
Stringify.pm	451 B	-rw-rw-rw-
TempColumns.pm	2.2 KB	-rw-rw-rw-
Triggers.pm	971 B	-rw-rw-rw-

Code Editor : LiveObjectIndex.pm

package # hide from PAUSE
    DBIx::Class::CDBICompat::LiveObjectIndex;

use strict;
use warnings;

use Scalar::Util qw/weaken/;

use base qw/Class::Data::Inheritable/;

__PACKAGE__->mk_classdata('purge_object_index_every' => 1000);
__PACKAGE__->mk_classdata('live_object_index' => { });
__PACKAGE__->mk_classdata('live_object_init_count' => { });

# Caching is on by default, but a classic CDBI hack to turn it off is to
# set this variable false.
$Class::DBI::Weaken_Is_Available = 1
    unless defined $Class::DBI::Weaken_Is_Available;
__PACKAGE__->mk_classdata('__nocache' => 0);

sub nocache {
    my $class = shift;

return $class->__nocache(@_) if @_;

return 1 if $Class::DBI::Weaken_Is_Available == 0;
    return $class->__nocache;
}

# Ripped from Class::DBI 0.999, all credit due to Tony Bowden for this code,
# all blame due to me for whatever bugs I introduced porting it.

sub purge_dead_from_object_index {
  my $live = shift->live_object_index;
  delete @$live{ grep !defined $live->{$_}, keys %$live };
}

sub remove_from_object_index {
  my $self = shift;
  delete $self->live_object_index->{$self->ID};
}

sub clear_object_index {
  my $live = shift->live_object_index;
  delete @$live{ keys %$live };
}

# And now the fragments to tie it in to DBIx::Class::Table

sub insert {
  my ($self, @rest) = @_;
  $self->next::method(@rest);

return $self if $self->nocache;

# Because the insert will die() if it can't insert into the db (or should)
  # we can be sure the object *was* inserted if we got this far. In which
  # case, given primary keys are unique and ID only returns a
  # value if the object has all its primary keys, we can be sure there
  # isn't a real one in the object index already because such a record
  # cannot have existed without the insert failing.
  if (my $key = $self->ID) {
    my $live = $self->live_object_index;
    weaken($live->{$key} = $self);
    $self->purge_dead_from_object_index
      if ++$self->live_object_init_count->{count}
              % $self->purge_object_index_every == 0;
  }

return $self;
}

sub inflate_result {
  my ($class, @rest) = @_;
  my $new = $class->next::method(@rest);

return $new if $new->nocache;

if (my $key = $new->ID) {
    #warn "Key $key";
    my $live = $class->live_object_index;
    return $live->{$key} if $live->{$key};
    weaken($live->{$key} = $new);
    $class->purge_dead_from_object_index
      if ++$class->live_object_init_count->{count}
              % $class->purge_object_index_every == 0;
  }
  return $new;
}

${this.title}

Code Editor : LiveObjectIndex.pm