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

sub {
  shift->resultset('Country')
    ->populate([
      ['name'],
      ['Canada'],
      ['Mexico'],
      ['USA'],
  ]);
};