sub AUTOLOAD {
  my $self=shift;
  my $method=$AUTOLOAD;
  $method=~s/^.*:://;
  if (certain conditions are met) {
	do something
  }
  else {
	$self->SUPER::$method(@_);
  }
}