For inclusion with DT::Locale.
Comments?
-J
--
package DateTime::Locale::Alias;
use strict;
use vars qw( $VERSION );
$VERSION = 0.01;
use DateTime::Locale;
sub import {
my $class = shift;
return unless @_;
DateTime::Locale->add_aliases( { @_ } );
}
1;
__END__
=pod
=head1 NAME
DateTime::Locale::Alias - Create aliases for DateTime Locales
=head1 SYNOPSIS
use DateTime::Locale::Alias I => 'am_ET',
yes => 'no';
=head1 DESCRIPTION
Syntactic sugar for L<DateTime::Locale>'s C<add_aliases> method.
=head1 IMPORT PARAMETERS
Accepts a hash representing an alias and the locale it should map too.
=head1 CREDITS
Everyone at the DateTime C<Asylum>.
=head1 SUPPORT
Support for this module is provided via the [EMAIL PROTECTED] email
list. See http://lists.perl.org/ for more details.
=head1 AUTHOR
Joshua Hoblitt <[EMAIL PROTECTED]>
=head1 COPYRIGHT
Copyright (c) 2003 Joshua Hoblitt. All rights reserved. This program
is free software; you can redistribute it and/or modify it under the
same terms as Perl itself.
The full text of the license can be found in the LICENSE file included
with this module.
=head1 SEE ALSO
L<DateTime::Locale>
[EMAIL PROTECTED] mailing list
http://datetime.perl.org/
=cut
