1 package SQL::Translator::Types;
4 use SQL::Translator::Utils qw(throw);
5 use Scalar::Util qw(blessed);
7 use Exporter qw(import);
8 our @EXPORT_OK = qw(schema_obj);
13 $class = 'SQL::Translator::Schema' . ($class eq 'Schema' ? '' : "::$class");
15 throw("Not a $name object")
16 unless blessed($_[0]) and $_[0]->isa($class);