r53576 - in /branches/upstream/liblingua-es-numeros-perl/current: Changes META.yml lib/Lingua/ES/Numeros.pm

[angelabad-guest at users.alioth.debian.org]

Author: angelabad-guest
Date: Thu Mar  4 23:03:08 2010
New Revision: 53576

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=53576
Log:
[svn-upgrade] Integrating new upstream version, liblingua-es-numeros-perl (0.08)

Modified:
    branches/upstream/liblingua-es-numeros-perl/current/Changes
    branches/upstream/liblingua-es-numeros-perl/current/META.yml
    branches/upstream/liblingua-es-numeros-perl/current/lib/Lingua/ES/Numeros.pm

Modified: branches/upstream/liblingua-es-numeros-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblingua-es-numeros-perl/current/Changes?rev=53576&op=diff
==============================================================================
--- branches/upstream/liblingua-es-numeros-perl/current/Changes (original)
+++ branches/upstream/liblingua-es-numeros-perl/current/Changes Thu Mar  4 23:03:08 2010
@@ -1,4 +1,8 @@
 Revision history for Perl extension Lingua::ES::Numeros.
+
+0.08  Wed Mar  3 11:43:08 VET 2010
+    - Create tag :constants to import genre constants
+    - Documentation and examples fixes
 
 0.07  Wed Jan  6 00:14:36 VET 2010
     - Corrected fractional formating bug in real() thanks to Joaquin Ferrero

Modified: branches/upstream/liblingua-es-numeros-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblingua-es-numeros-perl/current/META.yml?rev=53576&op=diff
==============================================================================
--- branches/upstream/liblingua-es-numeros-perl/current/META.yml (original)
+++ branches/upstream/liblingua-es-numeros-perl/current/META.yml Thu Mar  4 23:03:08 2010
@@ -1,22 +1,14 @@
 --- #YAML:1.0
-name:               Lingua-ES-Numeros
-version:            0.07
-abstract:           Translates numbers to spanish text
-author:
+name:                Lingua-ES-Numeros
+version:             0.08
+abstract:            Translates numbers to spanish text
+license:             ~
+author:              
     - Jose Rey <jrey at cpan.org>
-license:            unknown
-distribution_type:  module
-configure_requires:
-    ExtUtils::MakeMaker:  0
-build_requires:
-    ExtUtils::MakeMaker:  0
-requires:
-    Carp:  0
-no_index:
-    directory:
-        - t
-        - inc
-generated_by:       ExtUtils::MakeMaker version 6.55_02
+generated_by:        ExtUtils::MakeMaker version 6.42
+distribution_type:   module
+requires:     
+    Carp:                          0
 meta-spec:
-    url:      http://module-build.sourceforge.net/META-spec-v1.4.html
-    version:  1.4
+    url:     http://module-build.sourceforge.net/META-spec-v1.3.html
+    version: 1.3

Modified: branches/upstream/liblingua-es-numeros-perl/current/lib/Lingua/ES/Numeros.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblingua-es-numeros-perl/current/lib/Lingua/ES/Numeros.pm?rev=53576&op=diff
==============================================================================
--- branches/upstream/liblingua-es-numeros-perl/current/lib/Lingua/ES/Numeros.pm (original)
+++ branches/upstream/liblingua-es-numeros-perl/current/lib/Lingua/ES/Numeros.pm Thu Mar  4 23:03:08 2010
@@ -5,13 +5,13 @@
 
 =head1 SYNOPSIS
 
-   use Lingua::ES::Numeros
-
-   $obj = new Lingua::ES::Numeros ('MAYUSCULAS' => 1)
-   print $obj->Cardinal(124856), "\n";
-   print $obj->Real(124856.531), "\n";
+   use Lingua::ES::Numeros ":constants";
+
+   my $obj = new Lingua::ES::Numeros ('MAYUSCULAS' => 1);
+   print $obj->cardinal(124856), "\n";
+   print $obj->real(124856.531), "\n";
    $obj->{GENERO} = FEMALE;
-   print $obj->Ordinal(124856), "\n";
+   print $obj->ordinal(124856), "\n";
 
 =head1 DESCRIPTION
 
@@ -37,13 +37,13 @@
 
 use Carp;
 
-our @ISA = qw();
-
-our $VERSION = '0.07';
-
-our @EXPORT = qw( MALE FEMALE NEUTRAL );
-
-our @EXPORT_OK = qw( MALE FEMALE NEUTRAL );
+use base qw( Exporter );
+
+our $VERSION = '0.08';
+
+our @EXPORT = qw( );
+our @EXPORT_OK = qw( MALE FEMALE NEUTRAL MASCULINO FEMENINO NEUTRO );
+our %EXPORT_TAGS = ( constants => [qw(MALE FEMALE NEUTRAL MASCULINO FEMENINO NEUTRO)] );
 
 # Perl 5.6 fails with this
 #use constant {
@@ -55,6 +55,10 @@
 use constant FEMALE  => 'a';
 use constant NEUTRAL => '';
 
+use constant MASCULINO => 'o';
+use constant FEMENINO  => 'a';
+use constant NEUTRO    => '';
+
 use fields qw/ ACENTOS MAYUSCULAS UNMIL HTML DECIMAL SEPARADORES GENERO
     POSITIVO NEGATIVO FORMATO /;
 
@@ -67,7 +71,7 @@
 
 Examples:
 
-      use Lingua::ES::Numeros;
+      use Lingua::ES::Numeros ':constants';
       
       # Use the fields' default values
       $obj = new Lingua::ES::Numeros; 
@@ -129,6 +133,9 @@
  | 3 | tres | tres | tres  | tercero | tercera | tercer  |
  +---+------+------+-------+---------+---------+---------+
 
+The constants MALE, FEMALE and NEUTRAL and their spanish counterparts MASCULINO,
+FEMENINO and NEUTRO, may be imported with the tag ":constants" on module use.
+
 =item SEXO
 
 Deprecated option only for backward compatibility, use GENERO instead.
@@ -162,9 +169,9 @@
 
 =head3 Aliases
 
-By popular demand I have added the following aliases for the options:
-
-    Alias        Natural Name
+All the options have the following english aliases.
+
+    English       Option name
     --------------------------
     ACCENTS       ACENTOS          
     UPPERCASE     MAYUSCULAS