X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FSchema%2FLoader%2FDBI%2Fmysql.pm;h=b79bea48d46b5a6150c24220c48ec5c64510f7a1;hb=6bef66965f54b025022273482bc134fdc58790b2;hp=12410bd92b0d83e05e6603f07cb5a220fdda9c27;hpb=802a117545a5bd1a5d20152835a3aa7fb2e7b39f;p=dbsrgits%2FDBIx-Class-Schema-Loader.git diff --git a/lib/DBIx/Class/Schema/Loader/DBI/mysql.pm b/lib/DBIx/Class/Schema/Loader/DBI/mysql.pm index 12410bd..b79bea4 100644 --- a/lib/DBIx/Class/Schema/Loader/DBI/mysql.pm +++ b/lib/DBIx/Class/Schema/Loader/DBI/mysql.pm @@ -5,15 +5,14 @@ use warnings; use base 'DBIx::Class::Schema::Loader::DBI'; use mro 'c3'; use Carp::Clan qw/^DBIx::Class/; -use List::Util 'first'; -use List::MoreUtils 'any'; +use List::Util qw/any first/; use Try::Tiny; use Scalar::Util 'blessed'; use DBIx::Class::Schema::Loader::Utils qw/sigwarn_silencer/; use namespace::clean; use DBIx::Class::Schema::Loader::Table (); -our $VERSION = '0.07041'; +our $VERSION = '0.07043'; =head1 NAME @@ -66,12 +65,6 @@ sub _system_schemas { return ($self->next::method(@_), 'mysql'); } -sub _tables_list { - my ($self, $opts) = @_; - - return $self->next::method($opts, undef, undef); -} - sub _table_fk_info { my ($self, $table) = @_;