File Coverage

blib/lib/Geo/IP/Record.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	3	6	50.0
condition	2	5	40.0
subroutine	12	12	100.0
pod	3	3	100.0
total	50	56	89.2

package Geo::IP::Record;

use Geo::IP;    #

use vars qw/$pp/;

use strict;

# here are the missing functions if the C API is used
sub latitude {
    my $gir = shift;
    return sprintf( "%.4f", $gir->_latitude );
}

sub longitude {
    my $gir = shift;
    return sprintf( "%.4f", $gir->_longitude );
}

BEGIN {
    $pp = !defined(&Geo::IP::Record::city)
        || $Geo::IP::GEOIP_PP_ONLY;
}

eval <<'__PP__' if $pp;

for ( qw: country_code    country_code3  country_name
          region          region_name    city
          postal_code     dma_code       area_code
          continent_code  metro_code                      : ) {

  no strict   qw/ refs /;
  no warnings qw/ redefine /;
  my $m = $_; # looks bogus, but it is not! it is a copy not a alias
  *$_ = sub { $_[0]->{$m} };
}

# for the case warnings are globaly enabled with perl -w and the CAPI is absent
no warnings qw/ redefine /;

sub longitude {sprintf('%.4f', $_[0]->{longitude})}
sub latitude  {sprintf('%.4f', $_[0]->{latitude})}

{
  my $TIME_ZONE;

  local $_ = ;    # skip first line
  while () {
    chomp;
    next if /^\s*$/;
    my ( $country, $region, $timezone ) = split /,/, $_, 3;
    $TIME_ZONE->{$country}->{ $region || '' } = $timezone;
  }

  # called from Geo::IP
  sub _time_zone {
    my ( undef, $country, $region  ) = @_;
    return undef unless $country;
    return undef unless defined $TIME_ZONE->{$country};
    $region ||= '';
    return
      defined $TIME_ZONE->{$country}->{$region}
      ? $TIME_ZONE->{$country}->{$region}
      : $TIME_ZONE->{$country}->{''};
  }
  sub time_zone {
    my ( $self ) = @_;
    my ( $country, $region ) = ( $self->country_code, $self->region );
    return $self->_time_zone( $country, $region );
  }
}

__PP__
1;
__DATA__