DBIC
簡単ですね。get_table_info.pl #!/usr/local/perl5.8.7/bin/perl use Data::Dumper; use DBIx::Class::Schema::Loader; my $tmp_pkg = 'Temp::Schema'; push @{$tmp_pkg . '::ISA'}, qw/DBIx::Class::Schema::Loader/; $tmp_pkg->loader_options(relationsh…
簡単ですね。get_table_info.pl #!/usr/local/perl5.8.7/bin/perl use Data::Dumper; use DBIx::Class::Schema::Loader; my $tmp_pkg = 'Temp::Schema'; push @{$tmp_pkg . '::ISA'}, qw/DBIx::Class::Schema::Loader/; $tmp_pkg->loader_options(relationsh…