[Catalyst] Accessing $c from Model

[Scott Thomson]

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.


On 2/27/07, Scott Thomson <smoothhound at gmail.com> wrote:
> Hi,
>
> This is exactly what I want to do, however I can't seem to get my head round
> how to implement this solution, I've tried various incarnations but I don't
> seem to be getting anywhere.
>
> Annotations below, thanks for patience.
>
> Scott
>
>
> On 2/1/07, Juan Miguel Paredes <juan.paredes at gmail.com> wrote:
> > On 2/1/07, Matt S Trout <dbix-class at trout.me.uk> wrote:
> > >
> > > package MyApp::DataStore; # or whatever this is called
> > >
> > > use base qw/DBIx::Class::Schema/;
> > >
> > > __PACKAGE__->mk_group_accessors(simple => 'context');
>
>
>
> I get this bit, (also add DBIx::Class::AccessorGroup to the base class list)
>
> > > then
> > >
> > > my $new = bless ...
> > >
>
> > > $new->schema(bless(...)); # same trick on the schema
> > >
> > > $new->schema->context($c);
>
> Is the above in the same file? what should replace the ellipsis
>
> > > then in the DBIC code
> > >
> > > $self->result_source->schema->context;
> > >
> > > make more sense?
> > >
>
>
> Where exactly is the DBIC code? MyApp::Model::DataStore?
>
>
> > Indeed, your suggestion worked fine, thanks a lot!  Just had to add
> > DBIx::Class::AccessorGroup to the schema class
> >
> > Regards,
> >
> > Juan.
> >
> > _______________________________________________
> > List: Catalyst at 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/
> >
>
>