X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FSchema.pm;h=a51ab964ccf82440a506c2f44c2553ff5150f439;hb=161fb22350bdfb511af2cc96d2a556a4296c20e8;hp=c3ce0e650593e74b61af7fb7de6bd71e5d8837c2;hpb=17b05c131035f73964c434c1a9c8b28e46aebeeb;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/Schema.pm b/lib/DBIx/Class/Schema.pm index c3ce0e6..a51ab96 100644 --- a/lib/DBIx/Class/Schema.pm +++ b/lib/DBIx/Class/Schema.pm @@ -637,9 +637,9 @@ sub setup_connection_class { =over 4 -=item Arguments: $storage_type|[$storage_type, \%args] +=item Arguments: $storage_type|{$storage_type, \%args} -=item Return Value: $storage_type|[$storage_type, \%args] +=item Return Value: $storage_type|{$storage_type, \%args} =back @@ -655,8 +655,10 @@ C<::DBI::Sybase::MSSQL>. If your storage type requires instantiation arguments, those are defined as a second argument in the form of a hashref and the entire value needs to be -wrapped into an arrayref. See L for an -example of this. +wrapped into an arrayref or a hashref. We support both types of refs here in +order to play nice with your Config::[class] or your choice. + +See L for an example of this. =head2 connection @@ -682,7 +684,7 @@ sub connection { return $self if !@info && $self->storage; my ($storage_class, $args) = ref $self->storage_type ? - (@{$self->storage_type},{}) : ($self->storage_type, {}); + ($self->_normalize_storage_type($self->storage_type),{}) : ($self->storage_type, {}); $storage_class = 'DBIx::Class::Storage'.$storage_class if $storage_class =~ m/^::/; @@ -696,6 +698,17 @@ sub connection { return $self; } +sub _normalize_storage_type { + my ($self, $storage_type) = @_; + if(ref $storage_type eq 'ARRAY') { + return @$storage_type; + } elsif(ref $storage_type eq 'HASH') { + return %$storage_type; + } else { + $self->throw_exception('Unsupported REFTYPE given: '. ref $storage_type); + } +} + =head2 connect =over 4