File Coverage

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

Criterion	Covered	Total	%
statement	3	14	21.4
branch	0	4	0.0
condition			n/a
subroutine	1	2	50.0
pod	0	1	0.0
total	4	21	19.0

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

use strict;

sub seek
{
  shift;
  seek DATA,0,0;
  my ($aid,$said) = @_;
  my @next;
  while (my $line = )
  {
    if ($line =~ /^$aid\-$said,[^,]+,([-\d,]*)$/)
    {
      if ($1)
      {
        @next = split(/,/,$1);
      }
      else
      {
        @next = ();
      }
      last;
    }
  }
  return \@next;
}

1;
__DATA__