X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FSchema%2FLoader%2FPg.pm;h=ec4a221295ddac86bfcb5db7a06113a1e3f03f48;hb=2a4b826292620a66477a0ccea2c542050bd3477c;hp=0d49c95c5f57325e8d917d7264bca3536ee978c8;hpb=ddf9132271bacae690c871034e5e42beb59464fa;p=dbsrgits%2FDBIx-Class-Schema-Loader.git diff --git a/lib/DBIx/Class/Schema/Loader/Pg.pm b/lib/DBIx/Class/Schema/Loader/Pg.pm index 0d49c95..ec4a221 100644 --- a/lib/DBIx/Class/Schema/Loader/Pg.pm +++ b/lib/DBIx/Class/Schema/Loader/Pg.pm @@ -2,6 +2,8 @@ package DBIx::Class::Schema::Loader::Pg; use strict; use warnings; +use Class::C3; + use base 'DBIx::Class::Schema::Loader::Generic'; =head1 NAME @@ -23,8 +25,24 @@ DBIx::Class::Schema::Loader::Pg - DBIx::Class::Schema::Loader Postgres Implement See L. +=head1 METHODS + +=head3 new + +Overrides L's C to default the postgres +schema to C rather than blank. + =cut +sub new { + my ($class, %args) = @_; + + my $self = $class->next::method(%args); + $self->{db_schema} ||= 'public'; + + $self; +} + sub _db_classes { return qw/DBIx::Class::PK::Auto::Pg/; }