[Catalyst-commits] r11228 -
Catalyst-Model-DBIC-Schema/trunk/lib/Catalyst/Model/DBIC
caelum at dev.catalyst.perl.org
caelum at dev.catalyst.perl.org
Mon Aug 24 08:19:52 GMT 2009
Author: caelum
Date: 2009-08-24 08:19:51 +0000 (Mon, 24 Aug 2009)
New Revision: 11228
Modified:
Catalyst-Model-DBIC-Schema/trunk/lib/Catalyst/Model/DBIC/Schema.pm
Log:
pass config options to schema
Modified: Catalyst-Model-DBIC-Schema/trunk/lib/Catalyst/Model/DBIC/Schema.pm
===================================================================
--- Catalyst-Model-DBIC-Schema/trunk/lib/Catalyst/Model/DBIC/Schema.pm 2009-08-24 04:25:20 UTC (rev 11227)
+++ Catalyst-Model-DBIC-Schema/trunk/lib/Catalyst/Model/DBIC/Schema.pm 2009-08-24 08:19:51 UTC (rev 11228)
@@ -493,14 +493,18 @@
$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;
@@ -614,6 +618,22 @@
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}) {
+ die "Invalid schema option: $opt" unless $self->schema->can($opt);
+
+ $self->schema->$opt($self->{$opt});
+ }
+ }
+}
+
__PACKAGE__->meta->make_immutable;
=head1 SEE ALSO
More information about the Catalyst-commits
mailing list