view release on metacpan or  search on metacpan

lib/Geography/States.pm  view on Meta::CPAN

72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
            #
            next if $country  eq 'canada' &&
                    $$inf [0] eq 'PQ'     &&
                    $i == 1;
            $self -> {cs} -> {$info -> [$i]} = $inf unless
                       exists $self -> {cs} -> {$info -> [$i]};
        }
    }
    $self -> {country} = $country;
 
    bless $self => $class;
}
 
 
sub state {
    my $self = shift;
    unless (@_) {
        my %h;
        return grep {!$h {$_} ++} values %{$self -> {cs}};
    }
    my $query  =  _norm shift, $self -> {country};