Forsøg på dansk orddeling med TeX::Hyphen::Pattern

test-dk-hyphen.pl

#!/usr/bin/perl
use warnings;
use v5.10;
 
# Remember to save as utf8!
use utf8;
use TeX::Hyphen;
use TeX::Hyphen::Pattern;
use open ":locale";
 
$pat = TeX::Hyphen::Pattern->new();
$pat->label('da_DK');
 
# Changing left/rightmin does not seem to help
#$hyph = TeX::Hyphen->new(file => $pat->filename, leftmin => 2, rightmin => 2); 
$hyph = TeX::Hyphen->new(file => $pat->filename);
 
say "køreskole: "
  . $hyph->visualize("køreskole"); # køreskole: køresko-le
 
say "wonderwoman: "
  . $hyph->visualize("wonderwoman"); # wonderwoman: won-derwo-man
 
say "katedralskole: "
  . $hyph->visualize("katedralskole"); # katedralskole: ka-ted-ralsko-le

I am not amused.