Added get_seed

Author: nigelhorne

README.md

@@ -156,6 +156,10 @@ Dies: If count is not a positive integer
 
 Warns: If unable to generate the requested number of unique strings
 
+## get\_seed()
+
+Gets the random seed for reproducible generation
+
 ## set\_seed($seed)
 
 Sets the random seed for reproducible generation

lib/Data/Random/String/Matches.pm

@@ -194,7 +194,7 @@ sub new {
 		regex_str => "$regex",
 		length	=> $length || 10,
 		backrefs	=> {},  # Store backreferences
-		named_refs  => {},	   # Store named captures
+		named_refs => {},	 # Store named captures
 	};
 
 	return bless $self, $class;
@@ -321,7 +321,7 @@ sub generate_many {
 		# Generate unique strings
 		my %seen;
 		my $attempts = 0;
-		my $max_attempts = $count * 100;  # Reasonable limit
+		my $max_attempts = $count * 100;	# Reasonable limit
 
 		while (keys %seen < $count && $attempts < $max_attempts) {
 			my $str = $self->generate();
@@ -342,6 +342,18 @@ sub generate_many {
 	return @results;
 }
 
+=head2 get_seed()
+
+Gets the random seed for reproducible generation
+
+=cut
+
+sub get_seed {
+	my $self = shift;
+
+	return $self->{seed};
+}
+
 =head2 set_seed($seed)
 
 Sets the random seed for reproducible generation

t/utility_methods.t

@@ -48,6 +48,8 @@ subtest 'set_seed - different seeds produce different results' => sub {
 	my $str2 = $gen->generate();
 
 	isnt($str1, $str2, 'Different seeds produce different results');
+
+	cmp_ok($gen->get_seed(), '==', 222, 'Get seed works');
 };
 
 subtest 'set_seed - error handling' => sub {