Gecko [ www.vortexaion.com ]

Name	Size	Permission	Date
Admin	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
CDBICompat	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
ClassResolver	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
InflateColumn	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Manual	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Optional	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
PK	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Relationship	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
ResultClass	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
ResultSet	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
ResultSource	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
ResultSourceProxy	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
SQLAHacks	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
SQLMaker	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Schema	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Serialize	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Storage	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
AccessorGroup.pm	1.33 KB	-rw-rw-rw-	2020-03-29 22:33
Admin.pm	11.78 KB	-rw-rw-rw-	2020-03-29 22:33
CDBICompat.pm	4.49 KB	-rw-rw-rw-	2020-03-29 22:33
Carp.pm	4.98 KB	-rw-rw-rw-	2020-03-29 22:33
Componentised.pm	2.2 KB	-rw-rw-rw-	2020-03-29 22:33
Core.pm	1.34 KB	-rw-rw-rw-	2018-04-30 13:43
Cursor.pm	1.94 KB	-rw-rw-rw-	2018-04-30 13:43
DB.pm	5.9 KB	-rw-rw-rw-	2020-03-29 22:33
Exception.pm	2.3 KB	-rw-rw-rw-	2020-03-29 22:33
FilterColumn.pm	7.77 KB	-rw-rw-rw-	2020-03-29 22:33
FilterColumn.pod	4.17 KB	-rw-rw-rw-	2020-06-17 00:12
InflateColumn.pm	7.02 KB	-rw-rw-rw-	2020-03-29 22:33
InflateColumn.pod	5.55 KB	-rw-rw-rw-	2020-06-17 00:12
Manual.pod	1.74 KB	-rw-rw-rw-	2018-04-30 13:43
Ordered.pm	26.18 KB	-rw-rw-rw-	2020-03-29 22:33
PK.pm	3.3 KB	-rw-rw-rw-	2020-03-29 22:33
PK.pod	2.96 KB	-rw-rw-rw-	2020-06-17 00:12
Relationship.pm	21.54 KB	-rw-rw-rw-	2018-04-30 13:43
ResultSet.pm	140.76 KB	-rw-rw-rw-	2020-06-13 20:33
ResultSetColumn.pm	10.62 KB	-rw-rw-rw-	2020-03-29 22:33
ResultSetManager.pm	3.25 KB	-rw-rw-rw-	2020-03-29 22:33
ResultSetProxy.pm	997 B	-rw-rw-rw-	2016-08-24 09:05
ResultSource.pm	66.33 KB	-rw-rw-rw-	2020-06-13 20:33
ResultSourceHandle.pm	3.74 KB	-rw-rw-rw-	2020-03-29 22:33
ResultSourceProxy.pm	1.88 KB	-rw-rw-rw-	2020-03-29 22:33
Row.pm	44.7 KB	-rw-rw-rw-	2020-06-13 20:33
SQLAHacks.pm	120 B	-rw-rw-rw-	2016-08-24 09:05
SQLMaker.pm	6.35 KB	-rw-rw-rw-	2020-03-29 22:33
Schema.pm	42.39 KB	-rw-rw-rw-	2020-03-29 22:33
StartupCheck.pm	1.48 KB	-rw-rw-rw-	2020-03-29 22:33
Storage.pm	15.52 KB	-rw-rw-rw-	2020-03-29 22:33
UTF8Columns.pm	5.18 KB	-rw-rw-rw-	2020-03-29 22:33
_Util.pm	10.77 KB	-rw-rw-rw-	2020-03-29 22:33

Rename

package # hide from PAUSE
    DBIx::Class::ResultSourceProxy;

use strict;
use warnings;

use base 'DBIx::Class';

use Scalar::Util 'blessed';
use DBIx::Class::_Util 'quote_sub';
use namespace::clean;

__PACKAGE__->mk_group_accessors('inherited_ro_instance' => 'source_name');

sub get_inherited_ro_instance {  shift->get_inherited(@_) }

sub set_inherited_ro_instance {
  my $self = shift;

$self->throw_exception ("Cannot set @{[shift]} on an instance")
    if blessed $self;

$self->set_inherited(@_);
}

sub add_columns {
  my ($class, @cols) = @_;
  my $source = $class->result_source_instance;
  $source->add_columns(@cols);
  foreach my $c (grep { !ref } @cols) {
    # If this is an augment definition get the real colname.
    $c =~ s/^\+//;

$class->register_column($c => $source->column_info($c));
  }
}

sub add_column { shift->add_columns(@_) }

sub add_relationship {
  my ($class, $rel, @rest) = @_;
  my $source = $class->result_source_instance;
  $source->add_relationship($rel => @rest);
  $class->register_relationship($rel => $source->relationship_info($rel));
}

# legacy resultset_class accessor, seems to be used by cdbi only
sub iterator_class { shift->result_source_instance->resultset_class(@_) }

for my $method_to_proxy (qw/
  source_info
  result_class
  resultset_class
  resultset_attributes

columns
  has_column

remove_column
  remove_columns

column_info
  columns_info
  column_info_from_storage

set_primary_key
  primary_columns
  sequence

add_unique_constraint
  add_unique_constraints

unique_constraints
  unique_constraint_names
  unique_constraint_columns

relationships
  relationship_info
  has_relationship
/) {
  quote_sub __PACKAGE__."::$method_to_proxy", sprintf( <<'EOC', $method_to_proxy );
    DBIx::Class::_ENV_::ASSERT_NO_INTERNAL_INDIRECT_CALLS and DBIx::Class::_Util::fail_on_internal_call;
    shift->result_source_instance->%s (@_);
EOC

}