File Coverage

blib/lib/Logfile/EPrints/Filter/Period.pm

Criterion	Covered	Total	%
statement	3	11	27.2
branch	0	6	0.0
condition	0	9	0.0
subroutine	1	3	33.3
pod	1	1	100.0
total	5	30	16.6

package Logfile::EPrints::Filter::Period;

use vars qw( $AUTOLOAD );

sub new {
	my ($class,%self) = @_;
	bless \%self, ref($class) || $class;
}

sub AUTOLOAD
{
	$AUTOLOAD =~ s/^.*:://;
	return if $AUTOLOAD =~ /[A-Z]$/;
	my ($self,$hit) = @_;
	return if defined($self->{after}) && $hit->datetime <= $self->{after};
	return if defined($self->{before}) && $hit->datetime >= $self->{before};
	$self->{handler}->$AUTOLOAD($hit);
}

1;

=pod

=head1 NAME

Logfile::EPrints::Filter::Period

=head1 DESCRIPTION

Filter hits for a given time period (given as yyyymmddHHMMSS).

=head1 METHODS

=over 5

=item new(%opts)

	after=>20040320145959
		only include records I this datetime
	before=>20040320160000
		only include records I this datetime

=back

=cut