jshirley

A couple things wrong:

1) This is a DBIx::Class problem, of which there is a separate list.
This is for Catalyst, the MVC framework.  You can subscribe to that
list at http://lists.scsys.co.uk/mailman/listinfo/dbix-class/

2) You haven't deployed your database.  The table doesn't exist.  When
you get an error that says "no such table: people" the problem is
quite clearly defined.  There is no such table.
You can read about deploying here:
http://search.cpan.org/~ash/DBIx-Class-0.08010/lib/DBIx/Class/Schema.pm#deploy

Thanks,
-J

I'm an idiot and don't know how to use my mail client.  Somehow this
got offlist, but it really is a good discussion...

---------- Forwarded message ----------
From: J. Shirley <jshirley@gmail.com>
Date: Mon, Oct 6, 2008 at 9:35 AM
Subject: Re: [Catalyst] Model--best practice help
To: [email protected: bg2...@yahoo.com]


On Mon, Oct 6, 2008 at 9:08 AM, Dr. Jennifer Nussbaum
<bg271828@yahoo.com> wrote:
> (things trimmed, and also you replied to me personally but not the list, dont know if that was intentional)
>
>
>
> --- On Mon, 10/6/08, J. Shirley <jshirley@gmail.com> wrote:
>
>>
>> > Jen
>>
>> My example -was- simple multiple inheritance. That is what
>> the
>> multiple packages in "use base" does.
>>
>> >> use base qw/Catalyst::Model::DBIC::Schema
>> MyApp::Model::Book/;
>
> i understand that this was MI, but my point was that if i still have to call the "Cat" model class one way, and the schema model class the other
> way, it doesnt really help. What is need is to call a single model, regardless of what im doing.
>
> Putting it another way, it shouldnt matter to the *Cat* programmer whether a function is in the DBIC schema (like "search" or "find", or even something
> else thats customized in the schema class), or is in the Cat model class. The programmer should just be able to call $c->model('Book') (or anything
> else that's regular).
>

[Full Stop]

If you want this, you can't use Catalyst::Model::DBIC::Schema at all.
It generates a model class for every schema class.

When you call $c->model('Book') what do you want to get back?  What is
MyApp::Model::Book?  What do you want it to be?  Do you want it to be
a MyApp::Model::DBIC::Book class (or whatever your Model::DBIC::Schema
generates as the name)?

>>
>> Eden posted a very simple Moose example to get you going
>> down that
>> path. If you modified your lib/MyApp/Model/MyApp.pm to
>> inherit from
>> other classes (cat specific or not) then the methods from
>> those would
>> be accessible via
>> $c->model('MyApp')->whatever. That's the
>> method I
>> showed.
>
> i understand that Edens example was simple and clear, and i do appreciate
> it. But it does still involve learning something about Moose, or in
> some cases convincing one's bosses that a project needs an entirely new OO layer to make it work.
>
>> Basically at this point, without knowing your exact
>> codeframework
>> you're only going to get these vague Multiple
>> Inheritance 101 answers.
>>  Just with or without Moose :)
>
> I appreciate the time youve spent on this, but i dont think its necessary to show my whole codebase. Let me try once more explain what i want to
> do, with a more specific example, then:
>
> Suppose i have a library application with the setup as described before, that is a DBIC schema group of classes set up and a MyApp::Model area.
>
> I want to write a method called get_books_by_purchase_date($foo), where
> $foo is some parameters taken from a Cat search form. In other words
> this function is clearly related to Cat, and not to the database layer,
> because it needs to do something related to my Cat app, and i wouldnt
> call it from an app thats not running on Cat.
>

If $foo is processed, I don't see why that isn't a resultset method, tbh.

$schema->resultset('Book')->get_books_by_purchase_date($criteria);
$c->model('Schema::Book')->get_books_by_purchase_date($criteria);

What is Catalyst specific is generating the search criteria, right?
Could you explain -why- you wouldn't call it from an application that
isn't Catalyst-based?  It seems that is would be a useful method on
the resultset later, and just an artificial restriction that it is
Catalyst-based (but again, don't know the role)

> Where do i put this function? If i put it in MyApp::Model::Books, then i
> have to remember that it's $c->model('Books')->get_books_by_purchase_date($foo), but it's
> $c->model('MyAppDB::Books')->find($id). That's a pain, especially if my real
> example is actually more complicated, and i want to (for instance) have the
> base of a chain that sets the model in the stash, and then in later parts of the chain
> do something based on the model, but i cant do these because for a given
> table i have two different models depending on whether im using a
> DBIC method or my own method.
>
> That is about the clearest i can be. If ive been misunderstanding you all along, i apologize.
>

Well, aside from not understand -why- you want to do it, the answer is
probably "Programming".  Right now you are using
Catalyst::Model::DBIC::Schema which simply creates a map of your
schema classes to a model class.  What you want is to decorate the
model class that is generated and add additional methods to it.  Not
to harp on Moose, but... Moose would make this -much- easier.

To start with, you'll want to read the source for
Catalyst::Model::DBIC::Schema, specifically just "sub new { }" --
there you will see how the model classes are instantiated.

The meat of it is just:
   foreach my $moniker ($self->schema->sources) {
       my $classname = "${class}::$moniker";
       *{"${classname}::ACCEPT_CONTEXT"} = sub {
           shift;
           shift->model($model_name)->resultset($moniker);
       }
   }

What this does is creates a Model::$Name that is simply a ResultSet.
At this point, what you -could- do, is set the resultset class to
something Catalyst specific.  That would give you methods on
$c->model("Schema::$Name").

So, something like:
sub {
   shift;
   my $schema = shift->model($model_name)->schema;
   my $source = $schema->source( $moniker );
   $source->resultset_class("MyApp::Custom::ResultSet");
   $source->resultset;
}

Now, every MyApp::Model::DBIC::* class would have the resultset
methods.  You could only apply this on certain monikers (moniker would
be 'Book', etc).

(I'm sure Eden or Matt can hop in here and do something better while I
go put on my pointy hair)

Sounds like you need a better mail reader? :)  Show/hide quotes,
configure to bottom post.

