| Logfile-EPrints documentation | Contained in the Logfile-EPrints distribution. |
| Logfile-EPrints documentation | Contained in the Logfile-EPrints distribution. |
package Logfile::EPrints::Institution; use vars qw( $AUTOLOAD );
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;