root/veekun/trunk/script/utils/schema-cleanup.pl

use strict;
use warnings;

my %done = map { $_ => 1 } qw/

      Abilities.pm
      Berries.pm
      EvChains.pm
      Pokemon.pm
      Edits.pm
      Forums.pm
      Items.pm
      Creators.pm
      ItemKeywords.pm
      ContestMoves.pm
      ErrorLog.pm
      FlavorText.pm
      Gallery.pm
/;

for my $file (glob('*.pm')) {
#for my $file ('ItemKeywords.pm') {
    next if $done{$file};

    open my $fh, '<', $file;
    binmode $fh;
    my $contents = join '', <$fh>;
    close $fh;

    my $package = $file;
    $package =~ s/\.pm$//;

    $contents =~ s/# Created by DBIx::Class::Schema::Loader v.*\n\n//;
    $contents =~ s/^.+add_unique_constraint.+undef.*\n//mg;
    $contents =~ s/warnings;\n\nuse base/warnings;\nuse base/;
    $contents =~ s/__PACKAGE__->table\("(.+)"\);/__PACKAGE__->table('$1');/;
    my $table = $1;
    $contents =~ s/__PACKAGE__->load_components\("PK::Auto", "Core"\);/__PACKAGE__->load_components('Core');/;
    $contents =~ s/__PACKAGE__->set_primary_key\("id"\);/__PACKAGE__->set_primary_key('id');/;
    $contents =~ s/Class';\n/Class';

=head1 NAME

Vee::Schema::$package - DBIC class for the C<$table> table

=cut
/;
    $contents =~ s/1;\n\n\z/=head1 SEE ALSO

L<Vee::Schema>, L<DBIx::Class>

=head1 AUTHOR

Maintainer: Alex "Eevee" Munroe (C<veekun\@veekun.com>)

See the included F<AUTHORS> file for a full list of contributers.

=head1 LICENSE

See the included F<LICENSE> file.

=cut

1;
/;

    $contents =~ s/(__PACKAGE__->.+\()"((?:\w+", ")+\w+)"(\);)/ my ($b, $m, $e) = ($1, $2, $3); $m =~ s[", "][ ]g; $b.'qw\/ '.$m.' \/'.$e /eg;

    open my $fh_out, '>', $file;
    binmode $fh_out;
    print $fh_out $contents;
    close $fh_out;
}