CPAN::Groonga

SERVED_METHODS = qw(
	import unimport
	DESTROY
	AUTOLOAD
	isa DOES does can VERSION
	meta new
	TO_JSON
);
#
# Note that tie-related stuff isn't on the list of reserved methods
# because people using t

	*{"$class\::does"}     = \&_DOES;
		*{"$class\::VERSION"}  = \$VERSION;
		*{"$class\::TO_JSON"}  = \&_TO_JSON;
		
		if ( $opts{ctor} ) {
			my $re = join "|", map quotemeta($_), @$keys;
			*{"$class\

	return !!1 if $_[1] eq __PACKAGE__;
	return !!1 if $_[1] eq 'HASH';
	shift->isa(@_);
}

sub _TO_JSON {
	my %hash = %{ +shift };
	\%hash;
}

1;

__END__

=pod

=encoding utf-8

=head1 NAME

Object::A