[Dbix-class] DynamicSubclass and Preview: conflict?

[Miquel Ruiz]

On 29/04/2010 23:04, Matt S Trout wrote:
>
> Do your subclasses have their own columns?
>

Yes, they have.

> I'm thinking that the source for the preview stuff doesn't know about
> extra columns?
>
> Certainly this is going to be an interaction between the way preview works
> and the reblessing approach. Though I'd expect them to work togethere fine
> provided they wrap new() etc. - unless you've got extra columns in the
> sub-classes. Though in that case, I think adding the columns to the preview
> source should do the trick.
>

Just to try to solve it in the testing code, i have moved the 
subclasses' extra columns to the parent class, but it is still not working:

$ cat lib/MyApp/Schema/Items.pm
package MyApp::Schema::Items;

use strict;
use warnings;
use Carp;

use base qw/DBIx::Class/;

__PACKAGE__->load_components(qw/
     Preview DynamicSubclass Core
/);

__PACKAGE__->table('items');

__PACKAGE__->add_columns(qw/ item_id item_type cost margin opex capex /);

__PACKAGE__->set_primary_key(qw/item_id/);

__PACKAGE__->typecast_map( item_type => {
     SERVICE   => 'MyApp::Schema::Items::Service',
     COMPONENT => 'MyApp::Schema::Items::Component',
     BUNDLE    => 'MyApp::Schema::Items::Bundle',
});

1;


$ cat lib/MyApp/Schema/Items/*
package MyApp::Schema::Items::Bundle;

use strict;
use warnings;

use base 'MyApp::Schema::Items';

1;
package MyApp::Schema::Items::Component;

use strict;
use warnings;

use base 'MyApp::Schema::Items';

1;
package MyApp::Schema::Items::Service;

use strict;
use warnings;

use base 'MyApp::Schema::Items';

1;



Just to make it clearer: the 'deleted' column which the error is 
complaining about is not part of the app model, it is the 'deleted' 
column needed by Preview to work.

Thanks for your feedback. Regards,

--
Miquel Ruiz - CAPSiDE