Excellent, that works - Thank you! On 3/5/07, Juan Miguel Paredes <[EMAIL PROTECTED]> wrote:
On 3/5/07, Scott Thomson <[EMAIL PROTECTED]> wrote: > Ok, I think I'm close... > > My main schema class: > > package DB; > > use base qw/DBIx::Class::Schema DBIx::Class::AccessorGroup/; > > __PACKAGE__->mk_group_accessors(simple => 'context'); > __PACKAGE__->load_classes(qw//); > 1; > > > My model class... > > package WCN::Model::DB; > > use strict; > use base qw/Catalyst::Model::DBIC::Schema::WCN/; > > __PACKAGE__->config( > schema_class => 'DB', > ); > > sub ACCEPT_CONTEXT { > my ($self, $c, @args) = @_; > > $c->log->debug(" *** class: " . ref($self)); > > my $new = bless({%$self}, ref $self); > $new->schema(bless({%{$self->schema}}, ref($self->schema))); > $new->schema->context($c); > > # Outputs 'WCN' which is correct > $c->log->debug(" *** ref of context in self: ", > ref($new->schema->context())); > > return $new; > } > > The debug prints the correct class of $c when ACCEPT_CONTEXT is > called, however $self->result_source->schema->context is not present > in the model objects. > > Have I got the wrong end of the stick somewhere? > > Many Thanks, > > Scott.That looks very similar to what we did, but in the model class: sub ACCEPT_CONTEXT { my ($self, $c, @args) = @_; my $new = bless({ %$self }, ref $self); $new->schema->_context($c); return $new; } (we used _context for accesor) Also, I don't know if the DB namespace is reserved for debug, and could lead to complications... I think I read that in a nearby thread a while ago, but can't locate it right now... 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/
_______________________________________________ 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/
