File Coverage

blib/lib/App/RecordStream/Operation/fromxferlog.pm

Criterion	Covered	Total	%
statement	15	27	55.5
branch	0	2	0.0
condition			n/a
subroutine	5	8	62.5
pod			n/a
total	20	37	54.0

package App::RecordStream::Operation::fromxferlog;

our $VERSION = "4.0.23";

use strict;
use warnings;

use base qw(App::RecordStream::Operation);

use App::RecordStream::Record;
use App::RecordStream::OptionalRequire qw(Net::FTPServer::XferLog);
App::RecordStream::OptionalRequire::require_done();

sub init {
  my $this = shift;
  my $args = shift;

  my $spec = {};

  $this->parse_options($args, $spec);
}

sub accept_line {
  my $this = shift;
  my $line = shift;

  if (my $hash = Net::FTPServer::XferLog->parse_line($line)) {
    my $record = App::RecordStream::Record->new($hash);
    $this->push_record($record);
  }

  return 1;
}

sub usage {
  my $this = shift;

  return <
Usage: recs-fromxferlog
   __FORMAT_TEXT__
   Each line of input (or lines of ) is parse by Net::FTPServer::XferLog to produce an output record.
   __FORMAT_TEXT__

Examples:
   Get records from typical xferlog
      recs-fromxferlog < /var/log/xferlog
USAGE
}

1;