File Coverage

blib/lib/IBGE/Municipios.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	6	6	100.0
condition	7	9	77.7
subroutine	4	4	100.0
pod	1	1	100.0
total	33	35	94.2

package IBGE::Municipios;
use strict;
use warnings;

our $VERSION = 0.02;

my %code_for_data = _init();

sub codigo {
    my ($city, $state) = @_;
    return ( $city
          && $state
          && exists $code_for_data{$state}
          && exists $code_for_data{$state}{$city}
       ? $code_for_data{$state}{$city}
       : undef
   );
}

sub _init {
    my %codes = ();

    while (my $line = ) {
        my ($state, $code, $city) = split /,/ => $line;
        chomp $city if defined $city;
        next unless $state && $code && $city;
        $codes{$state}{$city} = $code;
    }
    return %codes;
}

1;
__DATA__