sub AUTOLOAD {
	our $AUTOLOAD;
	my $arg = shift;

	if ($AUTOLOAD =~ /^is_/) {
		my $key = substr $AUTOLOAD, 3;
		my $val = $reg->{$val};
		return 1 if $arg =~ /$val/;
	}
}