add set_locale() method; adjust docs and tests

Author: fglock

Changes

@@ -1,5 +1,9 @@
 Changes for DateTime::Set
 
+dev 2020-10-10
+- add set_locale(), following the DateTime API
+  Adjusted t/15time_zone.t and docs.
+
 0.3900 2016-10-09
 - require Params::Validate
 

lib/DateTime/Set.pm

@@ -170,6 +170,17 @@ sub set_time_zone {
     $self;
 }
 
+sub set_locale {
+    my ($self, $locale) = @_;
+    $self->{set} = $self->{set}->iterate( 
+        sub {
+            my $min = $_[0]->min;
+            $min->clone->set_locale( $locale ) if ref($min);
+        },
+    );
+    $self;
+}
+
 sub set {
     my $self = shift;
     my %args = validate( @_,
@@ -901,10 +912,17 @@ method.
 This method will attempt to apply the C<set_time_zone> method to every 
 datetime in the set.
 
-=item * set( locale => .. )
+=item * set_locale( $locale )
+
+This method will attempt to apply the C<set_locale> method to every 
+datetime in the set.
 
-This method can be used to change the C<locale> of a datetime set.
+=item * set( minute => 0, second => 0 )
 
+This method can be used to change the local components of a date time set. This
+method accepts any parameter allowed by the C<< DateTime->new() >> method except for
+"locale" or "time_zone". Use C<set_locale()> and C<set_time_zone()> for those
+instead.
 
 =item * start, min
 

t/15time_zone.t

@@ -130,7 +130,7 @@ is ( $months->clone->add( days => 1 )->
      'default locale' );
 
 is ( $months->clone->add( days => 1 )->
-              set( locale => 'en_US' )->
+              set_locale( 'en_US' )->
               next( $t1 )->
               strftime( "%a" ), 
      'Sun',