これならsqitchで、schemaもfixtureも管理できそうだ。。。かなり理想的な気がする。

gistfile1.pl

use Modern::Perl;
use App::Sqitch;
use Graph::Easy;

sub run {
    my $sqitch  = App::Sqitch->new;
    my $plan    = $sqitch->plan;
    my @changes = $plan->changes;

    my $graph = Graph::Easy->new;
    #for my $change (@changes) {
    #    $graph->add_node( name => $change->name );
    #}
    for my $change (@changes) {
        my @depends = $change->requires;
        for my $depend (@depends) {
            $graph->add_edge( $change->name, $depend->change );
        }
    }

    say $graph->as_ascii;
}

run(@ARGV);