Select Code to Download

package Service::ParseLog;
use strict;
...
  return wantarray ? @service : !$self->{is_parsing};
}

my $log = new Service::ParseLog("servlog.txt");
while ($log->read_service()) {
...
if ($log->{is_parsing}) {
  # Incomplete last service
}