File Coverage

blib/lib/Business/BR/CEP.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	10	12	83.3
condition	3	3	100.0
subroutine	6	6	100.0
pod	3	3	100.0
total	43	45	95.5

package Business::BR::CEP;
use warnings;
use strict;
use parent 'Exporter';

our $VERSION = 0.01;
our @EXPORT_OK =
  qw( test_cep testa_cep cep_type tipo_cep cep_region regiao_cep );

sub test_cep { return $_[0] =~ m/^\d{5}-\d{3}$/ }
*testa_cep = \&test_cep;

sub tipo_cep {
  return '' unless test_cep( $_[0] );

  my $suffix = substr $_[0], 6, 3;
  return 'logradouro'   if $suffix < 900;
  return 'especial'     if $suffix < 960;
  return 'promocionais' if $suffix < 970;
  return 'correios'     if $suffix < 990 || $suffix == 999;
  return 'caixapostal';
}
*cep_type = \&tipo_cep;

sub regiao_cep {
  return () unless test_cep( $_[0] );

    my %regioes = (
        0 => ['sp'],
        1 => ['sp'],
        2 => [qw( rj es)],
        3 => ['mg'],
        4 => [qw( ba se )],
        5 => [qw( pe al pb rn )],
        6 => [qw( ce pi ma pa am ac ap rr )],
        7 => [qw( df go to mt mg ro )],
        8 => [qw( pr sc )],
        9 => ['rs'],
    );

  return @{ $regioes{ substr( $_[0], 0, 1 ) } };
}
*cep_region = \®iao_cep;

42;
__END__