- my $code = $country->look_down("_tag" => "countryCode")->as_text;
- my $name = $country->look_down("_tag" => "countryName")->as_text;
- my $population = $country->look_down("_tag" => "population")->as_text;
- my $bandwidth = $bandwidth->{$code} || 0;
- my $continent = $country->look_down("_tag" => "continent")->as_text;
- my $west = $country->look_down("_tag" => "west")->as_text;
- my $north = $country->look_down("_tag" => "north")->as_text;
- my $east = $country->look_down("_tag" => "east")->as_text;
- my $south = $country->look_down("_tag" => "south")->as_text;
- my $lat = centre_lat( $south, $north );
- my $lon = centre_lon( $west, $east );
-
- $countries{$code} = {
- code => $code, name => $name, continent => $continent,
- bandwidth => $bandwidth, lat => $lat, lon => $lon
- };
-