--- nfo/perl/libs/Class/Tangram.pm	2002/11/09 01:06:30	1.4
+++ nfo/perl/libs/Class/Tangram.pm	2004/05/11 23:28:49	1.6
@@ -865,7 +865,7 @@
 
 =cut
 
-    } elsif ($option->{sql} =~ m/^\s*(?:tiny|long|medium)?
+    } elsif ($option->{sql} =~ m/^\s*(tiny|long|medium)?
 				 (?:blob|text)/ix) {
 	my $max_length = ($1 ? ($1 eq "tiny"?255:2**24 - 1)
 			  : 2**16 - 1);
@@ -1495,6 +1495,17 @@
     return $bases{$class};
 }
 
+=item Class::Tangram::class_is_abstract($class)
+
+Returns a bool value if the given class is abstract.
+
+=cut
+
+sub class_is_abstract($) {
+    my $class = shift;
+    return exists $abstract{$class};
+}
+
 =item Class->set_init_default(attribute => $value);
 
 Sets the default value on an attribute for newly created "Class"