File Coverage

blib/lib/Logfile/SmartFilter.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package Logfile::SmartFilter;
use Date::Format;
require Logfile::Base;

use 5.008004;
use strict;
use warnings;

our @ISA = qw(Logfile::Base);

our $VERSION = '0.01';

sub next {
    my $self = shift;
    my $fh   = $self->{Fh};

    my (
        $line,                $time,        $elapsed,
        $remotehost,          $code_status, $bytes,
        $method,              $URL,         $rfc931,
        $peerstatus_peerhost, $type,        $smartfilter_category,
        $date
    );
    while ( $line = <$fh> ) {
        chomp($line);
        (
            $time,        $elapsed, $remotehost,
            $code_status, $bytes,   $method,
            $URL,         $rfc931,  $peerstatus_peerhost,
            $type,        $smartfilter_category
          )
          = split( ' ', $line, 11 );
        last if ($time);
    }

    return undef unless $time;

    #date formating e.g. 01/Nov/2004:18:13:34
    $date = time2str( "%d/%b/%Y:%H:%M:%S", $time );

    Logfile::Base::Record->new(
        Host                 => $remotehost,
        Date                 => $date,
        URL                  => $URL,
        Bytes                => $bytes,
        Elapsed              => $elapsed,
        Code_Status          => $code_status,
        Method               => $method,
        RFC931               => $rfc931,
        Peerstatus_Peerhost  => $peerstatus_peerhost,
        Type                 => $type,
        SmartFilter_Category => $smartfilter_category
    );
}

sub norm {
    my ( $self, $key, $val ) = @_;
    $val;
}

1;
__END__