sub _fetch { 
  my( $class, $key ) = @_; 
  no strict q{refs}; 
  my $opts = \%{ ref($class) . q{::_config} };
  if( exists $opts->{ $key } ) {
    return $opts->{ $key };
  } else {
    return SUPER->_fetch( $key );
  }
}

sub configure {
  my( $class, %opts ) = @_;
  no strict q{refs};
  my $opts = \%{ $class . q{::_config} };
  for my ($k, $v) ( each %opts ) {
    $opts->{ $k } = $v;
  }
  return;
}