$self->composed_schema($schema_class->compose_namespace($class));
+ $self->meta->make_mutable;
$self->meta->add_attribute('schema',
is => 'rw',
isa => 'DBIx::Class::Schema',
handles => $self->_delegates
);
+ $self->meta->make_immutable;
$self->schema($self->composed_schema->clone);
+ $self->_pass_options_to_schema;
+
$self->schema->storage_type($self->storage_type)
if $self->storage_type;
=head2 setup
-Called at C<BUILD>> time before configuration, but after L</connect_info> is
+Called at C<BUILD> time before configuration, but after L</connect_info> is
set. To do something after configuuration use C<< after BUILD => >>.
=cut
return \@delegates;
}
+sub _pass_options_to_schema {
+ my $self = shift;
+
+ my @attributes = map $_->name, $self->meta->get_all_attributes;
+ my %attributes;
+ @attributes{@attributes} = ();
+
+ for my $opt (keys %$self) {
+ if (not exists $attributes{$opt}) {
+ next unless $self->schema->can($opt);
+ $self->schema->$opt($self->{$opt});
+ }
+ }
+}
+
__PACKAGE__->meta->make_immutable;
=head1 SEE ALSO
L<DBIx::Class>, L<DBIx::Class::Schema>,
L<DBIx::Class::Schema::Loader>, L<Catalyst::Helper::Model::DBIC::Schema>,
-L<MooseX::Object::Pluggable>
+L<CatalystX::Component::Traits>, L<MooseX::Traits::Pluggable>
Traits:
=head1 AUTHOR
-Brandon L Black, C<blblack at gmail.com>
+Brandon L Black C<blblack at gmail.com>
-Contributors:
+=head1 CONTRIBUTORS
-Rafael Kitover, C<rkitover at cpan.org>
+caelum: Rafael Kitover C<rkitover at cpan.org>
=head1 COPYRIGHT