use Text::Balanced qw( extract_bracketed );
use Class::C3;
-our $VERSION = '0.04999_05';
+our $VERSION = '0.04999_13';
=head1 NAME
sub _extra_column_info {
my ($self, $table, $col_name, $sth, $col_num) = @_;
+ ($table, $col_name) = @{$table}{qw/TABLE_NAME COLUMN_NAME/} if ref $table;
my %extra_info;
$self->{_sqlite_parse_data}->{$table} ||=
L<DBIx::Class::Schema::Loader>, L<DBIx::Class::Schema::Loader::Base>,
L<DBIx::Class::Schema::Loader::DBI>
+=head1 AUTHOR
+
+See L<DBIx::Class::Schema::Loader/AUTHOR> and L<DBIx::Class::Schema::Loader/CONTRIBUTORS>.
+
+=head1 LICENSE
+
+This library is free software; you can redistribute it and/or modify it under
+the same terms as Perl itself.
+
=cut
1;