DBIx::Class::Schema::Versioned does something of this sort. Also, you can make all your changes in the database and then use DBIx::Class::Schema::Loader and use the make_schema_at method to upgrade your schema code.

I do it like this:

#!/usr/bin/perl 

## this works fine for development
## but should probably add some production environment vars too
use FindBin;
use DBIx::Class::Schema::Loader qw| make_schema_at |;
make_schema_at(
    "MyApp::Schema",
    {
        debug          => 1,
        use_namespaces => 0,
        components     => ["InflateColumn::DateTime"],
        dump_directory => "$FindBin::Bin/../lib"
    },
    [ "dbi:mysql:dbname", "user", "pass" ]
);
[download]

Then call perl script/*update*