File Coverage

blib/lib/Logfile/EPrints/Parser.pm

Criterion	Covered	Total	%
statement	21	22	95.4
branch	2	4	50.0
condition	2	5	40.0
subroutine	5	5	100.0
pod	1	2	50.0
total	31	38	81.5

package Logfile::EPrints::Parser;

use Logfile::EPrints::Hit;
use POSIX qw/strftime/;

use strict;

sub new
{
	my ($class,%args) = @_;
	$args{type} ||= $args{parser};
	$args{type} ||= 'Logfile::EPrints::Hit::Combined';
	bless \%args, $class;
}

sub parse_fh
{
	my ($self,$fh) = @_;
	return unless my $handler = $self->{handler};

	my $hit;
	my $hit_class = $self->{type};
	while(<$fh>)
	{
		chomp($_);
		if( defined($hit = $hit_class->new($_)) ) {
			$handler->hit($hit);
		}
		else {
			Carp::carp("Error parsing: $_");
		}
	}
}

1;

=pod

=head1 NAME

Logfile::EPrints::Parser - Parse Web server logs that are formatted as one hit per line (e.g. Apache)

=head1 SYNOPSIS

	use Logfile::EPrints::Parser;

	$p = Logfile::EPrints::Parser->new(
	  type=>'Logfile::EPrints::Hit::Combined',
	  handler=>$Handler
	);

	open my $fh, "
	$p->parse_fh($fh);
	close($fh);

=head1 METHODS

=over 4

=item new()

Create a new Logfile::Parser object with the following options:

	type - Optionally specify a class to parse log file lines with (defaults to ::CombinedLog)
	handler - Handler to call (see HANDLER CALLBACKS)

=back

=head1 HANDLER CALLBACKS

=over 4

=item hit()

=back

=cut