File Coverage

blib/lib/App/YG/Nginx/Main.pm

Criterion	Covered	Total	%
statement	9	10	90.0
branch	2	2	100.0
condition	20	20	100.0
subroutine	3	4	75.0
pod	2	2	100.0
total	36	38	94.7

package App::YG::Nginx::Main;
use strict;
use warnings;

# $remote_addr - $remote_user [$time_local] "$request" $status $body_bytes_sent "$http_referer" "$http_user_agent" "$http_x_forwarded_for"
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 || '',
        $8 || '', $9 || '', $10 || '',
    ];
}

sub labels {
    return [qw/
        Remote_Addr
        -
        Remote_User
        Time_Local
        Request
        Status
        Body_Bytes_Sent
        HTTP_Referer
        User_Agent
        HTTP_x_Forwarded_For
    /];
}

1;

__END__