File Coverage

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

Criterion	Covered	Total	%
statement	9	10	90.0
branch	2	2	100.0
condition	8	8	100.0
subroutine	3	4	75.0
pod	2	2	100.0
total	24	26	92.3

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

# [Sat Oct 06 17:34:17 2012] [notice] suEXEC mechanism enabled (wrapper: /usr/sbin/suexec)
# [Sat Oct 06 17:36:10 2012] [error] [client 123.220.65.13] File does not exist: /var/www/html/favicon.ico
our $regexp = qr/^
  \[([^\]]+)\]\ +\[([^\]]+)\]\ +
  (?:\[client\ ([^\]]+)\]\ +)?
  (.+)
$/x;

sub parse {
    my $line = shift;

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

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

sub labels {
    return [qw/
        Date
        Log_Level
        Client
        Message
    /];
}

1;

__END__