File Coverage

blib/lib/Logfile/EPrints/Institution.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch	1	2	50.0
condition	1	3	33.3
subroutine	3	3	100.0
pod	0	1	0.0
total	14	18	77.7

package Logfile::EPrints::Institution;

use vars qw( $AUTOLOAD );

=pod

=head1 NAME

Logfile::EPrints::Institution - Deprecated.

=cut

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

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

1;

=back

=cut