From: "Mike Raynham" <catal...@mikeraynham.co.uk>
Hi,

I am fairly new to all things Perl and Catalyst, and would like to know if what I am attempting to do is correct.

I've recently finished reading 'The Definitive Guide to Catalyst', which has been very helpful, but I am still a little confused about separating my business logic from my Catalyst application, and accessing the database connection from my non-Catalyst application.

At the moment, I have my external class in the lib/MyApp directory. It uses the connection info found in MyApp::Model::DB, like so:

---

# lib/MyApp/MyExternalClass.pm
MyApp::MyExternalClass

use MyApp::Model::DB;
use MyApp::Schema;

my $connect_info = MyApp::Model::DB->config->{connect_info};
my $schema = MyApp::Schema->connect( $connect_info );

# Do stuff with $schema...

---

That works, and I can connect to the database. However, I have searched this mailing list, and found this:

http://www.mail-archive.com/catalyst@lists.scsys.co.uk/msg00817.html

Here, the connection information is moved from MyApp::Model::DB to MyApp::DB, and then Catalyst::Model::Adaptor is used to glue MyApp::Model::DB to MyApp::DB. Is it a good idea? MyApp::Model::DB appears to be part of the Catalyst application, so if I want to access the database from an external model, it makes sense to me to move the connection code outside of the Catalyst application.


Regards,

Mike


The best idea would be to put the connection information in the application's config file like in the example below. (This example uses a Perl data structure, but you can use any configuration type accepted by Config::Any).

'Model::DB' => {
 schema_class => 'MyApp::Schema',
 connect_info => {
   dsn => 'dbi:Oracle:host=10.10.10.10;port=1521;sid=ora8',
   user => 'user',
   password => "password",
   #name_sep => '.',
   LongReadLen => 100*1024*1024,
   LongTruncOk => 1,
   on_connect_call => 'datetime_setup',
   on_connect_do => [
     "alter session set NLS_COMP='LINGUISTIC'",
     "alter session set NLS_SORT='BINARY_AI'",
   ],
 },
},

The model will access the connection information directly if it is defined in the config file, and you can use the data from this config file in any other external program. You can use the module Config::JFDI for using the Catalyst config file easier.

Octavian


_______________________________________________
List: Catalyst@lists.scsys.co.uk
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
Dev site: http://dev.catalyst.perl.org/

Reply via email to