e 5.008001;
use strict;
use warnings;
our $VERSION = "0.01";
use JSON::PP;
use DBI qw/:sql_types/;
use File::Spec;
my $_JSON = JSON::PP->new;
my %_NAMEMAP = map { $_ => *{$DBI::{$_}}{CODE}->() } @{
= File::Spec->catfile($outdir, "$table->{name}.json");
open my $fh, '>', $file or die "$file: $!"; # uncoverable branch
print {$fh} $_JSON->encode($table->{schema});
close $fh;
This module will produce text output of the schema suitable for Google BigQuery.
It will be a '.json' file of BigQuery schema format.
=head1 ARGUMENTS
=over 4
=item C<outdir>
Base directory of o