onishi

#!/usr/bin/env perl
use strict;
use warnings;

# TODO
# - drop key

@ARGV == 2 or die 'Usage: mysqldiff dbname1 dbname2';

my @tables = map {

motemen

#!/usr/bin/perl
use strict;
use warnings;
use List::MoreUtils qw(any);

sub git;

chdir git('rev-parse --git-dir') . '/..';

my @submodules = map [split /\s+/]->[-1], grep /^160000 /, git 'ls-files --stage';