Catalyst + MS Access (2)

MyApp::Model::CDBIを下記のように書くことで、一応CDBI経由でアクセスできた。
Class::DBI::Loader::ODBCなんてのがあれば、columnsをいちいち手書きしなくてもいいんだろうなあと思いつつ、まあ、ほらThere is more than one way to do it.ということで(ぇー

use strict;

package CatalystAccess::Model::CDBI::Namelist;
use base 'Class::DBI';
__PACKAGE__->connection('dbi:ODBC:driver=Microsoft Access Driver (*.mdb);dbq=cat.mdb');
__PACKAGE__->table('namelist');
__PACKAGE__->columns(All => qw/id name/);

package CatalystAccess::Model::CDBI::Itemlist;
use base 'Class::DBI';
__PACKAGE__->connection('dbi:ODBC:driver=Microsoft Access Driver (*.mdb);dbq=cat.mdb');
__PACKAGE__->table('itemlist');
__PACKAGE__->columns(All => qw/id item/);

=head1 NAME

CatalystAccess::Model::CDBI - CDBI Model Component

=head1 SYNOPSIS

See L<CatalystAccess>

=head1 DESCRIPTION

CDBI Model Component.

=head1 AUTHOR

A clever guy

=head1 LICENSE

This library is free software . You can redistribute it and/or modify
it under the same terms as perl itself.

=cut

1;