File Coverage

blib/lib/NcFTPd/Log/Parse.pm

Criterion	Covered	Total	%
statement	41	41	100.0
branch	11	12	91.6
condition			n/a
subroutine	9	9	100.0
pod	1	1	100.0
total	62	63	98.4

package NcFTPd::Log::Parse;

use strict;
use warnings;
use vars qw{$VERSION};

use File::Basename;
use Carp;
use NcFTPd::Log::Parse::Misc;
use NcFTPd::Log::Parse::Session;
use NcFTPd::Log::Parse::Xfer;

$VERSION = '0.001';

my %PARSERS = (
    xfer => 'NcFTPd::Log::Parse::Xfer',
    sess => 'NcFTPd::Log::Parse::Session',
    misc => 'NcFTPd::Log::Parse::Misc'
);

$PARSERS{session} = $PARSERS{sess};

sub new
{
    my $class = shift;
    croak 'usage: NcFTP::Log::Parse->new($file [, %options ] | %options)' unless @_;

    my $file    = shift if @_ % 2;
    my %options = @_;
    my $parser;

    if(defined $file) {
	my $basename      = basename($file);
	my $known_parsers = join '|', keys %PARSERS;
	if($basename =~ /^($known_parsers)/i) {
	    $parser = $PARSERS{lc $1};
	}
    }
    else {
	for my $format (keys %PARSERS) {
	    if(defined $options{$format}) {
		$file   = $options{$format};
		$parser = $PARSERS{$format};
		last;
	    }
	}
    }

    croak 'Cannot determine what parser to use, try setting it explicitly' unless $parser;

    $parser->new($file, %options);
}

1;

__END__