NAME
VERSION
SYNOPSIS
DESCRIPTION
ATTRIBUTES
METHODS
SEE ALSO
CONTRIBUTORS
AUTHOR
COPYRIGHT AND LICENSE

NAME

Geo::CEP - Resolve Brazilian city data for a given CEP

VERSION

version 0.7

SYNOPSIS

    use common::sense;
    use utf8::all;

    use Data::Printer;
    use Geo::CEP;

    my $gc = Geo::CEP->new;
    p $gc->find("12420-010");

    # Saída:
    # \ {
    #     city         "Pindamonhangaba",
    #     ddd          12,
    #     lat          -22.9166667,
    #     lon          -45.4666667,
    #     state        "SP",
    #     state_long   "São Paulo"
    # }

DESCRIPTION

Obtém os dados como: nome da cidade, do estado, número DDD e latitude/longitude (da cidade) para um número CEP (Código de Endereçamento Postal) brasileiro.

Diferentemente do WWW::Correios::CEP, consulta os dados armazenados localmente. Por um lado, isso faz Geo::CEP ser extremamente rápido (5 mil consultas por segundo); por outro, somente as informações à nível de cidade são retornadas.

ATTRIBUTES

data, index

FileHandle para os respectivos arquivos.

length

Tamanho do índice.

offset

Última posição dentro do CSV; uso interno.

states

Mapeamento de código de estado para o nome do estado (AC => 'Acre').

idx_len

Tamanho do registro de índice.

METHODS

get_idx($n)

Retorna a posição no arquivo CSV; uso interno.

bsearch($hi, $val)

Efetua a busca binária (implementação não-recursiva); uso interno.

find($cep)

Busca por $cep (no formato 12345678 ou "12345-678") e retorna HashRef com:

state: sigla da Unidade Federativa (SP, RJ, MG);
state_long: nome da Unidade Federativa (São Paulo, Rio de Janeiro, Minas Gerais);
city: nome da cidade;
ddd: código DDD (pode estar vazio);
lat/lon: coordenadas geográficas da cidade (podem estar vazias).

Retorna undef quando não foi possível encontrar.

list()

Retorna HashRef com os dados de todas as cidades.

CONTRIBUTORS

Blabos de Blebe

AUTHOR

Stanislaw Pusep <stas@sysd.org>

COPYRIGHT AND LICENSE

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.