I actually like the gmail web reader for mailing lists purely because
of the way it handles hiding quotes.

Please also send your applications configuration so we can see your
auth store.  I do just have to ask though... why such ancient
software?  Apache 1 and MP1?  Ouch.

Off the top of my head, you are running out of space on your cache dir
(how big is your tmp dir?).  If you change your Session::Store or
setup for a larger cache it'd probably alleviate the problem.

-J

Andy apparently just wanted to start a flamewar.  This "article" is
idiotic, the reasons more so.  I'm disappointed in perlbuzz in general
as it now holds the same amount of respect as getting my news from The
National Inquirer.

I'd encourage people to rather blog about finding the article to be in
poor taste, then post their success stories.  Commenting here or on
that blog entry is going to be buried.

On Sun, Oct 5, 2008 at 10:03 AM, Dr. Jennifer Nussbaum
<bg271828@yahoo.com> wrote:
> Im going through my code, and trying to really think about how i can make it work well. Its a mess, i am realising, and i need advice on the best way
> to clean it up.
>
> Its clear that there are things in my Model that should be in a Controller; that i dont need help with.
>
> My problem is that i have two different Models, and dont know how they should be combined.
>
> In particular, im using DBIC, so i have a setup where i have MyApp::Schema::Main, which only looks like:
>
> package MyApp::Schema::Main;
> use base qw/DBIx::Class::Schema/;
>
> __PACKAGE__->load_classes(qw/Book Author/);
>
> 1;
>
> (the config stuff is in a separate config file:)
>
> <Model::MyAppDB>
>        schema_class MyApp::Schema::Main
>        connect_info #######
> </Model::MyAppDB>
>
> Then i'll have MyApp::Schema::Main::Book of whatever that looks like
>
> package MyApp::Schema::Main::Book;
>
> use base qw/DBIx::Class/;
>
> __PACKAGE__->load_components(qw/PK::Auto Core/);
> (etc., other DBIC stuff)
>
> The problem is i also have a MyApp::Model::Book, and ive usually put non-DBIC things in there, like if i have a "get_results" method thats
> specific to my Cat app and not appropriate for the schema, ill put it there. That starts like
>
> package MyApp::Model::Book;
> use strict;
> use warnings;
> use base 'Catalyst::Model';
>
> So ive got these two model classes, one i call with $c->model('MyAppDB::Book') and the other with $c->model('Book'). The problem
> is, i have some things that are Cat specific and i dont want them in my schema class (becaues i use this in non-Cat apps), but i dont want to
> have to have two separate models that i call by different names at
> different times.
>
> Whats the way im supposed to be setting these up?
>
> Thanks!
>
> Jen
>
>
>


Without seeing a tremendous amount of your code it is hard to answer,
but it sounds like you are either at a point where it would be
advantageous to learn Moose, or start doing some multiple inheritance
hacks to get things working.

The simple approach, which is much less "great" than using Moose, is
to put your App specific (the Catalyst specific, as you phrased it)
methods in a class, and then in your model class:

package MyApp::Model::Everything;

use base qw/Catalyst::Model::DBIC::Schema MyApp::Model::Book/;

__PACKAGE__->config( ... );

1;

Then you can do $c->model('Everything')->foo_method( ... );
(foo_method defined in Model::Book), and still have
$c->model('Everything::SchemaClass')->search(...);

In foo_method, $self will be Catalyst::Model::DBIC::Schema, so you can
do $self->schema->resultset('SchemaClass')->search(...); etc.

But really... I'd just learn Moose, it'll make things easier and
cleaner in the long run.

-J

Something tells me you didn't use Google:
http://www.fastcgi.com/mod_fastcgi/docs/mod_fastcgi.html#FastCgiExternalServer

-J

I haven't dug into the Catalyst source to see of any handling for the
arguments, but just for testing you may want to try doing a
utf8::decode($name) and see if that does the trick for you.

(Wild guessing on my part, sorry)


-J

Hey Darren, great post!

Can you post it on the wiki, perhaps at:

http://dev.catalystframework.org/wiki/faq link to "Unicode
Troubleshooting" in the Unicode section there?  It would be much
appreciated.

Thanks,
-J

What is the full output from something like GET -e -d -s {path}?

I added a simple test to t/catalyst-action-rest.t that returns a 304
status and it passed as expected.  I'm guessing something somewhere
else is breaking things.  Do you have a begin/end and can you post a
simplified controller exhibiting the behaviors and a complete request
cycle?

Patch below, if you want to test:
=== t/catalyst-action-rest.t
==================================================================
--- t/catalyst-action-rest.t (revision 5986)
+++ t/catalyst-action-rest.t (local)
@@ -81,6 +81,15 @@
     $c->forward('ok');
}

+sub not_modified : Local : ActionClass('REST') { }
+
+sub not_modified_GET {
+    my ( $self, $c ) = @_;
+    $c->res->status(304);
+    return 1;
+}
+
+
sub ok : Private {
     my ( $self, $c ) = @_;

@@ -135,6 +144,9 @@
is( $options_res->header('allow'),
     "GET", "OPTIONS request allow header properly set." );

+my $modified_res = request( $t->get( url => '/not_modified' ) );
+is( $modified_res->code, 304, "Not Modified request handler succeeded" );
+
my $ni_res = request( $t->delete( url => '/not_implemented' ) );
is( $ni_res->code, 200, "Custom not_implemented handler succeeded" );
is(