use Try::Tiny;
use namespace::clean;
-our $VERSION = '0.07018';
+our $VERSION = '0.07034_02';
=head1 NAME
return $result;
}
-# Trap and ignore OLE warnings from nonexistant comments tables.
-
-sub _table_comment {
- my $self = shift;
-
- my $warn_handler = $SIG{__WARN__} || sub { warn @_ };
-
- local $SIG{__WARN__} = sub {
- $warn_handler->(@_) unless $_[0] =~ /cannot find the input table/;
- };
-
- $self->next::method(@_);
-}
-
-sub _column_comment {
- my $self = shift;
-
- my $warn_handler = $SIG{__WARN__} || sub { warn @_ };
-
- local $SIG{__WARN__} = sub {
- $warn_handler->(@_) unless $_[0] =~ /cannot find the input table/;
- };
-
- $self->next::method(@_);
-}
-
-
=head1 SEE ALSO
L<DBIx::Class::Schema::Loader::DBI::ODBC::ACCESS>,