test-datetime-defaultlocale.pl

#!/usr/bin/perl -w-

use strict;
use warnings;

use DateTime;
use Data::Dumper;

my $locale = DateTime->DefaultLocale;
print Dumper($locale);

print "Default locale = " . $locale->id . "\n";

my $new_locale = 'th_TH.UTF-8';
print "Set new default locale to '$new_locale'\n";
DateTime->DefaultLocale($new_locale);

$locale = DateTime->DefaultLocale->id;
print "Default locale = $locale\n";
$locale = DateTime->DefaultLocale('en_US');
print "locale = $locale->{'id'} \n";