view release on metacpan or  search on metacpan

lib/Anego/Task/Diff.pm  view on Meta::CPAN

package Anego::Task::Diff;
use strict;
use warnings;
use utf8;
use SQL::Translator::Diff;

use Anego::Config;

sub diff {
    my ($class, $source, $target) = @_;
    my $config = Anego::Config->load;

    my $diff = SQL::Translator::Diff->new({
        output_db => $config->rdbms,
        source_schema => $source->schema,
        target_schema => $target->schema,
    })->compute_differences->produce_diff_sql;

    # ignore initial comments.
    1 while $diff =~ s/\A--.*?\r?\n//ms;

    return $diff =~ /\A\s*-- No differences found;\s*\z/ms ? undef : $diff;
}

1;