Fixed Unicode characters

Author: nigelhorne

Changes

@@ -2,6 +2,7 @@ Revision history for Data-Random-String-Matches
 
 0.02
 	Added more obscure regex features
+	Fixed Unicode characters
 
 0.01	Mon Oct 27 21:11:53 EDT 2025
         First draft

MANIFEST

@@ -16,5 +16,6 @@ t/cli.t
 t/eof.t
 t/eol.t
 t/generate.t
+t/pod-cm.t
 t/pod-synopsis.t
 t/pod.t

bin/cookbook

@@ -13,7 +13,7 @@ Run this script to see examples of various patterns:
 Or use individual patterns in your own code:
 
     use Data::Random::String::Matches;
-    
+
     # Pick any pattern from above
     my $gen = Data::Random::String::Matches->new(qr/[A-Z]{3}\d{4}/);
     my $result = $gen->generate();

lib/Data/Random/String/Matches.pm

@@ -723,23 +723,24 @@ sub _unicode_property_chars {
 
 	# Common Unicode properties
 	if ($prop eq 'L' || $prop eq 'Letter') {
-		# Letters
-		return ('a' .. 'z', 'A' .. 'Z', map { chr($_) } (ord('À') .. ord('ÿ')));
+		# Letters, skip × and ÷ which are symbols
+		return ('a' .. 'z', 'A' .. 'Z', map { chr($_) } ((ord'À')..ord('Ö'), ord('Ø')..ord('ö'), ord('ø')..ord('ÿ')));
 	} elsif ($prop eq 'N' || $prop eq 'Number') {
 		# Numbers
-		return ('0' .. '9', map { chr($_) } (ord('①').. ord('⑳')));
+		# return ('0' .. '9', map { chr($_) } (ord('①').. ord('⑳')));
+		return ('0' .. '9');
 	} elsif ($prop eq 'Lu' || $prop eq 'Uppercase_Letter') {
-		# Uppercase letters
-		return ('A' .. 'Z', map { chr($_) } (ord('À') .. ord('Þ')));
+		# Uppercase letters, skip × which is not a letter
+		return ('A' .. 'Z', map { chr($_) } (ord('À') .. ord('Ö'), ord('ø') .. ord('Þ')));
 	} elsif ($prop eq 'Ll' || $prop eq 'Lowercase_Letter') {
-		# Lowercase letters
-		return ('a' .. 'z', map { chr($_) } (ord('à') .. ord('ÿ')));
+		# Lowercase letters, skip ÷ which is not a letter
+		return ('a' .. 'z', map { chr($_) } (ord('à') .. ord('ö'), ord('ø') .. ord('ÿ')));
 	} elsif ($prop eq 'P' || $prop eq 'Punctuation') {
 		# Punctuation
 		return ('.', ',', '!', '?', ';', ':', '-', '—', '…');
 	} elsif ($prop eq 'S' || $prop eq 'Symbol') {
 		# Symbols
-		return ('$', '€', '£', '¥', '©', '®', '™', '°', '±');
+		return ('$', '€', '£', '¥', '©', '®', '™', '°', '±', '×', '÷');
 	} elsif ($prop eq 'Z' || $prop eq 'Separator') {
 		# Separators
 		return (' ', "\t", "\n");

t/advanced-features.t

@@ -5,7 +5,7 @@ use warnings;
 
 use open ':std', ':encoding(UTF-8)';
 
-use Test::DescribeMe qw(extended);	# These can fail at the moment.  Disable while debugging
+# use Test::DescribeMe qw(extended);	# These can fail at the moment.  Disable while debugging
 use Test::Most;
 
 use_ok('Data::Random::String::Matches');

t/advanced_regex.t

@@ -5,7 +5,7 @@ use warnings;
 
 use utf8;
 use Test::Most;
-use Test::DescribeMe qw(extended);	# These can fail at the moment.  Disable while debugging
+# use Test::DescribeMe qw(extended);	# These can fail at the moment.  Disable while debugging
 
 use open ':std', ':encoding(UTF-8)';
 

t/pod-cm.t

@@ -0,0 +1,10 @@
+#!/usr/bin/perl -w
+
+use strict;
+use warnings;
+
+use Test::DescribeMe qw(author);
+use Test::Needs 'Test::Pod::Spelling::CommonMistakes';
+
+Test::Pod::Spelling::CommonMistakes->import();
+all_pod_files_ok();