Select Code to Download

package YV::Table::ArticleAuthor;
use base 'YV::Table::DBI';
...
__PACKAGE__->hasa(YV::Table::Article => 'article_id');

# other methods

use YV::Table::ArticleAuthor;

...
   next unless $delete_article_xref{$_->article_id};
   $_[0]->delete();
}

__PACKAGE__->columns(All => qw/article_id author_id/);

# Under Construction