lib/DBIx/Class/ResultSourceInstance.pm

   1 package DBIx::Class::ResultSourceInstance;
   2
   3 use strict;
   4 use warnings;
   5
   6 use base qw/DBIx::Class/;
   7
   8 sub iterator_class { shift->result_source_instance->resultset_class(@_) }
   9 sub resultset_class { shift->result_source_instance->resultset_class(@_) }
  10
  11 sub add_columns {
  12   my ($class, @cols) = @_;
  13   $class->result_source_instance->add_columns(@cols);
  14   $class->_mk_column_accessors(@cols);
  15 }
  16
  17 sub _select_columns {
  18   return shift->result_source_instance->columns;
  19 }
  20
  21 sub has_column {
  22   my ($self, $column) = @_;
  23   return $self->result_source_instance->has_column($column);
  24 }
  25
  26 sub column_info {
  27   my ($self, $column) = @_;
  28   return $self->result_source_instance->column_info($column);
  29 }
  30
  31
  32 sub columns {
  33   return shift->result_source_instance->columns(@_);
  34 }
  35
  36 sub set_primary_key { shift->result_source_instance->set_primary_key(@_); }
  37 sub primary_columns { shift->result_source_instance->primary_columns(@_); }
  38
  39 sub result_source { shift->result_source_instance(@_); }
  40
  41 1;