Comment créer un schéma Catalyst :: Model :: DBIC :: à partir d'un schéma DBIC ::?

Question

manque total de documentation rend ce difficile ..

Essentiellement, je

package MyApp::Schema; 
sub new_schema { 
    __PACKAGE__->connect(...) 
} 

J'ai

package MyCatApp::Model::MyApp; 
use Moose; 
extends 'Catalyst::Model::DBIC::Schema'; 

## what here; 

_PACKAGE__->make_immutable; 

Comment puis-je faire ce travail? Si j'ai dans ma config ...

<Model::MyApp> 
     schema_class MyApp::Schema 
     traits Caching 
     user_defined_schema_accessor foo 
</Model::MyApp> 

-je obtenir le following error:

BEGIN échoué - compilation avortée à la ligne de MyCatapp.psgi 4, ligne 1. Erreur lors du chargement MyCatapp. psgi: Impossible d'instancier le composant « soit -> config -> {} connect_info doit être défini pour MyCatApp :: Model :: MyApp ou MyApp :: schéma doit avoir défini les informations relient sur elle

Mais en ajoutant sub connect_info {}. au MyApp::Schema ne change rien. Cette erreur est générée sur line 480 of this file.

Cette méthode semble regarder $schema_class->storage->connect_info qui je crois est une méthode sur un objet instancié, et non une fonction dans le paquet. Cependant, si je tente de mettre

__PACKAGE__->config('schema_class', MyApp::Schema->new_schema) 

je puis obtenir ...

Erreur lors du chargement: Impossible d'instancier le composant "MyCatApp :: Model :: MyApp", « Attribute (schema_class) ne passe pas la contrainte de type car: La validation a échoué pour 'Catalyst :: Model :: DB :: :: Types :: SchemaClass' avec la valeur MyApp :: Schema = HASH (0xb4a5ff0) dans/usr/local/lib/perl/5.18.2/ligne Moose/Exception.pm 37

Alors, comment dois-je m'y prendre ...

Answer 1

donc .. Je ne suis pas sûr que ce soit à droite, je ne marque pas donc comme accepté mais j'étais sacrément près .. Cette ligne est mort sur ..

__PACKAGE__->config('schema_class', MyApp::Schema->new_schema) 

Et le code est en place pour que cela fonctionne, selon le lien ci-dessus sur line 480 of Catalyst::Model::DBIC::Schema. Cependant, le type est erroné.

Le type of schema_class is SchemaClass. Et, SchemaClass is defined here

subtype SchemaClass, 
    as LoadableClass, 
    where { $_->isa('DBIx::Class::Schema') }; 

Maintenant, SchemaClass est un sous-type d'un MooseX::Types::LoadableClass qui prend essentiellement juste un nom de paquet et exige ..

Le problème est LoadableClass ne prend pas une instance de DBIC :: schéma . Quoi qu'il en soit .. je viens de changer trop ..

has schema_class => (
    is => 'ro', 
    isa => 'Object', 
    required => 1 
); 

Maintenant je peux farcir un schéma instancié dans schema_class et passer le if($schema_class->storage && $schema_class->storage->connect_info) conditionnel.

I a déposé une bug on this here

Answer 2

De la documentation que vous referenced, votre MyCatApp::Model::MyApp ressemblerait à ceci:

__PACKAGE__->config(
    schema_class => 'MyApp::Schema', 
    connect_info => { 
    dsn => 'dbi:Pg:dbname=mypgdb', 
    user => 'postgres', 
    password => '', 
    pg_enable_utf8 => 1, 
    on_connect_do => [ 
     'some SQL statement', 
     'another SQL statement', 
    ], 
    } 
); 

Et dans votre contrôleur, vous devez:

my $db = $c->model('MyApp');

Answer 3

Vous pourrait instancier les informations de connexion dans votre MyApp::Schema par le faire ING:

__PACKAGE__->connection(@your_connection_details);

Cela crée un stockage sur la classe elle-même, et non pas un objet de schéma. Cela passera ensuite la vérification Catalyst::Model::DBIC::Schema et fonctionnera avec succès. Je pense que cela réalise ce que vous voulez sans changer les classes sous-jacentes (bien que cela puisse dépendre des détails non inclus).