X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FSchema%2FLoader%2FDBI%2FSybase.pm;h=711596beac22f9740d3d89a794ea0891a0f63113;hb=46564a42215c5309753f3e0609ae1adddf68d083;hp=f75933941ab1d8c8a069c1c6d50113130bfc0092;hpb=6bef66965f54b025022273482bc134fdc58790b2;p=dbsrgits%2FDBIx-Class-Schema-Loader.git diff --git a/lib/DBIx/Class/Schema/Loader/DBI/Sybase.pm b/lib/DBIx/Class/Schema/Loader/DBI/Sybase.pm index f759339..711596b 100644 --- a/lib/DBIx/Class/Schema/Loader/DBI/Sybase.pm +++ b/lib/DBIx/Class/Schema/Loader/DBI/Sybase.pm @@ -9,7 +9,7 @@ use namespace::clean; use DBIx::Class::Schema::Loader::Table::Sybase (); -our $VERSION = '0.07043'; +our $VERSION = '0.07048_01'; =head1 NAME @@ -35,7 +35,7 @@ sub _rebless { if ($self->load_optional_class($subclass) && !$self->isa($subclass)) { bless $self, $subclass; $self->_rebless; - } + } } } @@ -140,7 +140,7 @@ EOF } sub _tables_list { - my ($self, $opts) = @_; + my ($self) = @_; my @tables; @@ -168,7 +168,7 @@ EOF } } - return $self->_filter_tables(\@tables, $opts); + return $self->_filter_tables(\@tables); } sub _uid { @@ -215,7 +215,7 @@ sub _table_pk_info { local $self->dbh->{FetchHashKeyName} = 'NAME_lc'; my $sth = $self->dbh->prepare(<<"EOF"); -sp_pkeys @{[ $self->dbh->quote($table->name) ]}, +sp_pkeys @{[ $self->dbh->quote($table->name) ]}, @{[ $self->dbh->quote($table->schema) ]}, @{[ $self->dbh->quote($db) ]} EOF @@ -482,9 +482,9 @@ L, L, L, L -=head1 AUTHOR +=head1 AUTHORS -See L and L. +See L. =head1 LICENSE