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};
}
}
=cut
1;
+
+# Local Variables:
+# indent-tabs-mode: nil
+# cperl-indent-level: 4
+# End: