File Coverage

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

Criterion	Covered	Total	%
statement	3	13	23.0
branch	0	2	0.0
condition			n/a
subroutine	1	2	50.0
pod	0	1	0.0
total	4	18	22.2

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

use strict;

sub seek
{
  shift;
  seek DATA,0,0;
  my ($aid,$said) = @_;
  my ($region,$pref);
  while (my $line = )
  {
    my @scan = $line =~ /^$aid,$said,([^,]+),([^,]+),/;
    if (@scan)
    {
      ($region,$pref) = @scan;
      last;
    }
  }
  return ($region,$pref);
}

1;
__DATA__