File Coverage

blib/lib/HTTP/Request/FromLog.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	2	4	50.0
condition	5	6	83.3
subroutine	8	8	100.0
pod	2	2	100.0
total	51	54	94.4

package HTTP::Request::FromLog;

use strict;
use warnings;
use HTTP::Request;
use UNIVERSAL::require;

use 5.8.1;

our $VERSION = '0.00002';

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

    my $self = bless {}, $class;
    $self->_init( \%args );

    return $self;
}

sub _init {
    my $self = shift;
    my $args = shift;

    my $class = $args->{engine} ||= 'HTTP::Request::FromLog::Engine::Default';
    $class->require or die $@;

    my $engine_args = $args->{engine_args} ||= {};
    $engine_args->{scheme} = $args->{scheme} ||= 'http';
    $engine_args->{host} = $args->{host};

    $self->{engine} = $class->new(%$engine_args);

}

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

    my $result = $self->{engine}->parse($log_record);
    return if ( !defined $result );

    my $request =
      HTTP::Request->new( $result->{method}, $result->{uri},
        $result->{header} );

    return $request;
}

1;

__END__