Question

我试图在DBIX :: Class中为多个结果类使用公共基类。原因是 - 我有几个结构相同但名称不同的表。

这是我的基类

use utf8;
package myapp::Schema::tablebase;

use strict;
use warnings;

use base 'DBIx::Class::Core';

__PACKAGE__->table("unknown");

__PACKAGE__->add_columns(
  "id",
  { data_type => "smallint", is_nullable => 0 }

  #, ... and lot more
);

这是实际结果类

package myapp::Schema::Result::ActualTable;
use base 'myapp::Schema::tablebase';
 # Correct table name
__PACKAGE__->table('patient2');
1;

我收到了这项工作的编译错误。请帮帮我。

更新

我得到的错误是 -

DBIx :: Class :: Schema :: catch {...}（）：尝试load_namespaces（）类myapp :: Schema :: Result :: ActualTable失败 - 你确定这是一个真正的结果类吗？：无法定位对象方法＆＃34; result_source_instance＆＃34;通过包＆＃34; myapp :: Schema :: Result :: ActualTable＆＃34;在C：/Strawberry/perl/site/lib/DBIx/Class/Schema.pm第195行。在C：/Strawberry/perl/site/lib/myapp/Schema.pm

Answer 1

这应该有用，可能是因为你的基类在最后缺少真正的返回值（1;）？

如果您更喜欢更简洁的解决方案来修复您的基类可能定义的关系，也可以使用DBIx::Class::Helper::Row::SubClass。

Answer 2

以下是我对方法“subclass”和“generate_relationships”所做的更改，以保留全局和特定于客户的表之间的各种关系。此外，我不得不将全局的反向关系放到许多客户特定的表中。

sub subclass {
   my $self = shift;
   my $client_id = shift;
   $self->set_table($client_id);
   $self->generate_relationships($client_id);
}

sub generate_relationships {
  my $self = shift;
  my $client_id = shift;
  my ($namespace) = get_namespace_parts($self);
  foreach my $rel ($self->relationships) {
    my $rel_info = $self->relationship_info($rel);
    my $class = $rel_info->{class};

    assert_similar_namespaces($self, $class);
    my (undef, $result) = get_namespace_parts($class);

    eval "require $class";
    # relation of self with global table e.g. person to zipcode or guarantor2 to person
    # Copy relation as is 
    if($class->is_global == 1){
      $self->add_relationship(
       $rel,
       "${namespace}::$result",
       $rel_info->{cond},
       $rel_info->{attrs}
      );
    }else{
    # relation with client specific table e.g. patient2 has many guarantor2, person has many guarantor2
    # skip if self is global (   person has many guarantor2/3/4 etc)
      if($client_id ne ''){        
    # need client id mention in result class with which self is related
        $self->add_relationship(
          $rel,
          "${namespace}::$result"."$client_id",
          $rel_info->{cond},
          $rel_info->{attrs}
        );
      }
    }        
  };
}

对于每个子类，我将client_id作为参数传递，对于全局表，它是空白的。

DBIX :: Class子类化结果类

2 个答案: