my $record = {};
while (defined (my $line = <$logfh>)) {
+ $record->{start} = $logfh->tell() if not defined $record->{start};
chomp $line;
++$this->{linenum};
if (length($line) == 1 and exists $states{ord($line)}) {
} else {
my @result = $record->{text} =~ m/$regex/;
return @result;
- return $record->{text};
}
}