File Coverage

blib/lib/App/YG/Apache/Common.pm

Criterion	Covered	Total	%
statement	10	10	100.0
branch	2	2	100.0
condition	14	14	100.0
subroutine	4	4	100.0
pod	2	2	100.0
total	32	32	100.0

package App::YG::Apache::Common;
use strict;
use warnings;

# 127.0.0.1 - - [30/Sep/2012:12:34:56 +0900] "GET /foo HTTP/1.0" 200 123
our $regexp = qr/^
  ([^\ ]+)\ +([^\ ]+)\ +([^\ ]+)\ +
  \[([^\]]+)\]\ +
  "(.*)"\ +(\d+)\ +([^\ ]+)
$/x;

sub parse {
    my $line = shift;

    $line =~ m!$regexp! or warn "failed to parse line: '$line'\n";

    return [
        $1 || '', $2 || '', $3 || '',
        $4 || '',
        $5 || '', $6 || '', $7 || '',
    ];
}

sub labels {
    return [qw/
        Host
        Ident
        Authuser
        Date
        Request
        Status
        Bytes
    /];
}

1;

__END__