#!/usr/bin/env perl

use strict;
use warnings;
use open OUT => qw{:encoding(UTF-8) :std};

use lib '.'; # DEMO ONLY -- DON'T use in PRODUCTION!
use PolyUniCharClass;

print "InThaiHCons:\n";
print @{PolyUniCharClass::list('InThaiHCons')}, "\n";

print "InThaiLCons:\n";
print @{PolyUniCharClass::list('InThaiLCons')}, "\n";

print "InThaiMCons:\n";
print @{PolyUniCharClass::list('InThaiMCons')}, "\n";