On 2/1/07, Matt S Trout <[EMAIL PROTECTED]> wrote:

package MyApp::DataStore; # or whatever this is called

use base qw/DBIx::Class::Schema/;

__PACKAGE__->mk_group_accessors(simple => 'context');

then

my $new = bless ...

$new->schema(bless(...)); # same trick on the schema

$new->schema->context($c);

then in the DBIC code

$self->result_source->schema->context;

make more sense?


Indeed, your suggestion worked fine, thanks a lot!  Just had to add
DBIx::Class::AccessorGroup to the schema class

Regards,

Juan.

_______________________________________________
List: [email protected]
Listinfo: http://lists.rawmode.org/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/[email protected]/
Dev site: http://dev.catalyst.perl.org/

Reply via email to