The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

sub {
  shift->resultset('Country')
    ->populate([
      ['code'],
      ['bel'],
      ['deu'],
      ['fra'],
  ]);
}