now get non-dual lived code

[p5sagit/p5-mst-13.2.git] / lib / I18N / Collate.pm

diff --git a/lib/I18N/Collate.pm b/lib/I18N/Collate.pm
index d18a5a5..257390f 100644 (file)
--- a/lib/I18N/Collate.pm
+++ b/lib/I18N/Collate.pm
@@ -7,6 +7,15 @@ our $VERSION = '1.00';
 
 I18N::Collate - compare 8-bit scalar data according to the current locale
 
+=head1 SYNOPSIS
+
+    use I18N::Collate;
+    setlocale(LC_COLLATE, 'locale-of-your-choice'); 
+    $s1 = I18N::Collate->new("scalar_data_1");
+    $s2 = I18N::Collate->new("scalar_data_2");
+
+=head1 DESCRIPTION
+
   ***
 
   WARNING: starting from the Perl version 5.003_06
@@ -24,15 +33,6 @@ I18N::Collate - compare 8-bit scalar data according to the current locale
 
   ***
 
-=head1 SYNOPSIS
-
-    use I18N::Collate;
-    setlocale(LC_COLLATE, 'locale-of-your-choice'); 
-    $s1 = new I18N::Collate "scalar_data_1";
-    $s2 = new I18N::Collate "scalar_data_2";
-
-=head1 DESCRIPTION
-
 This module provides you with objects that will collate 
 according to your national character set, provided that the 
 POSIX setlocale() function is supported on your system.
@@ -81,8 +81,8 @@ European character set.
 #
 # Usage:       use I18N::Collate;
 #              setlocale(LC_COLLATE, 'locale-of-your-choice'); # 4)
-#              $s1 = new I18N::Collate "scalar_data_1";
-#              $s2 = new I18N::Collate "scalar_data_2";
+#              $s1 = I18N::Collate->("scalar_data_1");
+#              $s2 = I18N::Collate->("scalar_data_2");
 #              
 #              now you can compare $s1 and $s2: $s1 le $s2
 #              to extract the data itself, you need to deref: $$s1