File Coverage

blib/lib/Location/Area/DoCoMo/iArea/Area.pm

Criterion	Covered	Total	%
statement	3	23	13.0
branch	0	8	0.0
condition			n/a
subroutine	1	2	50.0
pod	0	1	0.0
total	4	34	11.7

package Location::Area::DoCoMo::iArea::Area;

use strict;
require Location::Area::DoCoMo::iArea::Aura;

sub seek
{
  shift;
  my $arg = shift;
  my $useAdjustedAura = shift;
  seek DATA,0,0;
  my ($aid,$said,$name,$wara,$sara,$eara,$nara,$mesh,$meshcache);
  if ($arg =~ /^\d{5}$/)
  {
    ($aid,$said) = $arg =~ /^(\d{3})(\d{2})$/;
    while (my $line = )
    {
      my @scan = $line =~ /^$aid,$said,([^,]+),(\d{8,9}),(\d{8,9}),(\d{8,9}),(\d{8,9}),(.*)$/;
      if (@scan)
      {
        ($name,$wara,$sara,$eara,$nara,$meshcache) = @scan;
        last;
      }
    }
  }
  else
  {
    my ($m2,$m3,$m4,$m5,$m6,$m7) = $arg =~ /^(\d{6})(\d?)(\d?)(\d?)(\d?)(\d?)$/;
    while (my $line = )
    {
      my @scan = $line =~ /^(\d{3}),(\d{2}),([^,]+),(\d{8,9}),(\d{8,9}),(\d{8,9}),(\d{8,9}),(.*,(${m2}(${m3}(${m4}(${m5}(${m6}${m7}?)?)?)?)?),.*)$/;
      if (@scan)
      {
        ($aid,$said,$name,$wara,$sara,$eara,$nara,$meshcache,$mesh) = @scan;
        last;
      }
    }
  }
  ($wara,$sara,$eara,$nara) =  Location::Area::DoCoMo::iArea::Aura->seek($aid,$said) if ($useAdjustedAura);
  return {
    areaid => $aid,
    sub_areaid => $said,
    name => $name,
    west => $wara,
    south => $sara,
    east => $eara,
    north => $nara,
    meshcache => $meshcache,
  };
}

1;
__DATA__