tools/wordpairs

   1 #!/usr/bin/env perl
   2 use 5.014;
   3 use warnings;
   4 use lib '.';
   5 use Shiar_Sheet::DB;
   6 use Data::Dump 'pp';
   7
   8 my $db = Shiar_Sheet::DB->connect;
   9 my $query = $db->select(
  10         'word w JOIN word a ON w.id = a.ref' => 'w.id, a.id',
  11         {'a.lang' => undef}
  12 );
  13 say pp($query->map or exit 1);