File Coverage

blib/lib/Parse/AccessLogEntry/Accessor.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	27	28	96.4

package Parse::AccessLogEntry::Accessor;

use warnings;
use strict;

our $VERSION = '0.01';

use base qw( Parse::AccessLogEntry Class::Accessor::Fast );
__PACKAGE__->mk_ro_accessors(qw(
    host    user  date  time
    diffgmt rtype file  proto
    code    bytes refer agent
));


sub new {
    my $class = shift;
    my $self  = $class->SUPER::new;

    return bless $self;
}

sub parse {
    my $self = shift;
    my $line = shift or die;

    my $ref = $self->SUPER::parse($line);

    while (my ($key, $val) = each %{$ref}) {
        $self->{$key} = $val;
    }
    return $self;
}

1;
__END__