/usr/local/CPAN/Apache-SWIT/Apache/SWIT/Maker/Skeleton/DB/Class.pm

• package Apache::SWIT::Maker::Skeleton::DB::Class
  • table_v
  • class_v
  • template
• EOF

use strict;
use warnings FATAL => 'all';

package Apache::SWIT::Maker::Skeleton::DB::Class;
use base 'Apache::SWIT::Maker::Skeleton::Class';
use Apache::SWIT::Maker::Config;
use Apache::SWIT::Maker::Conversions;

__PACKAGE__->mk_accessors('table');

sub table_v { return shift()->table; }
sub class_v {
	return Apache::SWIT::Maker::Config->instance->root_class
		. "::DB::" . conv_table_to_class(shift()->table);
}

sub template { return <<'ENDS' };
use strict;
use warnings FATAL => 'all';

package [% class_v %];
use base 'Apache::SWIT::DB::Base';

__PACKAGE__->set_up_table('[% table_v %]', { ColumnGroup => 'Essential' });

1;
ENDS

1;