Gecko [ edgpens.lpkmn.gov.my ]

Name	Size	Permission
Admin	[ DIR ]	drwxrwxrwx
CDBICompat	[ DIR ]	drwxrwxrwx
ClassResolver	[ DIR ]	drwxrwxrwx
InflateColumn	[ DIR ]	drwxrwxrwx
Manual	[ DIR ]	drwxrwxrwx
Optional	[ DIR ]	drwxrwxrwx
PK	[ DIR ]	drwxrwxrwx
Relationship	[ DIR ]	drwxrwxrwx
ResultClass	[ DIR ]	drwxrwxrwx
ResultSet	[ DIR ]	drwxrwxrwx
ResultSource	[ DIR ]	drwxrwxrwx
ResultSourceProxy	[ DIR ]	drwxrwxrwx
SQLAHacks	[ DIR ]	drwxrwxrwx
SQLMaker	[ DIR ]	drwxrwxrwx
Schema	[ DIR ]	drwxrwxrwx
Serialize	[ DIR ]	drwxrwxrwx
Storage	[ DIR ]	drwxrwxrwx
.mad-root	0 B	-rw-rw-rw-
AccessorGroup.pm	1.33 KB	-rw-rw-rw-
Admin.pm	11.78 KB	-rw-rw-rw-
CDBICompat.pm	4.49 KB	-rw-rw-rw-
Carp.pm	4.98 KB	-rw-rw-rw-
Componentised.pm	2.2 KB	-rw-rw-rw-
Core.pm	1.34 KB	-rw-rw-rw-
Cursor.pm	1.94 KB	-rw-rw-rw-
DB.pm	5.9 KB	-rw-rw-rw-
Exception.pm	2.3 KB	-rw-rw-rw-
FilterColumn.pm	7.77 KB	-rw-rw-rw-
FilterColumn.pod	4.17 KB	-rw-rw-rw-
InflateColumn.pm	7.02 KB	-rw-rw-rw-
InflateColumn.pod	5.55 KB	-rw-rw-rw-
Manual.pod	1.74 KB	-rw-rw-rw-
Ordered.pm	26.18 KB	-rw-rw-rw-
PK.pm	3.3 KB	-rw-rw-rw-
PK.pod	2.96 KB	-rw-rw-rw-
Relationship.pm	21.54 KB	-rw-rw-rw-
ResultSet.pm	140.76 KB	-rw-rw-rw-
ResultSetColumn.pm	10.62 KB	-rw-rw-rw-
ResultSetManager.pm	3.25 KB	-rw-rw-rw-
ResultSetProxy.pm	997 B	-rw-rw-rw-
ResultSource.pm	66.33 KB	-rw-rw-rw-
ResultSourceHandle.pm	3.74 KB	-rw-rw-rw-
ResultSourceProxy.pm	1.88 KB	-rw-rw-rw-
Row.pm	44.7 KB	-rw-rw-rw-
SQLAHacks.pm	120 B	-rw-rw-rw-
SQLMaker.pm	6.35 KB	-rw-rw-rw-
Schema.pm	42.39 KB	-rw-rw-rw-
StartupCheck.pm	1.48 KB	-rw-rw-rw-
Storage.pm	15.52 KB	-rw-rw-rw-
UTF8Columns.pm	5.18 KB	-rw-rw-rw-
_Util.pm	10.77 KB	-rw-rw-rw-

Code Editor : ResultSourceHandle.pm

package DBIx::Class::ResultSourceHandle;

use strict;
use warnings;

use base qw/DBIx::Class/;

use Try::Tiny;
use namespace::clean;

use overload
    q/""/ => sub { __PACKAGE__ . ":" . shift->source_moniker; },
    fallback => 1;

__PACKAGE__->mk_group_accessors('simple' => qw/schema source_moniker _detached_source/);

# Schema to use when thawing.
our $thaw_schema;

