=cut
use Modern::Perl;
use Carp;
use base qw(DBIx::Class);
my ($class, $rel_name, $fk_column, $pk_column, @properties) = @_;
my $rel_info = $class->relationship_info($rel_name);
unless ($rel_info) {
confess "Unknown relation '$rel_name'";
}
$class->has_many(
'localizations',
-