clueless

use strict;use warnings;use 5.10.0;use Data::Dumper;use SQL::Translator::Schema;use SQL::Translator::Diff;my $schema   =  SQL::Translator::Schema->new(	name     => 'Foo',    database => 'PG',);my $table    = $schema->add_table( name => 'foo' );my $f1        =  $table->add_field(	name      => 'foo_id',    data_type => 'integer',    size      => 11,	is_nullable => 0,);my $schema1   =  SQL::Translator::Schema->new(    name     => 'Foo',    database => 'PG',);my $table1    = $schema1->add_table( name => 'foo' );my $f11        = $table1->add_field(    name      => 'foo_id',    data_type => 'integer',    size      => 11,    is_nullable => 1,);my $diff = SQL::Translator::Diff->new({   output_db     => 'PostgreSQL',   source_schema => $schema,   target_schema => $schema1,})->compute_differences->produce_diff_sql;say Dumper($table);say Dumper($table1);say Dumper($diff);