diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2000-12-05 16:23:28 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-06 16:09:09 +0000 |
| commit | b75c8c73cd7f3c92a16e03fb046f4e2a99363bc7 (patch) | |
| tree | 5fb2cf9e3d6c40bda2bc9505b5cb8026acdb24dc /lib/I18N | |
| parent | d2ab394d8cfda924d5c38dd9722ad367a06ffeca (diff) | |
| download | perl-b75c8c73cd7f3c92a16e03fb046f4e2a99363bc7.tar.gz | |
$VERSION crusade, strict, tests, etc... all over lib/
Message-ID: <20001205212328.C6473@blackrider.aocn.com>
Carp::Heavy parts not very applicable because of recent changes.
p4raw-id: //depot/perl@8013
Diffstat (limited to 'lib/I18N')
| -rw-r--r-- | lib/I18N/Collate.pm | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/lib/I18N/Collate.pm b/lib/I18N/Collate.pm index 64a03a284b..d18a5a5710 100644 --- a/lib/I18N/Collate.pm +++ b/lib/I18N/Collate.pm @@ -1,5 +1,8 @@ package I18N::Collate; +use strict; +our $VERSION = '1.00'; + =head1 NAME I18N::Collate - compare 8-bit scalar data according to the current locale @@ -112,15 +115,18 @@ use warnings::register; require Exporter; -@ISA = qw(Exporter); -@EXPORT = qw(collate_xfrm setlocale LC_COLLATE); -@EXPORT_OK = qw(); +our @ISA = qw(Exporter); +our @EXPORT = qw(collate_xfrm setlocale LC_COLLATE); +our @EXPORT_OK = qw(); use overload qw( fallback 1 cmp collate_cmp ); +our($LOCALE, $C); + +our $please_use_I18N_Collate_even_if_deprecated = 0; sub new { my $new = $_[1]; |