--- nfo/perl/libs/Class/Tangram.pm	2002/11/09 01:06:30	1.4
+++ nfo/perl/libs/Class/Tangram.pm	2002/11/17 07:20:51	1.5
@@ -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"