DBIx::Classのシンタクスシュガーがほしい

Perl Idea

Mooseに慣れた目でDBIx::Classを見てみると…

  package DB::Main::Artist;
  use base qw/DBIx::Class/;

  __PACKAGE__->load_components(qw/PK::Auto Core/);
  __PACKAGE__->table('artist');
  __PACKAGE__->add_columns(qw/ artistid name /);
  __PACKAGE__->set_primary_key('artistid');
  __PACKAGE__->has_many(cds => 'DB::Main::CD');

  1;

いちいち__PACKAGE__と書かなければならないのは面倒くさい！これはなんとかしたいな。Sugar::Exporterとか。