Use Params::Get more often

Author: nigelhorne

lib/Data/Random/String/Matches.pm

@@ -349,7 +349,9 @@ Sets the random seed for reproducible generation
 =cut
 
 sub set_seed {
-	my ($self, $seed) = @_;
+	my $self = shift;
+	my $params = Params::Get::get_params('seed', \@_);
+	my $seed = $params->{'seed'};
 
 	croak 'Seed must be defined' unless defined $seed;
 
@@ -370,9 +372,11 @@ Checks if a string matches the pattern without generating.
 =cut
 
 sub validate {
-	my ($self, $string) = @_;
+	my $self = shift;
+	my $params = Params::Get::get_params('string', \@_);
+	my $string = $params->{'string'};
 
-	croak 'String must be defined' unless defined $string;
+	croak('String must be defined') unless defined $string;
 
 	my $regex = $self->{regex};
 	return $string =~ /^$regex$/;

t/utility_methods.t

@@ -54,7 +54,7 @@ subtest 'set_seed - error handling' => sub {
 	my $gen = Data::Random::String::Matches->new(qr/\d{4}/);
 
 	eval { $gen->set_seed() };
-	like($@, qr/Seed must be defined/, 'Dies without seed');
+	like($@, qr/Usage/, 'Dies without seed');
 
 	eval { $gen->set_seed(undef) };
 	like($@, qr/Seed must be defined/, 'Dies with undef seed');
@@ -122,7 +122,7 @@ subtest 'validate - error handling' => sub {
 	my $gen = Data::Random::String::Matches->new(qr/\d{4}/);
 
 	eval { $gen->validate() };
-	like($@, qr/String must be defined/, 'Dies without string');
+	like($@, qr/Usage/, 'Dies without string');
 
 	eval { $gen->validate(undef) };
 	like($@, qr/String must be defined/, 'Dies with undef');