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: Catalyst@lists.rawmode.org
Listinfo: http://lists.rawmode.org/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@lists.rawmode.org/
Dev site: http://dev.catalyst.perl.org/
