The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
use strict;
use warnings;
use utf8;
use Test::More;
use Spellunker;
use Data::Dumper;

BEGIN { $ENV{PERL_SPELLUNKER_NO_USER_DICT} = 1 }

my $spellunker = Spellunker->new();
while (<DATA>) {
    next unless /\S/;
    chomp;
    my @bad = $spellunker->check_line($_);
    isnt(0+@bad, 0, $_);
    note Dumper(\@bad);
}

done_testing;

__DATA__
includs JSON::backportPP instead of JSON::PP.
In Teng, you simply use Teng::Schema's domain specific languaage to define a set of tables
If $table is specified, it set table infomation to result iterator.