NAME

Lingua::PT::Capitalizer - Simple text capitalize.

VERSION

version 0.001

SYNOPSIS

Procedural Interface

   use Lingua::PT::Capitalizer;
   my $text = q(ESCRITOR, JORNALISTA, CONTISTA E POETA JOAQUIM MARIA MACHADO DE ASSIS);
   say capitalize($text);
   # Output:
   # Escritor, Jornalista, Contista e Poeta Joaquim Maria Machado de Assis

   $text = q(comprehensive perl archive network (CPAN));
   say capitalize($text, 1);
   # Output:
   # Comprehensive Perl Archive Network (CPAN)

OO Interface

    use Lingua::PT::Capitalizer ();

    my $capitalizer = Lingua::PT::Capitalizer->new();
    my $text = q(ESCRITOR, JORNALISTA, CONTISTA E POETA JOAQUIM MARIA MACHADO DE ASSIS);
    say $capitalizer->capitalize($text);
    # Output:
    # Escritor, Jornalista, Contista e Poeta Joaquim Maria Machado de Assis

    $text = q(comprehensive perl archive network (CPAN));
    say $capitalizer->capitalize($text, 1);
    # Output:
    # Comprehensive Perl Archive Network (CPAN)

DESCRIPTION

This module format strings in title-case mode using common typographic rules for proper names in Portuguese Language.

SUBROUTINES/METHODS

capitalize

Receive one or two arguments and return a capitalized string. If the second argument is 1, the upper case words won't be affected.

lc_always

A data structure with some articles and prepositions that normaly stay in lower case.

EXAMPLES

Using files as input

If text.txt is a file with names/titles to capitalize, the easiest way to capitalize all is:

    perl -MLingua::PT::Capitalizer -wpE'$_=capitalize' text.txt

Getting lc_always hash

   # Procedural Interface
   my %lc_always = %{Lingua::PT::Capitalizer::lc_always}

   # OO Interface
   my %lc_always = $capitalizer->{lc_always}

AUTHOR

Ronaldo Ferreira de Lima aka jimmy <jimmy at gmail>.

SEE ALSO

Text::Capitalize.