r53576 - in /branches/upstream/liblingua-es-numeros-perl/current: Changes META.yml lib/Lingua/ES/Numeros.pm
angelabad-guest at users.alioth.debian.org
angelabad-guest at users.alioth.debian.org
Thu Mar 4 23:03:42 UTC 2010
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
More information about the Pkg-perl-cvs-commits
mailing list