File Coverage

blib/lib/HTTP/Request/FromLog/Engine/Default.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	5	6	83.3
condition			n/a
subroutine	9	9	100.0
pod	2	2	100.0
total	50	51	98.0

package HTTP::Request::FromLog::Engine::Default;

use strict;
use warnings;
use base qw(HTTP::Request::FromLog::Engine::Base);
use Parse::AccessLogEntry;
use HTTP::Headers;
use List::MoreUtils qw(all);

sub new {
    my $class = shift;
    my %args  = @_;

    $args{parser} = Parse::AccessLogEntry->new();

    return $class->SUPER::new(%args);
}

sub parse {
    my $self       = shift;
    my $log_record = shift;

    my $record = $self->{parser}->parse($log_record);

    return undef if all { !defined $_ } values %$record;

    my $method = $record->{rtype};
    my $uri    = $self->{scheme} . '://' . $self->{host} . $record->{file};
    my $header = HTTP::Headers->new();
    $header->header( host       => $self->{host} );
    $header->header( user_agent => $record->{agent} ) if $record->{agent};
    $header->header( referer    => $record->{refer} ) if $record->{refer};

    return ( { method => $method, uri => $uri, header => $header } );
}

1;

__END__