File Coverage

blib/lib/Parse/AccessLogEntry.pm

Criterion	Covered	Total	%
statement	29	30	96.6
branch	2	4	50.0
condition	1	3	33.3
subroutine	4	4	100.0
pod	0	2	0.0
total	36	43	83.7

package Parse::AccessLogEntry;

use strict;
use warnings;

require Exporter;
our $VERSION = '0.06';

sub new
{
        my $Proto=shift;
        my $Class=ref($Proto) || $Proto;
        my $Self={};
        bless $Self;
        return $Self;
}

sub parse
{
	my $Self=shift;
        my $Line=shift;
        my $Ref;
        my $Rest;
        my $R2;
        ($Ref->{host},$Ref->{user},$Ref->{date},$Rest)= $Line=~m,^([^\s]+)\s+-\s+([^ ]+)\s+\[(.*?)\]\s+(.*),;
        my @Dsplit=split(/\s+/,$Ref->{date});
	$Ref->{diffgmt}=$Dsplit[1];
	my @Ds2=split(/\:/,$Dsplit[0],2);
        $Ref->{date}=$Ds2[0];
        $Ref->{time}=$Ds2[1];
        if ($Rest)
        {
                ($Ref->{rtype},$Ref->{file},$Ref->{proto},$Ref->{code},$Ref->{bytes},$R2)=split(/\s/,$Rest,6);
		$Ref->{rtype}=~tr/\"//d;
		$Ref->{proto}=~tr/\"//d;
                if ($R2)
                {
                        my @Split=split(/\"/,$R2);
                        $Ref->{refer}=$Split[1];
                        $Ref->{agent}=$Split[3];
                }
        }
        return $Ref;
}


1;
__END__