File Coverage

blib/lib/IBGE/Municipios.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch	4	4	100.0
condition	8	9	88.8
subroutine	4	4	100.0
pod	1	1	100.0
total	31	32	96.8

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

our $VERSION = 0.01;

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;
        next unless $state && $code && $city;

        $codes{$state}{$city} = $code;
    }
    return %codes;
}

1;
__DATA__