=head1 NAME

DBIx::Class::ResultSourceHandle - Serializable pointers to ResultSource instances

=head1 DESCRIPTION

Currently instances of this class are used to allow proper serialization of
L<ResultSources|DBIx::Class::ResultSource> (which may contain unserializable
elements like C<CODE> references).

Originally this module was used to remove the fixed link between
L<Rows|DBIx::Class::Row>/L<ResultSets|DBIx::Class::ResultSet> and the actual
L<result source objects|DBIx::Class::ResultSource> in order to obviate the need
of keeping a L<schema instance|DBIx::Class::Schema> constantly in scope, while
at the same time avoiding leaks due to circular dependencies. This is however
no longer needed after introduction of a proper mutual-assured-destruction
contract between a C<Schema> instance and its C<ResultSource> registrants.

=head1 METHODS

=head2 new

=cut

sub new {
  my ($class, $args) = @_;
  my $self = bless $args, ref $class || $class;

unless( ($self->{schema} || $self->{_detached_source}) && $self->{source_moniker} ) {
    my $err = 'Expecting a schema instance and a source moniker';
    $self->{schema}
      ? $self->{schema}->throw_exception($err)
      : DBIx::Class::Exception->throw($err)
  }

$self;
}

=head2 resolve

Resolve the moniker into the actual ResultSource object

=cut

sub resolve {
  return $_[0]->{schema}->source($_[0]->source_moniker) if $_[0]->{schema};

$_[0]->_detached_source || DBIx::Class::Exception->throw( sprintf (
    # vague error message as this is never supposed to happen
    "Unable to resolve moniker '%s' - please contact the dev team at %s",
    $_[0]->source_moniker,
    DBIx::Class::_ENV_::HELP_URL,
  ), 'full_stacktrace');
}

=head2 STORABLE_freeze

Freezes a handle.

=cut

sub STORABLE_freeze {
  my ($self, $cloning) = @_;

my $to_serialize = { %$self };

delete $to_serialize->{schema};
  delete $to_serialize->{_detached_source};
  $to_serialize->{_frozen_from_class} = $self->{schema}
    ? $self->{schema}->class($self->source_moniker)
    : $self->{_detached_source}->result_class
  ;

Storable::nfreeze($to_serialize);
}

=head2 STORABLE_thaw

Thaws frozen handle. Resets the internal schema reference to the package
variable C<$thaw_schema>. The recommended way of setting this is to use
C<< $schema->thaw($ice) >> which handles this for you.

=cut

sub STORABLE_thaw {
  my ($self, $cloning, $ice) = @_;
  %$self = %{ Storable::thaw($ice) };

my $from_class = delete $self->{_frozen_from_class};

if( $thaw_schema ) {
    $self->schema( $thaw_schema );
  }
  elsif( my $rs = $from_class->result_source_instance ) {
    # in the off-chance we are using CDBI-compat and have leaked $schema already
    if( my $s = try { $rs->schema } ) {
      $self->schema( $s );
    }
    else {
      $rs->source_name( $self->source_moniker );
      $rs->{_detached_thaw} = 1;
      $self->_detached_source( $rs );
    }
  }
  else {
    DBIx::Class::Exception->throw(
      "Thaw failed - original result class '$from_class' does not exist on this system"
    );
  }
}

=head1 FURTHER QUESTIONS?

Check the list of L<additional DBIC resources|DBIx::Class/GETTING HELP/SUPPORT>.

=head1 COPYRIGHT AND LICENSE

This module is free software L<copyright|DBIx::Class/COPYRIGHT AND LICENSE>
by the L<DBIx::Class (DBIC) authors|DBIx::Class/AUTHORS>. You can
redistribute it and/or modify it under the same terms as the
L<DBIx::Class library|DBIx::Class/COPYRIGHT AND LICENSE>.

=cut

${this.title}

Code Editor : ResultSourceHandle.pm